Função Mappath(n)
Mappath=Fso.getabsolutepathname(n)
Função Final
Função IpToNum(Ip)
IpNs = divisão(ip,".")
IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
se err<>0 então IpN=0
err.claro
IpToNum=IpN
Função Final
S1=256
S2=256*S1
S3=256*S2
S4=256*S3
em caso de erro, retome a seguir
Definir Fso=CreateObject("Scripting.FileSystemObject")
Definir Conn=CreateObject("ADODB.Connection")
Conn.open "provider=microsoft.jet.oledb.4.0;data source="&Mappath("dat.mdb")
Definir Rs=CreateObject("ADODB.Recordset")
Rs.open "Selecionar * de d",Conn,2,3
Set Fto=Fso.OpenTextFile(Mappath("dat.txt"))
Faça enquanto não Fto.atendofstream
Rs.adicionar novo
Res=Dividir(Replace(Replace(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)&" Para "&Res(1)&" Atualizado."
Rs.atualização
Laço
Rs.fechar
注意S eleito中间有空格，复制时候请去掉中间空格。复制代码，保存另存为.vbs 即可。
将纯真数据库转MSSQL数据库也很简单,只需改
程序代码
Conn.open “driver={SQL Server}; servidor=(local);banco de dados= ;uid= ;pwd= ”
将纯真数据库转MYSQL数据库,只需改
程序代码
Conn.open “Driver={mysql};banco de dados=[seu banco de dados];uid=[nome de usuário];pwd=[sua senha];opção=16386;”