-
ฟังก์ชัน urlChk(sUrl)
เมื่อเกิดข้อผิดพลาดดำเนินการต่อต่อไป
ตั้งค่า xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "GET",sUrl,false
xmlHttp.send
ถ้า xmlHttp.Status <> 200 แล้ว
urlChk=false
อื่น
urlChk=true
สิ้นสุดถ้า
สิ้นสุดฟังก์ชัน
sUrl=" http://code.dlstu.cn "
ถ้า urlChk(sUrl) แล้ว
response.write(sUrl&"(可以正常访问！)")
อื่น
response.write(sUrl&"(页的打错误！)")
สิ้นสุดถ้า
-