- 利用ASP在线维护数据库
- 作者：未知 来源：未知 添加时间：2002年12月18日 字体:大 中 小
- 83440随着因特网的发展，在网络环境中，数据库应用渐渐向操作简单、功能实用的方向发展。本文介绍如何利用ASP技术实现对
G+]E/Qj数据库进行在线维护的方法,并给出了各种功能键的实现过程。
G+]E/Qj实现功能
G+]E/Qj数据库管理员可在网上直接维护数据库。在数据查询与数据库维护界面中（见图1），通过复选框选取所要操作的数据行，
G+]E/Qj并在功能键区通过单选按钮选取所要进行的操作，然后按“提交”按钮，即可进行所需操作，并得到返回信息（见图2）
G+]E/Qj
G+]E/Qj图1 数据查询与数据库维护界面
G+]E/Qj
G+]E/Qj图2 返回信息提示界面
G+]E/Qj
G+]E/Qj实现环境如下：
G+]E/Qj客户端：Windows 98 操作系统＋IE 5.0浏览器
G+]E/Qj服务器端：SQL Server 7.0数据库
G+]E/Qj网站应用程序开发环境：Active Server Pages (ASP)
G+]E/Qj网页制作开发环境：Microsoft FrontPage 2000
G+]E/Qj编程实现
G+]E/Qj 首先，用FrontPage 2000编制数据查询与数据库维护界面，通过与后台SQL Server数据库standard建立关联，从数据
G+]E/Qj库表中查取数据，生成数据集合rs。为加快程序访问速度，可以将其保存在session对象rs1中。部分代码如下：
G+]E/Qj<％
G+]E/Qjsql=“select ＊ from inform order by pdate DESC”
G+]E/Qj Set rs=Server.CreateObject(“ADODB.Recordset”)
G+]E/Qj rs.Open sql,“Driver={SQL Server};Server=
G+]E/Qj(local);Database=info;UID=user;PWD=password;”,3,2
G+]E/Qj set session(“rs1”)=rs
G+]E/Qj％>
G+]E/Qj 插入一个Form，添加“插入”、“删除”、“修改”等功能键，并将功能键处的单选按钮的组名称设为edit,按钮值分
G+]E/Qj别对应为“insert”、“delete”、“update”。
G+]E/Qj 然后，编写ASP程序tzwh1.asp 文件。从session 中读取数据，根据数据项用split函数将其分开，转化为一个数组进
G+]E/Qj行处理，并用trim函数去掉数据前后空格。程序部分代码如下：
G+]E/Qj<％ set rs=session(“rs1”)
G+]E/Qjedit=trim(Request(“edit”))
G+]E/Qjid=“, ”＆trim(Request(“id”))＆“, ”
G+]E/Qjeno=split(trim(Request(“NO”)), “, ”)
G+]E/Qjetitle=split(trim(Request(“title”)), “, ”)
G+]E/Qjepdate=split(trim(Request(“pdate”)), “, ”)
G+]E/Qjewriter=split(trim(Request(“writer”)), “, ”)
G+]E/Qjecontent=split(trim(Request(“content”)) , “, ”)
G+]E/Qj％>
G+]E/Qj 最后，实现功能键。功能键的选择用case 语句实现。每一个实现过程中，利用inStr比较函数将读出来的eno与数据项
G+]E/Qj的标识号id相比较，可识别出所选的复选框是否有效。for循环体的下界采用Ubound函数，避免了网页数据的提取错误。部
G+]E/Qj分程序代码如下：
G+]E/Qj<％ select case edit
G+]E/Qjcase “insert”
G+]E/Qjfor i=0 to Ubound(eno)
G+]E/Qjif inStr(id,“, ”＆trim(eno(i))＆“,”)>0 then
G+]E/Qjrs.AddNew
G+]E/Qjrs(“title”)=trim(etitle(i))
G+]E/Qjrs(“pdate”)=trim(epdate(i))
G+]E/Qjrs(“writer”)=trim(ewriter(i))
G+]E/Qjrs(“content”)=trim(econtent(i))
G+]E/Qjrs.Update
G+]E/Qj％>
G+]E/Qj<tr>
G+]E/Qj<td align=“center”><％ =rs(“pdate”)
G+]E/Qj％>.</td>
G+]E/Qj<td><font color=“＃008080”><％ =rs(“title”) ％>.</font></td>
G+]E/Qj<td><font color=“＃008080”>插入新记录成功！</font></td>
G+]E/Qj</tr>
G+]E/Qj<％ End if
G+]E/QjNext％>
G+]E/Qj<％ case “delete”
G+]E/Qjfor i=0 to 9
G+]E/Qjif inStr(id,“, ”＆trim(rs(“id”))＆“,” )>0 then％>
G+]E/Qj<tr>
G+]E/Qj<td align=“center”><％ =rs(“pdate”)
G+]E/Qj％>.</td>
G+]E/Qj<td><％ =rs(“title”) ％>.</td>
G+]E/Qj<td><font color=“＃FF0000”>记录删除成功！</font></td>
G+]E/Qj</tr>
G+]E/Qj<％
G+]E/Qjrs.delete 1
G+]E/QjEnd if
G+]E/Qjrs.movenext
G+]E/Qjif rs.eof then Exit for End if
G+]E/QjNext
G+]E/Qjcase “update”
G+]E/Qjfor i=0 to 9
G+]E/Qjif inStr(id,“,”＆trim(rs(“id”))＆“,”)>0 then
G+]E/Qjrs(“title”)=trim(etitle(i))
G+]E/Qjrs(“pdate”)= trim(epdate(i))
G+]E/Qjrs(“writer”)= trim(ewriter(i))
G+]E/Qjrs(“content”)= trim(econtent(i))
G+]E/Qjrs.Update ％>
G+]E/Qj<tr>
G+]E/Qj<td align=“center”><％ =rs(“pdate”)
G+]E/Qj％>.</td>
G+]E/Qj<td><％ =rs(“title”) ％>.</td>
G+]E/Qj<td><font color=“＃0000FF”>记录修改成功！</font></td>
G+]E/Qj</tr>
G+]E/Qj<％ End if
G+]E/Qjrs.movenext
G+]E/Qjif rs.eof then Exit for End if
G+]E/QjNext
G+]E/Qjend select
G+]E/Qj％>83437
- 返回页面顶端
- 上一篇：asp作品保护方案
- 下一篇：仅用XSL和ASP实现分页功能(代码)
返回上一页
打印本文
加入收藏
页面最后更新时间：2011年5月18日
