Puede modificar la función myreplace para implementar reemplazos complejos Jaja, parece de poca utilidad. El objetivo principal es ver cómo leer la tabla de acceso y la lista de campos
<%.
'####################################
'Reemplazar el contenido de la base de datos que no funciona 2005-8-22
'http://www.lamking.comQQ:628557
'####################################
Atenuar Db,Connstr,conn,rs,rs2,str1,str2,I
str1="abcd" 'Cadena a reemplazar
str2="1234" 'Reemplazar la cadena con
Db="lamking.mdb"
Establecer conexión=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
Conn.Abrir ConnStr
Establecer rs = conexión.OpenSchema(20)
Hacer mientras no rs.eof
Si rs("TABLE_TYPE")="TABLE" Entonces
Establecer Rs2=Server.Createobject("adodb.recordset")
Rs2.Abrir "seleccionar * de ["&rs("TABLE_NAME")&"]",conn,1,3
Hacer mientras no Rs2.Eof
Para I=0 a Rs2.fields.count-1
Si Rs2(i).Properties("ISAUTOINCREMENT") = Falso Entonces
Rs2(Rs2(i).nombre)=Mireemplazo(Rs2(i).valor)
Terminar si
Próximo
Rs2.Movenext
Bucle
Rs2.Cerrar
Establecer Rs2 = nada
Terminar si
Rs.Movenext
Bucle
Rs.cerrar
Establecer Rs = nada
Conex.cerrar
Establecer conexión = nada
Respuesta.Escribe "Reemplazo completado"
Función myreplace(byval Tstr)
Si Tstr="" o es nulo (Tstr) entonces
Función de salida
Demás
miReemplazar=reemplazar(Tstr,str1,str2)
Terminar si
Función final
%>