最新更新 sitemap 网站制作设计本站搜索
网页设计
国外网站 韩国网站 个人主页 手提袋设计 CSS 网页特效 平面设计 网站设计 Flash CMS技巧 服装网站 php教程 photoshop 画册 服务器选用 数据库 Office
虚拟主机 域名注册 云主机 网页设计 客服QQ:8208442
当前位置:首页 > 编程开发 > asp教程

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

日期:06-25    来源:中国设计秀    作者:cnwebshow.com

Function Mappath(n)X8Y中国设计秀
    Mappath=fso.getabsolutepathname(n)X8Y中国设计秀
End FunctionX8Y中国设计秀

Function ipToNum(Ip)X8Y中国设计秀
    IpNs=split(ip,".")X8Y中国设计秀
    IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1X8Y中国设计秀
    if err<>0 then IpN=0X8Y中国设计秀
    err.clearX8Y中国设计秀
    IpToNum=IpNX8Y中国设计秀
End FunctionX8Y中国设计秀

S1=256X8Y中国设计秀
S2=256*S1X8Y中国设计秀
S3=256*S2X8Y中国设计秀
S4=256*S3X8Y中国设计秀
on error resume nextX8Y中国设计秀
Set Fso=CreateObject("Scripting.FileSystemObject")X8Y中国设计秀
Set Conn=CreateObject("ADODB.Connection")X8Y中国设计秀
Conn.open "PRovider=microsoft.jet.oledb.4.0;data source="&Mappath("dat.mdb")X8Y中国设计秀

Set Rs=CreateObject("ADODB.Recordset")X8Y中国设计秀
Rs.open "S elect * from d",Conn,2,3X8Y中国设计秀

Set Fto=Fso.OpenTextFile(Mappath("dat.txt"))X8Y中国设计秀
Do while not Fto.atendofstreamX8Y中国设计秀
    Rs.addnewX8Y中国设计秀
    Res=Split(Replace(Replace(Fto.Readline,"    ",""),"  "," ")," ")X8Y中国设计秀
    Rs("s")=IpToNum(Res(0))X8Y中国设计秀
    Rs("e")=IpToNum(Res(1))X8Y中国设计秀
    Rs("c")=Res(2)X8Y中国设计秀
    Rs("h")=Res(3)X8Y中国设计秀
    Wscript.Echo "From "&Res(0)&" To "&Res(1)&" Updated."X8Y中国设计秀
    Rs.updateX8Y中国设计秀
LoopX8Y中国设计秀
Rs.closeX8Y中国设计秀

X8Y中国设计秀
注意S elect中间有空格,复制时候请去掉中间空格。复制代码,保存另存为.vbs 即可。X8Y中国设计秀

将纯真数据库转MSSQL数据库也很简单,只需改X8Y中国设计秀

 程序代码X8Y中国设计秀
Conn.open “driver={SQL Server}; server=(local);database= ;uid= ;pwd= ”X8Y中国设计秀

X8Y中国设计秀
将纯真数据库转MySQL数据库,只需改X8Y中国设计秀

 程序代码X8Y中国设计秀
Conn.open “Driver={mysql};database=[yourdatabase];uid=[username];pwd=[yourpassword];option=16386;”X8Y中国设计秀

本文引用地址:/bc/article_46268.html
网站地图 | 关于我们 | 联系我们 | 网站建设 | 广告服务 | 版权声明 | 免责声明