UC知道精通ASP的朋友帮我看下这问题
来源：百度知道 编辑：UC知道 时间：2024/05/22 06:23:43
set XMLHTTP =Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open"HEAD","http://www.xxxx.com/ind22ex.asp",false
XMLHTTP.send()
if XMLHTTP.status=200 then
Response.Write "<script>alert('检查到了网站文件');history.back();</Script>"
else
Response.Write "<script>alert('无法检查到网站文件');history.back();</Script>"
end if
上边一段是检查文件是否存在的代码,但是如果无法连接到该域名就会出现
msxml3.dll 错误 '800c0005'
系统未找到指定的资源。
怎么处理掉这个问题吗?我就是想当无法连接到服务器的时候,也显示一个错误
XMLHTTP.open"HEAD","http://www.xxxx.com/ind22ex.asp",false
XMLHTTP.send()
if XMLHTTP.status=200 then
Response.Write "<script>alert('检查到了网站文件');history.back();</Script>"
else
Response.Write "<script>alert('无法检查到网站文件');history.back();</Script>"
end if
上边一段是检查文件是否存在的代码,但是如果无法连接到该域名就会出现
msxml3.dll 错误 '800c0005'
系统未找到指定的资源。
怎么处理掉这个问题吗?我就是想当无法连接到服务器的时候,也显示一个错误
可以用 On Error Resume Next 语句来处理，即错误发生时，继续执行以下代码。如：
Call Test
Sub Test()
Dim XMLHTTP
'// 这里加一句错误继续的语句
On Error Resume Next
set XMLHTTP =Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open"HEAD","http://www.xxxx.com/ind22ex.asp",false
XMLHTTP.send()
if XMLHTTP.status=200 then
Response.Write "<script>alert('检查到了网站文件');history.back();</Script>"
else
Response.Write "<script>alert('无法检查到网站文件');history.back();</Script>"
end if
If Err.Number <> 0 Then
'// 这里只测试如果有错误发生时，输出一下错误代码和提示，可以去掉。
Response.write Err.Number & "," & Err.Description
Err.Clear
End If
set XMLHTTP = Nothing
End Sub