-
您的位置:首页 → 精文荟萃 → 软件资讯 → 利用ASP在线维护数据库
利用ASP在线维护数据库
时间:2004/10/7 19:09:00来源:本站整理作者:蓝点我要评论(0)
-
随着因特网的发展,在网络环境中,数据库应用渐渐向操作简单、功能实用的方向发展。本文介绍如何利用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
%>
<% =rs(“pdate”) %>. |
<% =rs(“title”) %>. |
插入新记录成功! |
<% End if
Next%>
<% case “delete”
for i=0 to 9
if inStr(id,“, ”&trim(rs(“id”))&“,” )>0 then%>
<% =rs(“pdate”) %>. |
<% =rs(“title”) %>. |
记录删除成功! |
<%
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 %>
<% =rs(“pdate”) %>. |
<% =rs(“title”) %>. |
记录修改成功! |
<% End if
rs.movenext
if rs.eof then Exit for End if
Next
end select
%>
相关阅读
Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么
-
热门文章
360快剪辑怎么使用 36金山词霸如何屏幕取词百度收购PPS已敲定!3
最新文章
微信3.6.0测试版更新了微信支付漏洞会造成哪
360快剪辑怎么使用 360快剪辑软件使用方法介酷骑单车是什么 酷骑单车有什么用Apple pay与支付宝有什么区别 Apple pay与贝贝特卖是正品吗 贝贝特卖网可靠吗
人气排行
xp系统停止服务怎么办?xp系统升级win7系统方电脑闹钟怎么设置 win7电脑闹钟怎么设置office2013安装教程图解:手把手教你安装与qq影音闪退怎么办 QQ影音闪退解决方法VeryCD镜像网站逐个数,电驴资料库全集同步推是什么?同步推使用方法介绍QQ2012什么时候出 最新版下载EDiary——一款好用的电子日记本
查看所有0条评论>>