登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>ASP教程>>脚本编码>>ASP教程:删除记录和链接数据库程序解释
ASP教程:删除记录和链接数据库程序解释
来源:网页教学网 ‖ 作者:佚名 ‖ 点击: ‖ 时间:12-01-17 16:14:02 ‖ 【 】‖ 我要投稿

一、删除记录

opendataconn '打开数据库连接
xxlb=RtnReplaceInt(Trim(request("xxlb")),0) '从里到外依次是接收xxlb变量,去除变量两端的空格,最外层是一个自定义函数,估计与替换有关。
id=changechr(request("id")) '接收id,并转换成字符串
ids=split(id,",") '把id按 "," 分割,并保存到数组ids中
for i=0 to ubound(ids) '用for循环遍历数组
tt=trim(ids(i)) '数组元素去除两端空格后赋值给tt
conn.execute"delete from house where id="&tt&"" '删除数据表中id=tt变量的记录
next '循环结束
response.redirect "house.asp?xxlb="&xxlb&"" '跳转到house页面并用get方法传递xxlb参数,值为xxlb变量的值.
closedataconn 关闭数据库连接

二、连接数据库

dim conn '定义变量
dim char_str(20) '定义数组
sub OpenDataConn() '自定义过程,用户链接数据库地
dim connstr 定义变量
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
connstr = connstr & Server.MapPath("../../data/fyhouse_free.mdb") '数据库驱动字符串
'response.write connstr 输出变量connstr的值
set conn=Server.CreateObject("AdoDb.Connection") '创建连接对象
conn.Open connstr '链接数据库
end sub 这句是过程的结束语,但从你贴出来的代码来看并没有开头。

加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:admin
  • 上一篇:ASP代码出现80040e14错误的解决方法
  • 下一篇:无
  • 相关文章列表
    请文明参与讨论,禁止漫骂攻击。  
    网友评论