資料|資料庫|線上 隨著網際網路的發展，在網路環境中，資料庫應用漸漸向操作簡單、功能實用的方向發展。本文介紹如何利用ASP技術實現對
資料庫進行線上維護的方法,並給出了各種功能鍵的實現過程。
實現功能
資料庫管理員可在網上直接維護資料庫。在資料查詢與資料庫維護介面中（見圖1），通過複選框選取所要操作的資料行，
並在功能鍵區通過選項按鈕選取所要進行的操作，然後按“提交”按鈕，即可進行所需操作，並得到返回資訊（見圖2）
圖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
％>
