v1. Delete records
opendataconn 'Open database connection
xxlb=RtnReplaceInt(Trim(request(xxlb)),0) 'From the inside to the outside, the xxlb variable is received, and the spaces at both ends of the variable are removed. The outermost layer is a custom function, which is probably related to replacement.
id=changechr(request(id)) 'Receive id and convert it into a string
ids=split(id,,) 'Split the id by, and save it to the array ids
for i=0 to ubound(ids) 'Use a for loop to traverse the array
tt=trim(ids(i)) 'Remove the spaces at both ends of the array elements and assign them to tt
conn.executedelete from house where id=&tt& 'Delete the record of id=tt variable in the data table
next 'end of loop
response.redirect house.asp?xxlb=&xxlb& 'Jump to the house page and use the get method to pass the xxlb parameter, the value is the value of the xxlb variable.
closedataconn closes the database connection
2. Connect to the database
dim conn 'Define variables
dim char_str(20) 'Define array
sub OpenDataConn() 'Customized process, user link database location
dim connstr defines variables
connstr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=
connstr = connstr & Server.MapPath(../../data/fyhouse_free.mdb) 'Database driver string
'response.write connstr outputs the value of the variable connstr
set conn=Server.CreateObject(AdoDb.Connection) 'Create connection object
conn.Open connstr 'Link database
end sub This sentence is the end of the process, but judging from the code you posted, there is no beginning.