함수 맵 경로(n)
Mappath=Fso.getabsolutepathname(n)
종료 기능
기능 IpToNum(Ip)
IpNs=분할(ip,".")
IpN=IpN(0)*S4+IpN(1)*S3+IpN(2)*S2+IpN(3)*S1
오류<>0인 경우 IpN=0
오류가 발생했습니다.지우기
IpToNum=IpN
종료 기능
S1=256
S2=256*S1
S3=256*S2
S4=256*S3
오류 발생 시 다음 재개
Fso=CreateObject("Scripting.FileSystemObject")를 설정합니다.
Conn=CreateObject("ADODB.Connection") 설정
Conn.open "provider=microsoft.jet.oledb.4.0;data source="&Mappath("dat.mdb")
Set Rs=CreateObject("ADODB.Recordset")
Rs.open "d에서 * 선택",Conn,2,3
Fto=Fso.OpenTextFile(Mappath("dat.txt")) 설정
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 ""&Res(0)&"에서 "&Res(1)&"로 업데이트되었습니다."
Rs.업데이트
고리
Rs.close
선택하세요.单
，只需改
程序代码
Conn.open "드라이버={SQL Server}; 서버=(로컬);데이터베이스= ;uid= ;pwd= ”
将纯真数据库转MYSQL数据库，只需改
程序代码
Conn.open "드라이버={mysql};database=[yourdatabase];uid=[사용자 이름];pwd=[yourpassword];option=16386;"