Fungsi Jalur Peta(n)
Mappath=Fso.getabsolutepathname(n)
Fungsi Akhir
Fungsi IpToNum(Ip)
IpNs=berpisah(ip,".")
IpN=IpNs(0)*S4+IpNs(1)*S3+IpNs(2)*S2+IpNs(3)*S1
jika salah<>0 maka IpN=0
err.jelas
IpToNum=IpN
Fungsi Akhir
S1=256
S2=256*S1
S3=256*S2
S4=256*S3
pada kesalahan lanjutkan berikutnya
Setel Fso=CreateObject("Scripting.FileSystemObject")
Setel Sambungan=BuatObjek("ADODB.Koneksi")
Conn.open "provider=microsoft.jet.oledb.4.0;data source="&Mappath("dat.mdb")
Setel Rs=CreateObject("ADODB.Recordset")
Rs.open "S elect * from d",Conn,2,3
Set Fto=Fso.OpenTextFile(Mappath("dat.txt"))
Lakukan selagi tidak Fto.atendofstream
Rs.tambah baru
Res=Split(Ganti(Ganti(Fto.Readline," ",""),," "," ")," ")
Rs("s")=IpToNum(Res(0))
Rs("e")=IpToNum(Res(1))
Rs("c")=Res(2)
Rs("h")=Res(3)
Wscript.Echo "Dari "&Res(0)&" Ke "&Res(1)&" Diperbarui."
Rs.perbarui
Lingkaran
Rs.tutup
orang-orang pilihan Panduan MSSQL untuk Bisnis dan
Layanan
Lainnya
Sambungan buka “driver={SQL Server}; server=(lokal);basis data= ;uid= ;pwd= ”
cara menggunakan MYSQL, cara menggunakan MYSQL, dan lain-
lain
Sambungkan buka “Driver={mysql};database=[database Anda];uid=[nama pengguna];pwd=[kata sandi Anda];option=16386;”