<%
'##################################################################
«Remplacez le contenu de la base de données LAMKING 2005-8-22
'Mis à jour et révisé: 2006-6-28
'http://www.imbbs.cn qq: 628557
«Nom de domaine spatial vendu. Production de pages Web.
'##################################################################
'Veuillez apporter des modifications à vos différentes situations
Const s1 = "admin" 'la chaîne à remplacer
Const S2 = "1234" 'remplacé par une chaîne
Const db = "lamking.mdb" 'Base de données
Const ignorecase = true 'ignorer le cas
'Les données suivantes n'ont pas besoin d'être modifiées
Dim ors, ors2, conn, i
Définir Conn = Server.CreateObject ("Adodb.Connection")
Conn.open "Provider = Microsoft.Jet.oledb.4.0; Data Source =" & Server.Mappath (DB)
Set Ors = Conn.OpenSchema (20)
Faire tout en ne faisant pas
Si ucase (ors ("table_type")) = "table" alors 's'il s'agit d'une table utilisateur
'Loop remplace chaque champ de la table
SET ORS2 = Server.CreateObject ("Adodb.RecordSet")
Ors2.Open "SELECT * FROM [" & ORS ("TABLE_NAME") & "]", Conn, 1,3
Faire tout en ne faisant pas
Pour i = 0 à ors2.fields.count-1
'S'il s'agit d'un objet OLE ou d'un champ de numérotation automatique, il ne sera pas remplacé
Si Ors2 (i) .Properties ("IsautOoinCment") = FALSE et ORS2 (I). Type <> 205 alors
ors2 (ors2 (i) .name) = myreplace (ors2 (i) .value)
Terminer si
Suivant
ORS2.Update
ors2.movènex
Boucle
ORS2.Close
Définir ORS2 = rien
Terminer si
ours
Boucle
ours
Définir ORS = rien
Conn.Close
Définir Conn = Rien
Réponse.WRITE "Remplacement terminé"
Fonction myreplace (byVal tSTR)
Diche
Si TSTR = "" ou ISNULL (TSTR), alors la fonction de sortie
Définir regex = new regexp
Regex.global = true
Regex.ignorecase = ignorecase
Regex.multiline = true
Regex.pattern = s1
myreplace = regex.replace (TSTR, S2)
Définir Regex = rien
Fonction finale
%>