<%
'Begitu
'Ganti konten database Lamking 2005-8-22
'Diperbarui dan direvisi: 2006-6-28
'http://www.imbbs.cn qq: 628557
'Menjual nama domain ruang. Produksi halaman web.
'Begitu
'Harap buat perubahan pada situasi Anda yang berbeda
Const s1 = "admin" 'string yang akan diganti
Const S2 = "1234" 'diganti dengan string
Const db = "lamking.mdb" 'Database
Const ignorecase = true 'abaikan kasus
'Data berikut tidak perlu diubah
Redup ors, ors2, conn, i
Set Conn = Server.CreateObject ("AdodB.Connection")
conn.open "penyedia = microsoft.jet.oledb.4.0; sumber data =" & server.mappath (db)
Set ors = conn.openschema (20)
Lakukan saat tidak ors.eof
Jika uCase (ors ("table_type")) = "Table" maka 'jika itu adalah tabel pengguna
'Loop menggantikan setiap bidang tabel
Set ors2 = server.createObject ("adodb.recordset")
ors2.open "pilih * dari [" & ors ("table_name") & "]", conn, 1,3
Lakukan saat tidak ors2.eof
Untuk i = 0 ke ors2.fields.count-1
'Jika itu adalah objek OLE atau bidang penomoran otomatis, itu tidak akan diganti
Jika ors2 (i) .properties ("isAutoincrement") = false dan ors2 (i) .type <> 205 kemudian
ors2 (ors2 (i) .name) = myreplace (ors2 (i) .value)
Akhiri jika
Berikutnya
ors2.update
ors2.movenext
Lingkaran
ors2.close
atur ors2 = tidak ada
Akhiri jika
ors.movenext
Lingkaran
ors.close
Atur ors = tidak ada
Conn.Close
Atur conn = tidak ada
Response.write "Penggantian selesai"
Function myreplace (byval tstr)
Redup regex
Jika tstr = "" atau isnull (tstr) maka fungsi keluar
Setel regex = RegExp baru
Regex.global = true
Regex.ignorecase = Ignorecase
Regex.multiline = true
Regex.pattern = S1
MyReplace = regex.replace (TSTR, S2)
Atur regex = tidak ada
Fungsi akhir
%>