<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'通過XMLHTTP檢查網站能否打開
Sub main_one()
Dim t
response.charset="gb2312"
With CreateObject("MSXML2.XMLHTTP")
rem .Open "GET", "http://www.www.reapst.com.cn/", 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.www.reapst.com.cn/", 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()
%>
蘇公網安備 32070502010230號