利用ASP線上維護資料庫

來源:互聯網
上載者:User
資料|資料庫|線上 隨著網際網路的發展,在網路環境中,資料庫應用漸漸向操作簡單、功能實用的方向發展。本文介紹如何利用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
%>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。