【正文】 ters、 Content Rotator、 Page Count 等 組件，用戶也可自行編制 Active 組件，以提高系統(tǒng)的實用性。 ADO 組件主要提供了以下七個對象和四個集合來訪問數(shù)據(jù)庫。 Command 對象： 執(zhí)行 SQL 指令，訪問數(shù)據(jù)庫。 RecordSet 對象： 存放訪問數(shù)據(jù)庫后的數(shù)據(jù)信息，是最經(jīng)常使用的對象。 Property 對 象和 Properties 集合： 提供有關信息，供 Connection、 Command、RecordSet、 Field 對象使用。 ASP 的腳本語言 腳本語言是一種介于 HTML 和 VB、 JAVA 等高級語言之間的一種語言，它可以和 HTML 語言混在一起使用，可以用來在瀏覽器客戶端進行程序編制，從而控制瀏覽器等對象操作。 ASP 中常用的腳本語言有 VBScript 和 JavaScript，系統(tǒng)默認語言是 VBScript，在系統(tǒng)中，兩種腳本語言都有使用。 比如，你需要為你的網(wǎng)站增加用戶注冊和登錄的功能；你可能還需要做一些網(wǎng)上調查，了解用戶對于某個事件或者產(chǎn)品的反饋；你還可能需要一個電子商務網(wǎng)站，及時發(fā)布產(chǎn)品信息和滿足用戶在線訂購的需要 ...... 編寫 ASP 動態(tài)網(wǎng)頁能夠幫助你實現(xiàn)這些和用戶互動的功能。 HTML 只能用于編寫靜態(tài)的網(wǎng)頁。然后用戶瀏覽器會處理該網(wǎng)頁的 HTML 代碼，然后將結果顯示出來。當一個用戶瀏覽器 (下圖所示： Web Client) 從 Web 服務器 (下圖所示： Web Server) 要求一個 ASP 網(wǎng)頁時， Web 服務器會將這個 ASP 文件發(fā)送給 Web 服務器的 ASP 引擎 (下圖所示： ASP Engine)， ASP 引擎則將該 ASP 網(wǎng)頁中所有的服務器端腳本 (下圖所示： %和 %之間的代碼 ) 轉換成 HTML 代碼，然后將所有 HTML 代碼發(fā)送給用戶瀏覽器。 圖 圖 第二章 運行環(huán)境及系統(tǒng)性能需求分析 、硬件需求： cpu :inter pentuimII 或等效處理器、 300MHZ 或更高 內(nèi)存： 96MB 可用內(nèi)存 硬盤： 275MB 以上可用磁盤空間 顯示器：可達 800 600 像素的 256 色顯示器或更高 、軟件需求：操作系統(tǒng) windows 98/2020/NT(或更高版本 ) 瀏 覽 器 ： scape 或 microsoft inter 或更高本?？傮w結構圖如下圖 : 各模塊結構設計圖如下： 個人申報模塊： 登陸界面 科研項目網(wǎng)上申報管理系統(tǒng) 推薦單位模塊 管理中心模塊 評審專家模塊 個人申報模塊 個人申報模塊 項目申報 項目查詢 個人資料 密碼修改 項目申請書模版 推薦單位模塊： 管理中心模塊： 各模塊對應的功能不同：個人申報模塊提供的是面向個人的項目申報與管理功能；推薦單位模塊提供的是管理個人申報項目與向衛(wèi)生廳推薦合適項目的功能；管理中心模塊提供的是對各推薦單位推薦上來的項目進行管理并分配專家進行評審，最后根據(jù)評審專家對該項目的意見與打分，決定是否對該項目進行立項的功能；評審專家模塊提供專家對分配到的項目進行打分與提供專家意見的功能。而管理中心的管理員用戶名與密碼將由我們直接在系統(tǒng)中進行設置，并提供給衛(wèi)生廳科教處。 系統(tǒng)流程圖如下： 推薦單位模塊 項目推薦 項目管理 管理中心模塊 項目評審 申報年度 推薦單位 評審專家 項目查詢打印 項目申請書模板 、數(shù)據(jù)庫設計與實現(xiàn) 數(shù)據(jù)庫名 : 數(shù)據(jù)庫 用 戶 : 項目申報 用戶信息修改 退出登陸 管理員 項目管理 項目查詢打印 用戶信息管理 退出登陸 表 user username password type mingcheng sfz dizi youbian dianhua 表 xiangmu mingcheng xueke shengbaoren jinfei zhuangtai 所屬推薦單位 是否推薦 是 否 將 結果返回到個人 管理中心 個人申報項目 審查 網(wǎng)上評審 不通過 通過 將結果返回到推薦單位 將結果返回到管理中心 第四章 科研項目網(wǎng)上申報 管理系統(tǒng)的實現(xiàn) 、數(shù)據(jù)庫的連接 % dim db set db=() dbq=amp。driver={microsoft access driver (*.mdb)}。 *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem 39。index= If (MM_paramName ) Then MM_removeList = MM_removeList amp。 amp。 = End If MM_keepURL= MM_keepForm= MM_keepBoth= MM_keepNone= 39。 amp。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL amp。 ((MM_item)) End If Next 39。 amp。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm amp。 ((MM_item)) End If Next 39。amp。 from each of the strings MM_keepBoth = MM_keepURL amp。 a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem ) Then MM_joinChar = amp。 charset=gb2312 title管理員后臺 /title link href=img/ rel=stylesheet type=text/css /head body marginheight=0 marginwidth=0 topmargin=0 bottommargin=0 !include file= table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=FFFFFF tr td align=center valign=toptable width=760 border=0 align=center cellpadding=0 cellspacing=0 class=x tr td height=25 colspan=7 align=center valign=middle項目管理及評審 /td /tr tr align=center valign=bottom td width=15%項目名稱 /td td width=15%所屬學科 /td td width=15%申報單位 /個人名稱 /td td width=15%申請金費 /td td width=15%申報狀態(tài) /td td width=10%評審 /td td width=10%刪除 /td /tr tr align=center valign=bottom td%=((mingcheng).Value)%/td td%=((xueke).Value)%/td td%=((shengbaoren).Value)%/td td%=((jinfei).Value)%/td td%=((zhuangtai).Value)%/td tdA HREF=?%= (MM_keepURL) amp。 id= amp。 MM_joinChar(MM_keepURL) amp。 (id).Value %刪除 /A/td /tr /table/td /tr /table !include file= /body /html % () Set Recordset1 = Nothing % 、項目查詢打印 模塊 %LANGUAGE=VBSCRIPT CODEPAGE=936% !include file=Connections/ % Dim Recordset1__MMColParam Recordset1__MMColParam = 1 If ((mingcheng) ) Then Recordset1__MMColParam = (mingcheng) End If % % Dim Recordset1 Dim Recordset1_cmd Dim Recordset1_numRows Set Recordset1_cmd = () = MM_conn_STRING = SELECT * FROM xiangmu WHERE mingcheng = ? = true (param1, 200, 1, 50, Recordset1__MMColParam) 39。 charset=gb2312 title管理員后臺 /title link href=img/ rel=stylesheet type=text/css style type=text/css ! .STYLE1 {color: FFFFFF} .STYLE2 {color: FFFFFF。 } /style /head body marginheight=0 marginwidth=0 topmargin=0 bottommargin=0 !include file= table width=760 border=0 align=center cellpadding=0 cellspacing=0 bgcolor=FFFFFF tr td align=center valign=topform name=form1 method=post action= table width=500 border=0 cellspacing=0 cellpadding=0 tr align=center valign=bottom td項目名稱 /td td width=30%label input name=mingcheng type=text id=mingcheng /label/td tdlabel input type=submit name=Submit value=項目查詢 /label/td /tr /table /form /td /tr /table table width=760 border=1 align=center cellpadding=0 cellspacing=0 bordercolor=ECE9D8 bgcolor=FFFFFF class=x tr td height=25 colspan=7 align=center