Vous pouvez modifier la fonction myreplace pour implémenter des remplacements complexes Haha, cela semble peu utile. Le but principal est de voir comment lire la table d'accès et la liste de champs
<%.
'####################################
'Remplacer le contenu de la base de données depuis le 22/08/2005
'http://www.lamking.comQQ:628557
'####################################
Dim Db, Connstr, conn, rs, rs2, str1, str2, I
str1="abcd" 'Chaîne à remplacer
str2="1234" 'Remplacez la chaîne par
Db="lamking.mdb"
Définir conn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
Conn.Ouvrir ConnStr
Définir rs = conn.OpenSchema(20)
Faire sans le faire rs.eof
Si rs("TABLE_TYPE")="TABLE" Alors
Définir Rs2=Server.Createobject("adodb.recordset")
Rs2.Open "select * from ["&rs("TABLE_NAME")&"]",conn,1,3
Faire sans Rs2.Eof
Pour I=0 à Rs2.fields.count-1
Si Rs2(i).Properties("ISAUTOINCREMENT") = False Alors
Rs2(Rs2(i).name)=Monreplace(Rs2(i).value)
Fin si
Suivant
Rs2.Movenext
Boucle
Rs2.Fermer
Définir Rs2 = rien
Fin si
Rs.Movenext
Boucle
Rs.fermer
Définir Rs = rien
Conn.fermer
Définir Conn = rien
Réponse. Écrivez « Remplacement terminé »
Fonction myreplace (byval Tstr)
Si Tstr="" Ou isnull(Tstr) Alors
Fonction de sortie
Autre
monReplace=remplacer(Tstr,str1,str2)
Fin si
Fonction de fin
%>