【asp源码栏目提醒】:网学会员asp源码为您提供《ASP数据库连接源代码》 - 计算机教材参考,解决您在《ASP数据库连接源代码》 - 计算机教材学习中工作中的难题,参考学习。
.数据库连接用来单独编制连接文件conn.
asp Set conn Server.CreateObjectADODB.Connection conn.Open DRIVERMicrosoft Access Driver .mdb DBQ Server.MapPathbbsdb1user.mdb 用来连接bbsdb1目录下的user.mdb数据库 显示数据库记录 原理:将数据库中的记录一一显示到客户端浏览器,依次读出数据库中的每一条记录 如果是从头到尾:用循环并判断指针是否到末 使用: not rs.eof 如果是从尾到头:用循环并判断指针是否到开始 使用:not rs.bof --include fileconn.
asp-- 包含conn.
asp用来打开
bbsdb1目录下的user.mdb数据 库 set rsserver.CreateObjectadodb.recordset 建立recordset对象 sqlstrselect from message ---- message为数据库中的一个数据表,即你要显示的 数据所存放的数据表 rs.open sqlstrconn13 ---- 表示打开数据库的方式 rs.movefirst ---- 将指针移到第一条记录 while not rs.eof ---- 判断指针是否到末尾 response.writersname ---- 显示数据表message中的name字段 rs.movenext ---- 将指针移动到下一条记录 wend ---- 循环结束 ------------------------------------------------------ rs.close conn.close 这几句是用来关闭数据库 set rsnothing set connnothing ------------------------------------------------------- 其中response对象是服务器向客户端浏览器发送的信息 增加数据库记录 增加数据库记录用到rs.addnewrs.update两个函数 --include fileconn.
asp-- 包含conn.
asp用来打开bbsdb1目录下的user.mdb数据 库 set rsserver.CreateObjectadodb.recordset 建立recordset对象 sqlstrselect from message ---- message为数据库中的一个数据表,即你要显示的 数据所存放的数据表 rs.open sqlstrconn13 ---- 表示打开数据库的方式 rs.addnew 新增加一条记录 rsnamexx 将xx的值传给name字段 rs.update 刷新数据库 ------------------------------------------------------ rs.close conn.close 这几句是用来关闭数据库 set rsnothing set connnothing ------------------------------------------------------- .删除一条记录 删除数据库记录主要用到rs.deleters.update --include fileconn.
asp-- 包含conn.
asp用来打开bbsdb1目录下的user.mdb数据 库 dim name namexx set rsserver.CreateObjectadodb.recordset 建立recordset对象 sqlstrselect from message ---- message为数据库中的一个数据表,即你要显示的数据所存放的数据表 rs.open
sqlstrconn13 ---- 表示打开数据库的方式 ------------------------------------------------------- while not rs.eof if rs.namename then rs.delete rs.update 查询数据表中的name字段的值是否等于变量name的值xx,如果符合就执行删 除, else 否则继续查询直到指针到末尾为止 rs.movenext emd if wend ------------------------------------------------------ ------------------------------------------------------ rs.close conn.close 这几句是用来关闭数据库 set rsnothing set connnothing ------------------------------------------------------- 关于数据库的查询 a
查询字段为字符型 dim userpassqqmailmessage userrequest.formuser passrequest.formpass qqrequest.formqq mailrequest.formmail messagerequest.formmessage if trimuserxx or trimpassxx then 检测user值和pass值是否为空,可以检测 到空格 response.write注册信息不能为空 else set rsserver.CreateObjectadodb.recordset sqlstrselect from user where useruser 查询user数据表中的user字段其中user 字段为字符型 rs.open sqlstrconn13 if rs.eof then rs.addnew rsuseruser rspasspass rsqqqq rsmailmail rsmessagemessage rs.update rs.close conn.close set rsnothing set connnothing response.write
注册成功 end if rs.close conn.close set rsnothing set connnothing response.write注册重名 b查询字段为数字型 dim num numrequest.formnum set rsserver.CreateObjectadodb.recordset sqlstrselect from message where idnum 查询message数据表中id字段的值是否与 num相等,其中id为数字型 rs.open sqlstrconn13 if not rs.eof then rs.delete rs.update rs.close conn.close set rsnothing set connnothing response.write删除成功 end if rs.close conn.close set rsnothing set connnothing response.write删除失败