检查页代码(check.asp)
<%
Function checkurl(ur)
on error resume next
Set xmlHttp = Server.CreateObject("Microsoft.XMLHTTP")
xmlHttp.open "GET",ur,false
xmlHttp.send
if xmlHttp.Status <> 200 then=false
else=true
end if
End Function
ur=request.querystring("url")
if
response.write("(网站可以正常访问！)")
else
response.write("(页面打开错误！)")
end if
%>提交页代码(t.asp) <FORM name="form1" action="check.asp" method="get"> <INPUT size="30" value="http://www.913dh.com" name="url"> <INPUT type="submit "value="检测" name="Submit"> </FORM>