ฟังก์ชัน Mappath(n)
Mappath=Fso.getabsolutepathname(n)
ฟังก์ชันสิ้นสุด
ฟังก์ชัน IpToNum(Ip)
IpNs=แยก(ip,".")
IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
ถ้าผิดพลาด <>0 ดังนั้น IpN=0
ผิดพลาดชัดเจน
IpToNum=ไอพีเอ็น
ฟังก์ชันสิ้นสุด
S1=256
S2=256*S1
S3=256*S2
S4=256*S3
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
ตั้งค่า Fso=CreateObject("Scripting.FileSystemObject")
ตั้งค่า Conn=CreateObject("ADODB.Connection")
Conn.open "provider=microsoft.jet.oledb.4.0;data source="&Mappath("dat.mdb")
ตั้งค่า Rs=CreateObject("ADODB.Recordset")
Rs.open "S เลือก * จาก d",Conn,2,3
ตั้ง Fto=Fso.OpenTextFile(Mappath("dat.txt"))
ทำในขณะที่ไม่ใช่ Fto.atendofstream
฿เพิ่มใหม่
Res=Split(แทนที่(แทนที่(Fto.Readline," ","")," "," ")," ")
฿("s")=IpToNum(Res(0))
฿("e")=IpToNum(Res(1))
อาร์เอส("ค")=เรส(2)
฿("h")=ความละเอียด(3)
Wscript.Echo "จาก "&Res(0)&" ถึง "&Res(1)&" อัปเดตแล้ว"
฿ อัปเดต
วนซ้ำ
฿ปิด
注意S elect中间有空格，复制时候请去掉中间空格。复制代码，保存另存为.vbs 即可。
将纯真数据库转MSSQL数据库也很简单，只需改
程序代码
Conn.open “driver={SQL Server}; เซิร์ฟเวอร์=(ท้องถิ่น);ฐานข้อมูล= ;uid= ;pwd= ”
将纯真数据库转MYSQL数据库，只需改
程序代码
Conn.open “Driver={mysql};database=[ฐานข้อมูลของคุณ];uid=[ชื่อผู้ใช้];pwd=[รหัสผ่านของคุณ];ตัวเลือก=16386;”