<%
'#################################################################################################################### zu oblasiten
'Ersetzen Sie den Datenbankinhalt Laming 2005-8-22
'Aktualisiert und überarbeitet: 2006-6-28
'http://www.imbbs.cn qq: 628557
'Verkaufter Raumdomainname. Webseitenproduktion.
'#################################################################################################################### zu oblasiten
„Bitte ändern Sie Änderungen an Ihren verschiedenen Situationen
Const s1 = "admin" 'Die zu ersetzende Zeichenfolge
Const S2 = "1234" 'ersetzt durch String
Const db = "laming.mdb" 'Datenbank
Const ignorecase = true 'ignorieren Sie den Fall
'Die folgenden Daten müssen nicht geändert werden
Dim Ors, ORS2, Conn, ich
Setzen Sie conn = server.createObject ("adodb.Connection").
conn.open "Provider = microsoft.jet.oledb.4.0; Data Source =" & Server.Mappath (DB)
Setzen Sie ORS = Conn.openschema (20)
Tun, während nicht ors.eof
Wenn ucase (ors ("table_type")) = "Tabelle", dann 'Wenn es sich um eine Benutzertabelle handelt
'Schleife ersetzt jedes Feld der Tabelle
Setzen Sie ors2 = server.createObject ("adodb.recordset")
ors2.open "ausgewählt * aus [" & ors ("table_name") & "]", conn, 1,3
Tun, während nicht ors2.eof
Für i = 0 bis ors2.fields.count-1
„Wenn es sich um ein OLE -Objekt oder ein automatisches Nummerierungsfeld handelt, wird es nicht ersetzt
Wenn ors2 (i) .Properties ("isautoincrement") = false und ors2 (i) .typ <> 205 Dann
ors2 (ors2 (i) .name) = myReplace (ors2 (i) .Value)
Ende wenn
Nächste
ors2.update
ors2.Movenext
Schleife
ors2.close
Setzen Sie Ors2 = nichts
Ende wenn
ors.Movenext
Schleife
ORS.CLOSE
Setze ors = nichts
Conn.close
Setzen Sie Conn = nichts
Antwort.Write "Ersatz abgeschlossen"
Funktion MyReplace (Byval TSTR)
Dim Regex
Wenn tstr = "" oder isnull (TSTR) beenden Sie die Funktion
Setzen Sie Regex = New Regexp
Regex.global = true
Regex.ignorecase = ignorecase
Regex.multiline = true
Regex.pattern = s1
myReplace = regex.replace (TSTR, S2)
REGEX = nichts setzen
Endfunktion
%>