استبدال محتوى قاعدة البيانات

<٪

'###################################################################

استبدل محتوى قاعدة البيانات بقعة 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 = لا شيء

وظيفة نهاية

٪>