快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

利用ASP在线维护数据库

随着因特网的发展,在网络环境中,数据库应用徐徐向操作简朴、功能实用的方向发展。本文介绍如何利用ASP技术实现对数据库进行在线维护的方式,并给出了各种功能键的实现过程。
实现功能

实现环境如下:
客户端: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
%>
返回类别: 教程
上一教程: 手把手教你使用VB来创建ASP组件(1)
下一教程: 利用PAGE.ISPOSTBACK属性保持用户输入的FRAMEWORK

您可以阅读与"利用ASP在线维护数据库"相关的教程:
· 利用ASP连接各种数据库
· 利用ASP连接各种数据库
· 利用APPLICATION和SESSION优化ASP的数据库联接
· 利用ASP存取各种常用类型数据库(1)
· 利用ASP存取各种常用类型数据库(4)
    微笑服务 优质保证 索取样品