Kode inti:
Verifikasi bahwa URL input valid dan dapat mengakses <%'*****************************' Fungsi: Urlok (Strurl) 'Parameter: Strurl, URL untuk diverifikasi' Tanggal: 2007/7/13 'Deskripsi: Verifikasi bahwa URL input adalah valid dan dapat mengakses' Contoh: <%= Urlok ("URLOK (". '********************************* Fungsi Urlok (strurl) pada kesalahan resume selanjutnya jika strurl <> "" Kemudian atur objhttp = createObject ("msxml2.xmlhtp" oBjhtp.open "get", strurl, false objhtp.sendp. = "Valid" lain urlok = "tidak valid" end jika lagi urlok = "error: Anda tidak memasukkan URL!" Akhiri jika fungsi akhir %> secara teratur memverifikasi apakah URL input legal. Url <% '***********************************' Fungsi: Checkexp (Patrn, Strng) 'Parameter: Patrn Ekspresi Reguler; Strng Verifikasi String'Author: Alixi'Date: 2007/7/13'Description: URL yang regex adalah sampel yang sah: <%= checkexp (patn, strng)%> '******************* function****** Fungsi checkexp (patn, strng). Regex.pattern = Mode Set Patrn '. regex.ignorecase = true 'Set apakah karakter sensitif. regex.global = true 'mengatur ketersediaan global. kecocokan = regex.test (strng) checkexp = mencocokkan fungsi akhir %>