VBS 純真IP資料庫轉MDB/MSSQL/MySQL

函數映射路徑(n)
Mappath=Fso.getabsolutepathname(n)
結束函數

Function IpToNum(Ip)
IpNs=split(ip,".")
IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
如果 err<>0 則 IpN=0
錯誤清除
IpToNum=IpN
結束功能

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;資料來源=”&Mappath(“dat.mdb”)

設定Rs=CreateObject(“ADODB.Recordset”)
Rs.open "從 d 選擇 *",Conn,2,3

Set Fto=Fso.OpenTextFile(Mappath("dat.txt"))
不做時做 Fto.atendofstream
新增盧比
Res=分割(替換(替換(Fto.Readline," ","")," "," ")," ")
Rs("s")=IpToNum(Res(0))
Rs("e")=IpToNum(Res(1))
Rs("c")=Res(2)
Rs(“h”)=Res(3)
Wscript.Echo“從“&Res(0)&”到“&Res(1)&”已更新。”
更新盧比
環形
關閉盧比

有

中間

空格。

Conn.open“驅動程式={SQL Server};伺服器=(本地);資料庫=;uid=;pwd=”

將純真資料庫轉MYSQL資料庫，只要改

程式碼
Conn.open “Driver={mysql};database=[yourdatabase];uid=[使用者名稱];pwd=[yourpassword];option=16386;”