<%
################################################################D####ws
'Substitua o conteúdo do banco de dados LIMKING 2005-8-22
'Atualizado e revisado: 2006-6-28
'http://www.imbbs.cn qq: 628557
'Nome do domínio do espaço vendido. Produção da página da web.
################################################################D####ws
'Por favor, faça alterações em suas diferentes situações
Const s1 = "admin" 'a string a ser substituída
Const s2 = "1234" 'substituído por string
Const db = "Lamking.mdb" 'banco de dados
Const ignorecase = True 'Ignore Case
'Os seguintes dados não precisam ser alterados
Dim Ors, Ors2, Conn, i
Definir Conn = Server.CreateObject ("Adodb.Connection")
Conn.Open "Provider = Microsoft.Jet.oledb.4.0; Data Source =" & Server.mappath (DB)
Set ors = conn.openschema (20)
Faça enquanto não Ors.eof
Se ucase (ors ("tabela_type")) = "tabela", então 'se for uma tabela de usuários
'Loop substitui cada campo da tabela
Set ors2 = server.createObject ("adodb.recordset")
ors2.open "select * de [" & ors ("tabela_name") & "]", Conn, 1,3
Fazer enquanto não Ors2.eof
Para i = 0 para ors2.fields.count-1
'Se for um objeto OLE ou um campo de numeração automática, não será substituído
Se ors2 (i) .properties ("isautoinCrement") = false e ors2 (i) .Type <> 205 Então
ors2 (ors2 (i) .name) = myRplace (ors2 (i) .Value)
Final se
Próximo
ors2.Update
ors2.movenext
Laço
ors2.close
set ors2 = nada
Final se
Ors.Movenext
Laço
Ors.close
Set ors = nada
Conn.Close
Definir conn = nada
Response.Write "Substituição concluída"
Função mypreplace (byval tstr)
Dim Regex
Se tstr = "" ou isnull (tstr), então a função de saída
Definir regex = novo regexp
Regex.global = true
Regex.ignorecase = ignorecase
Regex.multiline = true
Regex.pattern = s1
MyRplace = regex.Replace (TSTR, S2)
Definir regex = nada
Função final
%>