28,409
社区成员




function GetResStr(URL)
dim ResBody,ResStr,PageCode,sta
Set Http=server.createobject("msxml2.serverxmlhttp.3.0")
Http.setTimeouts 10000, 10000, 10000, 10000
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
sta=Http.status
If sta=200 Then
GetResStr="页面正常"
elseif sta=404 Then
GetResStr="页面不存在"
elseif sta=500 then
GetResStr="URL服务器错误"
End If
End If
End Function
function GetResStr(URL)
dim ResBody,ResStr,PageCode,sta
Set Http=server.createobject("msxml2.serverxmlhttp.3.0")
Http.setTimeouts 10000, 10000, 10000, 10000
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
sta=Http.status
If sta=200 Then
GetResStr="页面正常"
elseif sta=404 Then
GetResStr="页面不存在"
elseif sta=500 then
GetResStr="URL服务器错误"
End If
End If
End Function
function GetResStr(URL)
dim ResBody,ResStr,PageCode,sta
Set Http=server.createobject("msxml2.serverxmlhttp.3.0")
Http.setTimeouts 10000, 10000, 10000, 10000
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
sta=Http.status
If sta=200 Then
GetResStr="页面正常"
elseif sta=404 Then
GetResStr="页面不存在"
elseif sta=500 then
GetResStr="URL服务器错误"
End If
End If
End Function
function GetResStr(URL)
dim ResBody,ResStr,PageCode,sta
Set Http=server.createobject("msxml2.serverxmlhttp.3.0")
Http.setTimeouts 10000, 10000, 10000, 10000
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
sta=Http.status
If sta=200 Then
GetResStr="页面正常"
elseif sta=404 Then
GetResStr="页面不存在"
elseif sta=500 then
GetResStr="URL服务器错误"
End If
End If
End Function
function GetResStr(URL)
dim ResBody,ResStr,PageCode,sta
Set Http=server.createobject("msxml2.serverxmlhttp.3.0")
Http.setTimeouts 10000, 10000, 10000, 10000
Http.open "GET",URL,False
Http.Send()
If Http.Readystate =4 Then
sta=Http.status
If sta=200 Then
GetResStr="页面正常"
elseif sta=404 Then
GetResStr="页面不存在"
elseif sta=500 then
GetResStr="URL服务器错误"
End If
End If
End Function