يمكنك تعديل وظيفة myreplace لتنفيذ عمليات الاستبدال المعقدة. يبدو أن الغرض الرئيسي منها هو معرفة كيفية قراءة جدول الوصول وقائمة الحقول
<%.
'#########################################################################################################
'استبدال محتوى قاعدة البيانات lamking 2005-8-22
http://www.lamking.com س:628557
'#########################################################################################################
Dim Db,Connstr,conn,rs,rs2,str1,str2,I
str1="abcd" 'السلسلة المراد استبدالها
str2="1234" 'استبدل السلسلة بـ
ديسيبل = "lamking.mdb"
تعيين conn=Server.CreateObject("ADODB.Connection")
ConnStr='Provider=Microsoft.Jet.OLEDB.4.0;مصدر البيانات='&server.mappath(Db)
كون.فتح كونستر
تعيين rs = conn.OpenSchema(20)
افعل بينما لا rs.eof
إذا كان rs("TABLE_TYPE")="TABLE" إذن
تعيين Rs2=Server.Createobject("adodb.recordset")
Rs2.Open "اختر * من ["&rs("TABLE_NAME")&"]"،conn,1,3
افعل بينما لا Rs2.Eof
بالنسبة لـ I=0 إلى Rs2.fields.count-1
إذا كان Rs2(i).Properties("ISAUTOINCREMENT") = خطأ، إذن
Rs2(Rs2(i).name)=Myreplace(Rs2(i).value)
نهاية إذا
التالي
Rs2.Movenext
حلقة
روبية 2. إغلاق
تعيين Rs2 = لا شيء
نهاية إذا
روبية موفنيكست
حلقة
روبية قريبة
تعيين روبية = لا شيء
كون.كلوز
تعيين كون = لا شيء
الرد.اكتب "اكتمل الاستبدال"
الدالة myreplace(byval Tstr)
إذا كان Tstr = "" أو فارغًا (Tstr) إذن
وظيفة الخروج
آخر
myReplace=replace(Tstr,str1,str2)
نهاية إذا
وظيفة النهاية
%>