Salinan kode adalah sebagai berikut:
Memaksa penyegaran halaman web
<%
'Refresh wajib kode verifikasi acak
'Biarkan kode verifikasi acak disegarkan secara otomatis setiap kali tombol IE Back ditekan pada tombol Kembali IE.
Response.expires = -1
Response.addheader "pragma", "no-cache"
Response.addheader "cache-control", "no-store"
%>
Tentukan apakah alamat file valid
Salinan kode adalah sebagai berikut:
<%
'Penulis Asli: Xiaoyi QQ: 52093 Waktu: 2005.6.30
Response.write ("<head> <tyle> <!-span {font-size: 9pt}-> </tyle> </adead>")
OnerrorresumeNext
DIMTHISURL, Thistext
thisUrl = request ("thisUrl") 'mendefinisikan alamat file (dokumen format non-HTML)!
ifthisUrl = "" Lalu
Response.write ("<span> Harap masukkan alamat file terlebih dahulu! </span>")
Respons.end
Endif
FunctionObjxmlhttp (xmlurl)
OnerrorresumeNext
Setobjxml = createObject ("microsoft.xmlhttp")
objxml.open "get", xmlurl, false
objxml.setRequestHeader "tipe konten", "Aplikasi/X-WWW-Form-Urlencoded"
objxml.send
objxmlhttp = objxml.responseBody
iferrthen
Err.clear
Response.write ("<span> Koneksi gagal untuk dibuat, file tidak ada atau ada masalah jaringan !; Kesalahan alasan:" & err.description & "!
</span> ")
Respons.end
Endif
Fungsi endfungsi
FunctionBytes2BTR (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)))
Strreturn = Strreturn & Chr (Clng (ThisCharcode)*& H100+CINT (NextCharCode))
i = i+1
Endif
Berikutnya
BYTES2BSTR = Strreturn
Fungsi endfungsi
thisUrl2 = split (thisurl, ",")
Foreachiiinthisurl2
Thistext = BYTES2BTR (OBJXMLHTTP (II))
ifinstr (Thistext, "<Html>") <> 0then
Response.write ("<span>" & ii & "<b> × </b> </span> <br>")
Kalau tidak
Response.write ("<span>" & ii & "<b> √ </b> </span> <br>")
Endif