一、刪除記錄

　　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 這句是過程的結束語，但從你貼出來的代碼來看并沒有開頭。