黑基网 首页 学院 系统管理 查看内容

ASP数据库简单操作教程浅析

2005-5-12 08:02| 投稿: net

摘要: 来源:ChinaITLab 1 >.数据库连接(用来单独编制连接文件conn.asp)  < %  Set conn = Server.CreateObject("ADODB.Conn...
来源:ChinaITLab 1 >.数据库连接(用来单独编制连接文件conn.asp)  < %  Set conn = Server.CreateObject("ADODB.Connection")  conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\bbs\db1\user.mdb")  % >  (用来连接bbs\db1\目录下的user.mdb数据库)  <2 >显示数据库记录    原理:将数据库中的记录一一显示到客户端浏览器,依次读出数据库中的每一条记录  如果是从头到尾:用循环并判断指针是否到末 使用: not rs.eof  如果是从尾到头:用循环并判断指针是否到开始 使用:not rs.bof    < ! --#include file=conn.asp-- > (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据  库)  < %  set rs=server.CreateObject("adodb.recordset") (建立recordset对象)  sqlstr="select * from message" ---- >(message为数据库中的一个数据表,即你要显示的  数据所存放的数据表)  rs.open sqlstr,conn,1,3 ---- >(表示打开数据库的方式)  rs.movefirst ---- >(将指针移到第一条记录)  while not rs.eof ---- >(判断指针是否到末尾)  response.write(rs("name")) ---- >(显示数据表message中的name字段)  rs.movenext ---- >(将指针移动到下一条记录)  wend ---- >(循环结束)  ------------------------------------------------------  rs.close  conn.close 这几句是用来关闭数据库  set rs=nothing  set conn=nothing  -------------------------------------------------------  % >  其中response对象是服务器向客户端浏览器发送的信息  <3 >增加数据库记录  增加数据库记录用到rs.addnew,rs.update两个函数    < !--#include file=conn.asp-- > (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据  库)  < %  set rs=server.CreateObject("adodb.recordset") (建立recordset对象)  sqlstr="select * from message" ---- >(message为数据库中的一个数据表,即你要显示的  数据所存放的数据表)  rs.open sqlstr,conn,1,3 ---- >(表示打开数据库的方式)  rs.addnew 新增加一条记录  rs("name")="xx" 将xx的值传给name字段  rs.update 刷新数据库  ------------------------------------------------------  rs.close  conn.close 这几句是用来关闭数据库  set rs=nothing  set conn=nothing  -------------------------------------------------------  % >  .<4 >删除一条记录  删除数据库记录主要用到rs.delete,rs.update  < !--#include file=conn.asp-- > (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据  库)  < %  dim name  name="xx"  set rs=server.CreateObject("adodb.recordset") (建立recordset对象)  sqlstr="select * from message" ---- >(message为数据库中的一个数据表,即你要显示的数据所存放的数据表)  rs.open sqlstr,conn,1,3 ---- >(表示打开数据库的方式)  -------------------------------------------------------  while not rs.eof  if rs.("name")=name then  rs.delete  rs.update 查询数据表中的name字段的值是否等于变量name的值"xx",如果符合就执行删  除,  else 否则继续查询,直到指针到末尾为止  rs.movenext  emd if  wend  ------------------------------------------------------  ------------------------------------------------------  rs.close  conn.close 这几句是用来关闭数据库  set rs=nothing  set conn=nothing  -------------------------------------------------------  % >  <5 >关于数据库的查询  (a) 查询字段为字符型  < %  dim user,pass,qq,mail,message  user=request.form("user")  pass=request.form("pass")  qq=request.form("qq")  mail=request.form("mail")  message=request.form("message")  if trim(user)&"x"="x" or trim(pass)&"x"="x" then (检测user值和pass值是否为空,可以检测  到空格)  response.write("注册信息不能为空")  else  set rs=server.CreateObject("adodb.recordset")  sqlstr="select * from user where user='"&user&"'" (查询user数据表中的user字段其中user  字段为字符型)  rs.open sqlstr,conn,1,3  if rs.eof then  rs.addnew  rs("user")=user  rs("pass")=pass  rs("qq")=qq  rs("mail")=mail  rs("message")=message  rs.update  rs.close  conn.close  set rs=nothing  set conn=nothing  response.write("注册成功")  end if  rs.close  conn.close  set rs=nothing  set conn=nothing  response.write("注册重名")  % >  (b)查询字段为数字型  < %  dim num  num=request.form("num")  set rs=server.CreateObject("adodb.recordset")  sqlstr="select * from message where id="&num (查询message数据表中id字段的值是否与  num相等,其中id为数字型)  rs.open sqlstr,conn,1,3  if not rs.eof then  rs.delete  rs.update  rs.close  conn.close  set rs=nothing  set conn=nothing  response.write("删除成功")  end if  rs.close  conn.close  set rs=nothing  set conn=nothing  response.write("删除失败")  % >  %>  
小编推荐:欲学习电脑技术、系统维护、网络管理、编程开发和安全攻防等高端IT技术,请 点击这里 注册黑基账号,公开课频道价值万元IT培训教程免费学,让您少走弯路、事半功倍,好工作升职加薪!



免责声明:本文搜集整理自互联网,版权归原作者所有,文中所述不代表本站观点,若有侵权或转载等不当之处请联系我们处理,请我们一起为维护良好的互联网秩序而努力!联系方式见网站首页右下角。


鲜花

握手

雷人

路过

鸡蛋

相关阅读

最新评论


新出炉

返回顶部