登录模块加载中...
会员投稿 投稿指南 今天是:
打印本页 | 关闭窗口 | 双击滚屏 您的位置首页>>网页制作学习园地>>ASP教程>>ASP技巧>>VBS 纯真IP数据库转MDB/MSSQL/MySQL
VBS 纯真IP数据库转MDB/MSSQL/MySQL
来源:不详 ‖ 作者:佚名 ‖ 点击: ‖ 时间:14-02-12 11:03:54 ‖ 【 】‖ 我要投稿
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;”
加入收藏:  加入收藏夹  | 发送给好友:  发送给好友
责任编辑:admin
相关文章列表
请文明参与讨论,禁止漫骂攻击。  
网友评论