开发学院 WEB开发 ASP VBS 纯真IP数据库转MDB/MSSQL/MySQL 阅读

VBS 纯真IP数据库转MDB/MSSQL/MySQL

　2009-05-06 10:40:00　来源：WEB开发网　闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�

闂傚倸鍊风粈渚€骞夐敓鐘插瀭闁汇垹鐏氬畷鏌ユ煙閹殿喖顣奸柛搴＄У閵囧嫰骞掗幋婵冨亾閻㈢ǹ纾婚柟鐐灱濡插牊绻涢崱妤冃℃繛宀婁簽缁辨捇宕掑鎵佹瀸闂佺懓鍤栭幏锟�

濠电姷鏁告慨顓㈠箯閸愵喖宸濇い鎾寸箘閹规洟姊绘笟鈧ḿ褍煤閵堝悿娲Ω閳轰胶鍔﹀銈嗗笂閼冲爼鍩婇弴銏＄厪闁搞儮鏅涙禒褏绱掓潏鈺佷槐闁轰焦鎹囬弫鎾绘晸閿燂拷闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�　　闂傚倸鍊烽懗鑸电仚缂備胶绮〃鍛村煝瀹ュ鍗抽柕蹇曞У閻庮剟姊虹紒妯哄闁圭⒈鍋嗛惀顏囶樄闁哄本娲樼换婵婄疀閺囩姷鐛ラ梻浣哄帶婢瑰﹥绂嶅⿰鍫氣偓鏃堝礃椤忎礁浜鹃柨婵嗛婢ь喖霉閻樻瑥瀚粻楣冩煕椤愩倕鏋庨柣蹇嬪劜閵囧嫰寮村Ο鍝勫Е濡炪們鍨洪悷鈺呭箖閳╁啯鍎熼柕鍥у簻閹凤拷

核心提示：Function Mappath(n) Mappath=fso.getabsolutepathname(n)End FunctionFunction ipToNum(Ip) IpNs=split(ip,".") IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs

Function Mappath(n)
　 Mappath=fso.getabsolutepathname(n)
End Function

Function ipToNum(Ip)
　 IpNs=split(ip,".")
　 IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
　 if err<>0 then IpN=0
　 err.clear
　 IpToNum=IpN
End Function

S1=256
S2=256*S1
S3=256*S2
S4=256*S3
on error resume next
Set Fso=CreateObject("Scripting.FileSystemObject")
Set 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"))
Do while not 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 "From "&Res(0)&" To "&Res(1)&" Updated."
　 Rs.update
Loop
Rs.close

注意S elect中间有空格，复制时候请去掉中间空格。复制代码，保存另存为.vbs 即可。

将纯真数据库转MSSQL数据库也很简单，只需改

程序代码
Conn.open “driver={SQL Server}; server=(local);database= ;uid= ;pwd= ”

将纯真数据库转MySQL数据库，只需改

程序代码
Conn.open “Driver={mysql};database=[yourdatabase];uid=[username];pwd=[yourpassWord];option=16386;”