Función Mappath(n)
Mappath=Fso.getabsolutepathname(n)
Función final
Función IpToNum(Ip)
IpNs=dividir(ip,".")
IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
si err<>0 entonces IpN=0
errar.claro
IpToNum=IpN
Función final
S1=256
S2=256*S1
S3=256*S2
S4=256*S3
en caso de error reanudar siguiente
Establecer Fso=CreateObject("Scripting.FileSystemObject")
Establecer Conexión=CrearObjeto("ADODB.Conexión")
Conn.open "provider=microsoft.jet.oledb.4.0;data source="&Mappath("dat.mdb")
Establecer Rs=CreateObject("ADODB.Recordset")
Rs.open "Seleccione * de d",Conn,2,3
Establezca Fto=Fso.OpenTextFile(Mappath("dat.txt"))
Hacer mientras no Fto.atendofstream
Rs.añadir nuevo
Res=Dividir(Reemplazar(Reemplazar(Fto.Readline," ","")," "," ")," ")
Rs("s")=IpToNum(Res(0))
Rs("e")=IpToNum(Res(1))
Rs("c")=Res(2)
Rs("h")=Res(3)
Wscript.Echo "De "&Res(0)&" a "&Res(1)&" Actualizado."
Rs.actualización
Bucle
Rs.cerrar
MSSQL数据库也很简单，只需改
程序
代码
Conn.open “controlador={SQL Server}; servidor=(local);base de datos= ;uid= ;contraseña= ”
将纯真数据库转MYSQL数据库，只需改
程序代码
Conn.open “Driver={mysql};base de datos=[su base de datos];uid=[nombre de usuario];pwd=[su contraseña];opción=16386;”