Функция Mappath(n)
Mappath=Fso.getabsolutepathname(n)
Конечная функция
Функция IpToNum(Ip)
IpNs=split(ip,".")
IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
если ошибка<>0, то IpN=0
ошибка.очистить
IpToNum=IPN
Конечная функция
S1=256
С2=256*С1
С3=256*С2
С4=256*С3
при ошибке продолжить дальше
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 "Выбрать * из d",Conn,2,3
Set 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))
Рс("с")=Рес(2)
Рс("ч")=Рес(3)
Wscript.Echo "Из "&Res(0)&" в "&Res(1)&" Обновлено."
Обновление рупий
Петля
рупийблизко
Выберите 中间有空格，复制时候请去掉中间空格。复制代码,保存另存为.vbs 即可。
将
纯真数据Использование MSSQL в качестве базового модуля,
Conn.open «driver={SQL Server}; сервер=(локальный);база данных= ;uid= ;pwd= ”
Использование MySQL для работы с MySQL, использование MySQL для работы с файлами MySQL
.
Conn.open «Driver={mysql};database=[ваша база данных];uid=[имя пользователя];pwd=[вашпароль];option=16386;»