แทนที่เนื้อหาฐานข้อมูล

-

-

'แทนที่ 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 = ไม่มีอะไร

ฟังก์ชันสิ้นสุด

-