圖1 數據查詢與數據庫維護界面 圖2 返回信息提示界面 實現環境如下： 客戶端：Windows 98 操作系統＋IE 5.0瀏覽器 服務器端：SQL Server 7.0數據庫 網站應用程序開發環境：Active Server Pages (ASP) 網頁制作開發環境：Microsoft FrontPage 2000 編程實現 首先，用FrontPage 2000編制數據查詢與數據庫維護界面，通過與后臺SQL Server數據庫standard建立關聯，從數據庫表中查取數據，生成數據集合rs。為加快程序訪問速度，可以將其保存在session對象rs1中。部分代碼如下： <％ sql=“select ＊ from inform order by pdate DESC” Set rs=Server.CreateObject(“ADODB.Recordset”) rs.Open sql,“Driver={SQL Server};Server= (local);Database=info;UID=user;PWD=passWord;”,3,2 set session(“rs1”)=rs ％> 插入一個Form，添加“插入”、“刪除”、“修改”等功能鍵，并將功能鍵處的單選按鈕的組名稱設為edit,按鈕值分別對應為“insert”、“delete”、“update”。 然后，編寫ASP程序tzwh1.asp 文件。從session 中讀取數據，根據數據項用split函數將其分開，轉化為一個數組進行處理，并用trim函數去掉數據前后空格。程序部分代碼如下： <％ set rs=session(“rs1”) edit=trim(Request(“edit”)) id=“, ”＆trim(Request(“id”))＆“, ” eno=split(trim(Request(“NO”)), “, ”) etitle=split(trim(Request(“title”)), “, ”) epdate=split(trim(Request(“pdate”)), “, ”) ewriter=split(trim(Request(“writer”)), “, ”) econtent=split(trim(Request(“content”)) , “, ”) ％> 最后，實現功能鍵。功能鍵的選擇用case 語句實現。每一個實現過程中，利用inStr比較函數將讀出來的eno與數據項的標識號id相比較，可識別出所選的復選框是否有效。for循環體的下界采用Ubound函數，避免了網頁數據的提取錯誤。部分程序代碼如下： <％ select case edit case “insert” for i=0 to Ubound(eno) if inStr(id,“, ”＆trim(eno(i))＆“,”)>0 then rs.AddNew rs(“title”)=trim(etitle(i)) rs(“pdate”)=trim(epdate(i)) rs(“writer”)=trim(ewriter(i)) rs(“content”)=trim(econtent(i)) rs.Update ％> <tr> <td align=“center”><％ =rs(“pdate”) ％>.</td> <td><font color=“＃008080”><％ =rs(“title”) ％>.</font></td> <td><font color=“＃008080”>插入新記錄成功！</font></td> </tr> <％ End if Next％> <％ case “delete” for i=0 to 9 if inStr(id,“, ”＆trim(rs(“id”))＆“,” )>0 then％> <tr> <td align=“center”><％ =rs(“pdate”) ％>.</td> <td><％ =rs(“title”) ％>.</td> <td><font color=“＃FF0000”>記錄刪除成功！</font></td> </tr> <％ rs.delete 1 End if rs.movenext if rs.eof then Exit for End if Next case “update” for i=0 to 9 if inStr(id,“,”＆trim(rs(“id”))＆“,”)>0 then rs(“title”)=trim(etitle(i)) rs(“pdate”)= trim(epdate(i)) rs(“writer”)= trim(ewriter(i)) rs(“content”)= trim(econtent(i)) rs.Update ％> <tr> <td align=“center”><％ =rs(“pdate”) ％>.</td> <td><％ =rs(“title”) ％>.</td> <td><font color=“＃0000FF”>記錄修改成功！</font></td> </tr> <％ End if rs.movenext if rs.eof then Exit for End if Next end select ％>
