一、删除记录
　　
　　opendataconn'打开数据库连接
　　
　　xxlb=RtnReplaceInt(Trim(request("xxlb")),0)'从里到外依次是接收xxlb变量，去除变量两端的空格,最外层是一个自定义函数，估计与替换有关。
　　
　　id=changechr(request("id"))'接收id，并转换成字符串
　　
　　ids=split(id,",")'把id按","分割，并保存到数组ids中
　　
　　fori=0toubound(ids)'用for循环遍历数组
　　
　　tt=trim(ids(i))'数组元素去除两端空格后赋值给tt
　　
　　conn.execute"deletefromhousewhereid="&tt&""'删除数据表中id=tt变量的记录
　　
　　next'循环结束
　　
　　response.redirect"house.asp?xxlb="&xxlb&""'跳转到house页面并用get方法传递xxlb参数,值为xxlb变量的值.
　　
　　closedataconn关闭数据库连接
　　
　　二、连接数据库
　　
　　dimconn'定义变量
　　
　　dimchar_str(20)'定义数组
　　
　　subOpenDataConn()'自定义过程，用户链接数据库地
　　
　　dimconnstr定义变量
　　
　　connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="
　　
　　connstr=connstr&Server.MapPath("../../data/fyhouse_free.mdb")'数据库驱动字符串
　　
　　'response.writeconnstr输出变量connstr的值
　　
　　setconn=Server.CreateObject("AdoDb.Connection")'创建连接对象
　　
　　conn.Openconnstr'链接数据库
　　
　　endsub这句是过程的结束语，但从你贴出来的代码来看并没有开头。