<%
Fungsi urlChk(sUrl)
pada kesalahan lanjutkan berikutnya
Setel xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.buka "GET",sUrl,false
xmlHttp.kirim
jika xmlHttp.Status <> 200 maka
urlChk=salah
kalau tidak
urlChk=benar
berakhir jika
Akhiri Fungsi
sUrl=" http://code.dlstu.cn "
jika urlChk(sUrl) maka
respon.write(sUrl&"(可以正常访问！)")
kalau tidak
respon.write(sUrl&"(页面打开错误!)")
berakhir jika
%>