-
-
'แทนที่ Lamking เนื้อหาฐานข้อมูล 2005-8-22
'อัปเดตและแก้ไข: 2006-6-28
'http://www.imbbs.cn qq: 628557
'ขายชื่อโดเมนพื้นที่ การผลิตหน้าเว็บ
-
'โปรดทำการเปลี่ยนแปลงสถานการณ์ต่าง ๆ ของคุณ
const s1 = "admin" 'สตริงที่จะถูกแทนที่
const s2 = "1234" 'แทนที่ด้วยสตริง
const db = "lamking.mdb" 'ฐานข้อมูล
const congorsecase = true 'ไม่สนใจกรณี
'ข้อมูลต่อไปนี้ไม่จำเป็นต้องเปลี่ยนแปลง
Dim ors, Ors2, Conn, I
ตั้งค่า conn = server.createObject ("adodb.connection"))
conn.open "ผู้ให้บริการ = microsoft.jet.oledb.4.0; แหล่งข้อมูล =" & server.mappath (db)
set ors = conn.openschema (20)
ทำในขณะที่ไม่ใช่ ors.eof
ถ้า ucase (ors ("table_type")) = "ตาราง" จากนั้น 'ถ้าเป็นตารางผู้ใช้
'ลูปแทนที่แต่ละฟิลด์ของตาราง
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) .properties ("isautoincrement") = false และ ors2 (i) .type <> 205 แล้ว
ors2 (ors2 (i) .name) = myreplace (ors2 (i) .value)
สิ้นสุดถ้า
ต่อไป
ors2.update
ors2.movenext
วง
ors2.close
Set ors2 = ไม่มีอะไร
สิ้นสุดถ้า
ors.movenext
วง
ors.close
ตั้งค่า ors = ไม่มีอะไร
conn.close
ตั้งค่า conn = ไม่มีอะไร
Response.write "การเปลี่ยนเสร็จสมบูรณ์"
ฟังก์ชั่น myreplace (byval tstr)
regex หรี่
ถ้า tSTR = "" หรือ ISNULL (TSTR) จากนั้นออกจากฟังก์ชัน
ตั้งค่า regex = ใหม่ regexp
regex.global = true
regex.ignorecase = ไม่รู้
regex.multiline = true
regex.pattern = s1
myreplace = regex.replace (TSTR, S2)
ตั้งค่า regex = ไม่มีอะไร
ฟังก์ชันสิ้นสุด
-