Funktion Mappath(n)
Mappath=Fso.getabsolutepathname(n)
Endfunktion
Funktion IpToNum(Ip)
IpNs=split(ip,".")
IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
Wenn err<>0, dann ist IpN=0
irr.klar
IpToNum=IpN
Endfunktion
S1=256
S2=256*S1
S3=256*S2
S4=256*S3
Bei Fehler als nächstes fortfahren
Setze Fso=CreateObject("Scripting.FileSystemObject")
Setze Conn=CreateObject("ADODB.Connection")
Conn.open "provider=microsoft.jet.oledb.4.0;data source="&Mappath("dat.mdb")
Set Rs=CreateObject("ADODB.Recordset")
Rs.open "S elect * from d",Conn,2,3
Set Fto=Fso.OpenTextFile(Mappath("dat.txt"))
Tun Sie dies jedoch nicht mit Fto.atendofstream
Rs.addnew
Res=Split(Replace(Replace(Fto.Readline," ","")," "," ")," ")
Rs("s")=IpToNum(Res(0))
Rs("e")=IpToNum(Res(1))
Rs("c")=Res(2)
Rs("h")=Res(3)
Wscript.Echo „Von „&Res(0)&“ zu „&Res(1)&“ aktualisiert.“
RS.Update
Schleife
Rs.schließen
Wählen Sie S elect中间有空格, 复制时候请去掉中间空格
数据库也很简单,只需改
程序代码
Conn.open „driver={SQL Server}; server=(local);database= ;uid= ;pwd= ”
将纯真数据库转MYSQL数据库, 只需改
程序代码
Conn.open „Driver={mysql};database=[yourdatabase];uid=[username];pwd=[yourpassword];option=16386;“