<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'通过XMLHTTP检查网站能否打开
Sub main_one()
Dim t
response.charset="gb2312"
With CreateObject("MSXML2.XMLHTTP")
rem .Open "GET", "http://www.qwbm.com/", False
.Open "GET", "http://reetai.com/", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send ()
rem t = .responsetext
rem response.write t
response.write "text" & .status
End With
End Sub
main_one()
response.write "------------------------------"
'利用XMLHTTP检查网站能否打开
Sub main_two()
Dim t
response.charset="gb2312"
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "http://www.qwbm.com/", False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send ()
rem t = .responsetext
rem response.write t
response.write "text" & .status
End With
End Sub
main_two()
%>
网站首页
业务范围
服务案例
投票系统
联系方式
电话联系