<٪
'###################################################################
استبدل محتوى قاعدة البيانات بقعة 2005-8-22
"تم التحديث والمراجعة: 2006-6-28
'http://www.imbbs.cn qq: 628557
'بيع اسم مجال الفضاء. إنتاج صفحة الويب.
'###################################################################
يرجى إجراء تغييرات على حالاتك المختلفة
const s1 = "admin" 'السلسلة المراد استبدالها
const S2 = "1234" "تم استبداله بالسلسلة
const db = "lamking.mdb" قاعدة بيانات
const agnorecase = true 'تجاهل الحالة
لا يلزم تغيير البيانات التالية
Dim ORS ، ORS2 ، conn ، i
تعيين conn = server.createObject ("adodb.connection")
conn.open "Provider = microsoft.jet.oledb.4.0 ؛ data source =" & server.mappath (db)
تعيين ORS = conn.openschema (20)
افعل بينما لا ors.eof
إذا كان UCAS
"حلقة تحل محل كل حقل من الجدول
SET ORS2 = server.createObject ("adodb.recordset")
ORS2.Open "حدد * من [" & ors ("table_name") و "]" ، conn ، 1،3
افعل بينما لا ors2.eof
ل i = 0 إلى ors2.fields.count-1
إذا كان كائن OLE أو حقل ترقيم تلقائي ، فلن يتم استبداله
إذا كان ORS2 (i).
ORS2 (ORS2 (i) .name) = myreplace (ors2 (i) .value)
إنهاء إذا
التالي
ORS2.UPDATE
ORS2.Movenext
حلقة
ORS2.Close
تعيين ORS2 = لا شيء
إنهاء إذا
ors.movenext
حلقة
Ors.close
تعيين ORS = لا شيء
conn.close
تعيين conn = لا شيء
استجابة. "الاستبدال الانتهاء"
وظيفة myreplace (byval tstr)
قاتمة regex
إذا كان TSTR = "" أو isNull (TSTR) ثم الخروج وظيفة
تعيين regex = جديد regexp
regex.global = صحيح
regex.ignorecase = agnorecase
regex.multiline = صحيح
regex.pattern = s1
myreplace = regex.replace (tstr ، s2)
تعيين regex = لا شيء
وظيفة نهاية
٪>