<%
'#############################################################.
'Reemplace el contenido de la base de datos Laming 2005-8-22
'Actualizado y revisado: 2006-6-28
'http://www.imbbs.cn Qq: 628557
'Se vendió el nombre de dominio del espacio. Producción de la página web.
'#############################################################.
'Haga cambios en sus diferentes situaciones
Const s1 = "admin" 'la cadena a reemplazar
Const s2 = "1234" 'reemplazado con cadena
Const db = "Lamking.mdb" 'Base de datos
Const ignorecase = true 'ignorar el caso
'Los siguientes datos no necesitan cambiarse
Dim ORS, ORS2, Conn, yo
Establecer conn = server.createObject ("ADODB.Connection")
Conn.open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =" & Server.Mappath (DB)
Establecer ORS = conn.openschema (20)
Haz mientras no o.Eof
Si ucase (ors ("table_type")) = "tabla" entonces 'si es una tabla de usuario
'Loop reemplaza cada campo de la tabla
Establecer ors2 = server.createObject ("ADODB.RecordSet")
ORS2.open "Seleccionar * de [" & ors ("table_name") & "]", Conn, 1,3
Hacer mientras no ors2.Eof
Para i = 0 a ors2.fields.count-1
'Si se trata de un objeto OLE o un campo de numeración automática, no se reemplazará
If ors2 (i) .properties ("isautoincement") = false y ors2 (i) .type <> 205 entonces
ORS2 (ORS2 (I) .Name) = MyReplace (ORS2 (I) .Value)
Final si
Próximo
ORS2.UPDATE
ORS2.Movenext
Bucle
ORS2. CLOSE
establecer ORS2 = nada
Final si
ORS.MoVENEXT
Bucle
ORS. Clar
Establecer ORS = nada
Conn.clar
Establecer conn = nada
Respuesta.WRITE "Reemplazo completado"
Función MyReplace (Byval TSTR)
Regex oscuro
If tstr = "" o isnull (tstr) y luego salir de la función
Establecer regex = new Regexp
Regex.global = verdadero
Regex.ignorecase = ignorecase
Regex.multiline = verdadero
Regex.pattern = s1
myreplace = regex.replace (TSTR, S2)
Establecer regex = nada
Función final
%>