คุณสามารถแก้ไขฟังก์ชัน myreplace เพื่อใช้การแทนที่ที่ซับซ้อนได้ ฮ่าๆ ดูเหมือนว่าจะมีประโยชน์เพียงเล็กน้อย
เท่านั้น
-
'แทนที่เนื้อหาฐานข้อมูล lamking 2005-8-22
'http://www.lamking.com QQ:628557
-
Dim Db, Connstr, conn, rs, rs2, str1, str2, I
str1="abcd" 'สตริงที่จะถูกแทนที่
str2="1234" 'แทนที่สตริงด้วย
Db="lamking.mdb"
ตั้งค่า conn=Server.CreateObject("ADODB.Connection")
ConnStr = "ผู้ให้บริการ = Microsoft.Jet.OLEDB.4.0; แหล่งข้อมูล = "&server.mappath(Db)
Conn.เปิด ConnStr
ตั้งค่า rs = conn.OpenSchema(20)
ทำในขณะที่ไม่ใช่ rs.eof
ถ้า rs("TABLE_TYPE")="TABLE" แล้ว
ตั้งค่า Rs2=Server.Createobject("adodb.recordset")
Rs2.Open "select * from ["&rs("TABLE_NAME")&"]",conn,1,3
ทำในขณะที่ไม่ใช่ Rs2.Eof
สำหรับ I=0 ถึง Rs2.fields.count-1
ถ้า Rs2(i).Properties("ISAUTOINCREMENT") = False แล้ว
Rs2(Rs2(i).name)=Myreplace(Rs2(i).value)
สิ้นสุดถ้า
ต่อไป
฿2.มูฟเน็กซ์
วนซ้ำ
฿2.ปิด
ตั้ง Rs2 = ไม่มีเลย
สิ้นสุดถ้า
฿มูฟเน็กซ์
วนซ้ำ
฿ปิด
ตั้งค่า Rs=ไม่มีเลย
คอน.ปิด
ตั้งค่า Conn=nothing
การตอบสนองเขียนว่า "การเปลี่ยนเสร็จสมบูรณ์"
ฟังก์ชัน myreplace (byval Tstr)
ถ้า Tstr="" หรือ isnull(Tstr) แล้ว
ออกจากฟังก์ชัน
อื่น
myReplace=แทนที่(Tstr,str1,str2)
สิ้นสุดถ้า
ฟังก์ชันสิ้นสุด
-