利用ASP在线维护数据库

金光

作者：未知         来源：未知         加入时间：2002-12-18　蓝宝石软件站         <BR>随着因特网的发展，在网络环境中，数据库应用渐渐向操作简单、功能实用的方向发展。本文介绍如何利用ASP技术实现对<BR>数据库进行在线维护的方法,并给出了各种功能键的实现过程。 <BR>实现功能 <BR>数据库管理员可在网上直接维护数据库。在数据查询与数据库维护界面中（见图1），通过复选框选取所要操作的数据行，<BR>并在功能键区通过单选按钮选取所要进行的操作，然后按“提交”按钮，即可进行所需操作，并得到返回信息（见图2）


图1 数据查询与数据库维护界面


图2 返回信息提示界面


实现环境如下： <BR>客户端：Windows 98 操作系统＋IE 5.0浏览器 <BR>服务器端：SQL Server 7.0数据库 <BR>网站应用程序开发环境：Active Server Pages (ASP) <BR>网页制作开发环境：Microsoft FrontPage 2000 <BR>编程实现 <BR>　　首先，用FrontPage 2000编制数据查询与数据库维护界面，通过与后台SQL Server数据库standard建立关联，从数据<BR>库表中查取数据，生成数据集合rs。为加快程序访问速度，可以将其保存在session对象rs1中。部分代码如下： <BR>&lt;％ <BR>sql=“select ＊ from inform order by pdate DESC” <BR>　 Set rs=Server.CreateObject(“ADODB.Recordset”) <BR>　 rs.Open sql,“Driver={SQL Server};Server= <BR>(local);Database=info;UID=userWD=password;”,3,2 <BR>　　set session(“rs1”)=rs <BR>％&gt; <BR>　　插入一个Form，添加“插入”、“删除”、“修改”等功能键，并将功能键处的单选按钮的组名称设为edit,按钮值分<BR>别对应为“insert”、“delete”、“update”。 <BR>　　然后，编写ASP程序tzwh1.asp 文件。从session 中读取数据，根据数据项用split函数将其分开，转化为一个数组进<BR>行处理，并用trim函数去掉数据前后空格。程序部分代码如下： <BR>&lt;％ set rs=session(“rs1”) <BR>edit=trim(Request(“edit”)) <BR>id=“, ”＆trim(Request(“id”))＆“, ” <BR>eno=split(trim(Request(“NO”)), “, ”) <BR>etitle=split(trim(Request(“title”)), “, ”) <BR>epdate=split(trim(Request(“pdate”)), “, ”) <BR>ewriter=split(trim(Request(“writer”)), “, ”) <BR>econtent=split(trim(Request(“content”)) , “, ”) <BR>％&gt; <BR>　　最后，实现功能键。功能键的选择用case 语句实现。每一个实现过程中，利用inStr比较函数将读出来的eno与数据项<BR>的标识号id相比较，可识别出所选的复选框是否有效。for循环体的下界采用Ubound函数，避免了网页数据的提取错误。部<BR>分程序代码如下： <BR>&lt;％ select case edit <BR>case “insert” <BR>for i=0 to Ubound(eno) <BR>if inStr(id,“, ”＆trim(eno(i))＆“,”)&gt;0 then <BR>rs.AddNew <BR>rs(“title”)=trim(etitle(i)) <BR>rs(“pdate”)=trim(epdate(i)) <BR>rs(“writer”)=trim(ewriter(i)) <BR>rs(“content”)=trim(econtent(i)) <BR>rs.Update <BR>％&gt; <BR>&lt;tr&gt; <BR>&lt;td align=“center”&gt;&lt;％ =rs(“pdate”) <BR>％&gt;.&lt;/td&gt; <BR>&lt;td&gt;&lt;font color=“＃008080”&gt;&lt;％ =rs(“title”) ％&gt;.&lt;/font&gt;&lt;/td&gt; <BR>&lt;td&gt;&lt;font color=“＃008080”&gt;插入新记录成功！&lt;/font&gt;&lt;/td&gt; <BR>&lt;/tr&gt; <BR>&lt;％ End if <BR>Next％&gt; <BR>&lt;％ case “delete” <BR>for i=0 to 9 <BR>if inStr(id,“, ”＆trim(rs(“id”))＆“,” )&gt;0 then％&gt; <BR>&lt;tr&gt; <BR>&lt;td align=“center”&gt;&lt;％ =rs(“pdate”) <BR>％&gt;.&lt;/td&gt; <BR>&lt;td&gt;&lt;％ =rs(“title”) ％&gt;.&lt;/td&gt; <BR>&lt;td&gt;&lt;font color=“＃FF0000”&gt;记录删除成功！&lt;/font&gt;&lt;/td&gt; <BR>&lt;/tr&gt; <BR>&lt;％ <BR>rs.delete 1 <BR>End if <BR>rs.movenext <BR>if rs.eof then Exit for End if <BR>Next <BR>case “update” <BR>for i=0 to 9 <BR>if inStr(id,“,”＆trim(rs(“id”))＆“,”)&gt;0 then <BR>rs(“title”)=trim(etitle(i)) <BR>rs(“pdate”)= trim(epdate(i)) <BR>rs(“writer”)= trim(ewriter(i)) <BR>rs(“content”)= trim(econtent(i)) <BR>rs.Update ％&gt; <BR>&lt;tr&gt; <BR>&lt;td align=“center”&gt;&lt;％ =rs(“pdate”) <BR>％&gt;.&lt;/td&gt; <BR>&lt;td&gt;&lt;％ =rs(“title”) ％&gt;.&lt;/td&gt; <BR>&lt;td&gt;&lt;font color=“＃0000FF”&gt;记录修改成功！&lt;/font&gt;&lt;/td&gt; <BR>&lt;/tr&gt; <BR>&lt;％ End if <BR>rs.movenext <BR>if rs.eof then Exit for End if <BR>Next <BR>end select <BR>％&gt;