Salinan kode adalah sebagai berikut:
<%
'========================================================
ClassEngineersearch
'Laollong: [email protected]
': Simulasikan XML untuk mendapatkan sumber daya tag http (Anda akan tahu mengapa XML berguna setelah menggunakannya :))
'Gunakan pencarian engine (menampilkan informasi mesin atau informasi di situs web Hyperconnected atau informasi terkait langsung pada halaman yang ditentukan, menggunakan reguler dan xmlhttp,
'Penggunaan program perlu membangun keteraturan)
'---------------------------------------------------------------
privateoreg, oxmlhttp'a reguler, microsoft xmlhttp
'---------------------------------------------------------------
publicsubclass_initialize () 'pemicu pembuatan objek
setreg = newregexp
oreg.global = true
oreg.ignorecase = true
setoxmlhttp = server.createObject ("microsoft.xmlhttp")
endsub
'---------------------------------------------------------------
PublicsubClass_Terminate () 'Pemicu Penghancuran Objek
setReg = tidak ada objek yang dibangun sendiri di kelas harus dirilis secara manual, dan ASP hanya akan secara otomatis melepaskan objek yang ditentukan oleh kelas.
setoxmlhttp = tidak ada
IfTypeName (Tempreg) <> "Nothing" Lalu 'Metode Melepaskan Sumber Daya di Objek di Tubuh
settempreg = tidak ada
endif
endsub
'---------------------------------------------------------------
'Pencarian Level Mesin
PublicFunctionEngineer (URL, EngineerReg)
'PENDAHULUAN FUNGSI: Dapatkan informasi pengembalian URL (biasanya digunakan untuk pencarian mesin), ekstrak informasi spesifik insinyur, dan kembalikan koleksi kecocokan ke
'Nama fungsi. Dapatkan hasil kueri URL, cari hasil yang ditentukan oleh keteraturan engineerreg, dan hasilkan koleksi kecocokan.
'Karena tidak mungkin membuat koleksi dan mengoperasikan jumlah set (VBScript), yang terbaik adalah melintasi set sendiri, atau mempertimbangkan array dua dimensi
Dimstrconent
strcontent = oxmlhttp.open ("get", url, false)
OnerrorresumeNext
oxmlhttp.send ()
iferr.number <> 0then
fungsi keluar
endif
strcontent = bytes2bstr (oxmlhttp.responseBody)
Ifisnull (EngineerReg) lalu
Engineer = AbsoluteUrl (Strcontent, URL)
kalau tidak
oreg.pattern = EngineerReg
setengineer = oreg.execute (absoluteUrl (strcontent, url))
endif
fungsi endfungsi
'---------------------------------------------------------------
'Pengkodean karakter Cina, (orang online)
PublicFunctionBytes2BTR (VIN)
strreturn = ""
Fori = 1TolenB (VIN)
Kode ini = ASCB (midb (vin, i, 1))
Ifthischarcode <& H80then
Strreturn = Strreturn & CHR (Kode ini)
Kalau tidak
NextCharCode = ASCB (midb (vin, i+1,1)))