Você pode modificar a função myreplace para implementar substituições complexas Haha, parece ser de pouca utilidade. O objetivo principal é ver como ler a tabela de acesso e a lista de campos
<%.
'###################################
'Substitua o conteúdo do banco de dados que está faltando em 22/08/2005
'http://www.lamking.comQQ:628557
'###################################
Dim Db,Connstr,conn,rs,rs2,str1,str2,I
str1="abcd" 'String a ser substituída
str2="1234" 'Substitua a string por
Db="lamking.mdb"
Definir conn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
Conn.Open ConnStr
Definir rs = conn.OpenSchema(20)
Faça enquanto não rs.eof
Se rs("TABLE_TYPE")="TABLE" Então
Definir Rs2=Server.Createobject("adodb.recordset")
Rs2.Open "selecione * de ["&rs("TABLE_NAME")&"]",conn,1,3
Faça enquanto não Rs2.Eof
Para I=0 a Rs2.fields.count-1
Se Rs2(i).Properties("ISAUTOINCREMENT") = Falso Então
Rs2(Rs2(i).nome)=Meusubstituto(Rs2(i).valor)
Terminar se
Próximo
Rs2.Movenext
Laço
Rs2.Fechar
Defina Rs2 = nada
Terminar se
Rs. Movenext
Laço
Rs.fechar
Definir Rs = nada
Conexão próxima
Definir Conexão = nada
Response.Write "Substituição concluída"
Função myreplace(byval Tstr)
Se Tstr="" Ou isnull(Tstr) Então
Função de saída
Outro
myReplace=substituir(Tstr,str1,str2)
Terminar se
Função final
%>