Paksa segarkan halaman web
<%
'Wajib menyegarkan kode verifikasi acak
'Biarkan kode verifikasi acak disegarkan secara otomatis setiap kali Anda menekan tombol kembali IE untuk kembali ke halaman login.
Respon.kedaluwarsa=-1
Response.AddHeaderpragma, tanpa cache
Response.AddHeadercache-kontrol, tanpa penyimpanan
%>
Tentukan apakah alamat file valid
<%
'Penulis asli: Xiaoyi QQ:52093 Waktu: 2005.6.30
Respon.Tulis()
Pada Kesalahan Lanjutkan Berikutnya
Redupkan url ini, teks ini
thisurl=Permintaan(thisurl) 'Tentukan alamat file (dokumen berformat non-Html)!
jika url ini = maka
Response.Write(Masukkan alamat file terlebih dahulu!)
Respon.Akhir
Berakhir jika
Fungsi objxmlhttp(xmlurl)
Pada Kesalahan Lanjutkan Berikutnya
Setel objxml = CreateObject(Microsoft.XMLHTTP)
objxml.Buka dapatkan,xmlurl,false
tipe konten objxml.setrequestheader, aplikasi/x-www-form-urlencoded
objxml.kirim
objxmlhttp = objxml.responsebody
jika salah maka
Err. Jelas
Response.Write (Gagal membuat koneksi, file tidak ada atau ada masalah dengan jaringan!; Alasan kesalahan: &Err.Deskripsi&!)
Respon.Akhir
Berakhir jika
Fungsi Akhir
Fungsi byte2BSTR(vIn)
strKembali =
Untuk i = 1 Ke LenB(vIn)
KodeKar ini = AscB(MidB(vIn,i,1))
Jika ThisCharCode < &H80 Lalu
strReturn = strReturn & Chr(KodeCharIni)
Kalau tidak
KodeChar Berikutnya = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
saya = saya + 1
Akhiri Jika
Berikutnya
bytes2BSTR = strKembali
Fungsi Akhir
thisurl2=Pisahkan(iniurl,,)
Untuk Setiap ii Di url2 ini
teks ini=bytes2BSTR(objxmlhttp(ii))
jika InStr(teks ini,)<>0 lalu
Respon.Tulis(& ii & ×
)
Kalau tidak
Respon.Tulis(& ii & √
)
Berakhir jika
Berikutnya
jika salah maka
Err. Jelas
Response.Write(Tidak terduga!; Alasan kesalahan: &Err.Deskripsi&!)
Respon.Akhir
Berakhir jika
%>