函数映射路径(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)&”已更新。”
更新卢比
环形
关闭卢比
注意选择中间有空格，复制时请去掉中间空格。复制代码，另存为.vbs即可。
将纯真数据库转MSSQL数据库也很简单，只需改
程序代码
Conn.open“驱动程序={SQL Server};服务器=(本地);数据库=;uid=;pwd=”
将纯真数据库转MYSQL数据库，只需改
程序代码
Conn.open “Driver={mysql};database=[yourdatabase];uid=[用户名];pwd=[yourpassword];option=16386;”