Artikel ini terutama memperkenalkan ASP yang dipaksakan menyegarkan halaman web dan menilai kode instance alamat file.
Memaksa penyegaran halaman web
- <%
- 'Refresh wajib kode verifikasi acak
- 'Biarkan kode verifikasi acak disegarkan secara otomatis setiap kali tombol kembali IE ditekan,
- Response.expires = -1
- Response.addheaderpragma, tanpa cache
- Response.addheadercache-control, no-store
- %>
Tentukan apakah alamat file valid
- <%
- Response.write ()
- OnerrorresumeNext
- DIMTHISURL, Thistext
- thisUrl = request (thisUrl) 'mendefinisikan alamat file (dokumen format non-HTML)!
- ifthisUrl = lalu
- Response.write (silakan masukkan alamat file terlebih dahulu!)
- Respons.end
- Endif
- FunctionObjxmlhttp (xmlurl)
- OnerrorresumeNext
- Setobjxml = createObject (microsoft.xmlhttp)
- objxml.openget, xmlurl, false
- OBJXML.SetRequestHeaderContent-Type, Application/X-WWW-Form-Urlencoded
- objxml.send
- objxmlhttp = objxml.responseBody
- iferrthen
- Err.clear
- Response.write (gagal membuat koneksi, file tidak ada atau ada masalah jaringan !; kesalahan alasan: & err.description &!)
- 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,) <> 0then
- Response.write (& II & ×
- )
- Kalau tidak
- Response.write (& II & √
- )
- Endif
- Berikutnya
- iferrthen
- Err.clear
- Response.write (Saya mengalami kecelakaan !; Kesalahan alasan: & err.description &!)
- Respons.end
- Endif
- %>
Di atas adalah kode untuk menyegarkan halaman web dan menilai alamat file.