v一、刪除記錄
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.executedelete 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 這句是過程的結束語，但從你貼出來的程式碼來看並沒有開頭。