高手,高手,高分呀,快来一个小问题

[夜若]

如果有很多连接,是连接像土豆网上的视频
可是有一个问题,土豆经常更新
连接少的时候可以一个个检查连接目标是不是存在
可是如果有几千个,或是更多,那么那些连接不存在了要更新

可不可以帮我写一段可以 检查连接是否存在 的代码

[Anlige]

可以试试xmlhttp组件~~~~

[Dogfish]

用xmlhttp检测一下，是否返回404， 如果是404就是不存在。

Does a url exist?
Another simple use is finding if a url exists, in HTTP there are various status codes returned by both HEAD and GET requests, 200 means success, 404 means failure, and the others mean other things. See HTTP status codes for a full explanation. using the status property of the xmlhttp object provides you this status

xmlhttp.open("HEAD", "/faq/index.html",true);
xmlhttp.onreadystatechange=function() {
if (xmlhttp.readyState==4) {
if (xmlhttp.status==200) alert("URL Exists!")
else if (xmlhttp.status==404) alert("URL doesn't exist!")
else alert("Status is "+xmlhttp.status)
}
}
xmlhttp.send(null)

[Anlige]

下面函数调用~~

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

[Anlige]

下面函数调用~~

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

[Anlige]

下面函数调用~~

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

[jhwcd]

[Quote=引用 1 楼 Anlige 的回复:]
可以试试xmlhttp组件~~~~
[/Quote]

[学习a123456]

不学不行

[Anlige]

下面函数调用~~

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

[Anlige]

下面函数调用~~

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