v1. Eliminar registros
opendataconn 'Abrir conexión a base de datos
xxlb=RtnReplaceInt(Trim(request(xxlb)),0) 'Desde adentro hacia afuera, se recibe la variable xlb y se eliminan los espacios en ambos extremos de la variable. La capa más externa es una función personalizada, que es. probablemente relacionado con el reemplazo.
id=changechr(request(id)) 'Recibir id y convertirlo en una cadena
ids=split(id,,) 'Dividimos el id y lo guardamos en la matriz ids
for i=0 to ubound(ids) 'Utilice un bucle for para recorrer la matriz
tt=trim(ids(i)) 'Elimina los espacios en ambos extremos de los elementos de la matriz y asígnalos a tt
conn.executedelete de la casa donde id=&tt& 'Elimina el registro de la variable id=tt en la tabla de datos
siguiente 'fin del bucle
Response.redirect house.asp?xxlb=&xxlb& 'Salte a la página de inicio y use el método get para pasar el parámetro xlb, el valor es el valor de la variable xlb.
closedataconn cierra la conexión a la base de datos
2. Conéctese a la base de datos
dim conn 'Definir variables
dim char_str(20) 'Definir matriz
sub OpenDataConn() 'Proceso personalizado, ubicación de la base de datos del enlace del usuario
dim connstr define variables
connstr = Proveedor = Microsoft.Jet.OLEDB.4.0; Fuente de datos =
connstr = connstr & Server.MapPath(../../data/fyhouse_free.mdb) 'Cadena del controlador de la base de datos
'response.write connstr genera el valor de la variable connstr
set conn=Server.CreateObject(AdoDb.Connection) 'Crear objeto de conexión
conn.Abrir connstr 'Enlazar base de datos
end sub Esta oración es el final del proceso, pero a juzgar por el código que publicó, no hay comienzo.