v1. レコードの削除
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& 'ハウス ページにジャンプし、get メソッドを使用して xxlb パラメータを渡します。値は xxlb 変数の値です。
closedataconn はデータベース接続を閉じます
2. データベースに接続します
dim conn '変数を定義する
dim char_str(20) '配列を定義
sub OpenDataConn() 'カスタマイズされたプロセス、ユーザー リンク データベースの場所
dim connstr は変数を定義します
connstr = プロバイダ=Microsoft.Jet.OLEDB.4.0;データ ソース=
connstr = connstr & Server.MapPath(../../data/fyhouse_free.mdb) 'データベースドライバー文字列
'response.write connstr は変数 connstr の値を出力します
set conn=Server.CreateObject(AdoDb.Connection) '接続オブジェクトの作成
conn.Open connstr 'リンクデータベース
end sub この文はプロセスの終わりですが、投稿したコードから判断すると、始まりがありません。