28,405
社区成员
发帖
与我相关
我的任务
分享蔡鸟问题 如何测试一个URL的有效性 赐教！
如何测试一个URL的有效性
有一些URL，都是音乐的
有HTTP开头的，也有RTSP开头的
也有MMS开头的，如何测试这些URL的有效性呢，
有一些URL，都是音乐的
有HTTP开头的，也有RTSP开头的
也有MMS开头的，如何测试这些URL的有效性呢，
...全文
请发表友善的回复…
发表回复
youxuesifang 2003-11-20
- 打赏
- 举报
帮你up
catmiw 2003-11-20
- 打赏
- 举报
怎么没有人再帮忙啊
catmiw 2003-11-20
- 打赏
- 举报
好的，不过这个测MMS。RTSP开头的，行不行呢
tuoshi 2003-11-20
- 打赏
- 举报
这样调用：
getHTTPPage(url)
把url换成你要测试的URL地址，如果是字符串的话别忘了加双引号哦。
getHTTPPage(url)
把url换成你要测试的URL地址，如果是字符串的话别忘了加双引号哦。
bzscs 2003-11-20
- 打赏
- 举报
要输出函数运行结果啊，光运行你当然看不到
supere 2003-11-20
- 打赏
- 举报
建议使用xmlhttp
Struggling(EO)兄已经给出代码了啊
Struggling(EO)兄已经给出代码了啊
catmiw 2003-11-20
- 打赏
- 举报
帮一下吧大哥们
catmiw 2003-11-20
- 打赏
- 举报
怎么没人给我答啊，，奇怪。。。。
catmiw 2003-11-19
- 打赏
- 举报
这上面的代码，测试可以和不可以好像都 一样，没反应啊
Struggling 2003-11-19
- 打赏
- 举报
try:
Function getHTTPPage(url)
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate <> 4 then
exit function
else
getHTTPPage = http.status
end if
set http=nothing
if err.number<>0 then err.Clear
end function
Function getHTTPPage(url)
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate <> 4 then
exit function
else
getHTTPPage = http.status
end if
set http=nothing
if err.number<>0 then err.Clear
end function
