รหัสหลัก:
ตรวจสอบว่า URL อินพุตนั้นถูกต้องและสามารถเข้าถึงได้ <%'******************************************************************************************************************* '********************************* ฟังก์ชั่น urlok (strurl) ในข้อผิดพลาดกลับมาทำงานต่อไปถ้า strurl <> "" จากนั้นตั้ง objhttp = createObject ("msxml2.xmlhttp") objhttp.open "get" urlok = "ถูกต้อง" อื่น ๆ urlok = "ไม่ถูกต้อง" สิ้นสุดถ้าอื่น urlok = "ข้อผิดพลาด: คุณไม่ได้ป้อน URL!" สิ้นสุดถ้าฟังก์ชั่นสิ้นสุด %> ตรวจสอบอย่างสม่ำเสมอว่า URL อินพุตนั้นถูกกฎหมายหรือไม่ url <% '*********************************************************************************************************** strng การตรวจสอบสตริง 'Author: Alixixi'date: 2007/7/13'Description: url ที่ regex เป็น legitimate'example: <%= checkexp (patrn, strng)%>' ***************************** regex.pattern = โหมด Set Patrn ' regex.ignorecase = true 'ตั้งค่าว่าอักขระนั้นมีความอ่อนไหวหรือไม่ regex.global = true 'ตั้งค่าความพร้อมใช้งานทั่วโลก matches = regex.test (strng) checkexp = ตรงกับฟังก์ชั่น end function %>