请问怎么检测网址是否有效？ - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 请问怎么检测网址是否有效？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 571 人关注过本帖

标题：请问怎么检测网址是否有效？

取消只看楼主加入收藏

shonken

等　级：论坛游民
帖　子：116
专家分：26
注　册：2017-1-15
结帖率：90%

楼主

已结贴√ 问题点数：20 回复次数：1

请问怎么检测网址是否有效？

失效的网址：http://www.

程序代码：

  lcURL="http://www./"
loHttp = CREATEOBJECT("WinHttp.WinHttpRequest.5.1")
loHttp.Open("GET", lcURL, .F.)
loHttp.SetRequestHeader("User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)")
loHttp.Send()

IF loHttp.Status = 200
    ? "网址可以访问"
ELSE
    ? "网址无法访问"
ENDIF

会出现OLE错误，有什么办法？

搜索更多相关主题的帖子: 访问　 com　检测　网址　是否　

2023-08-07 18:16

shonken

等　级：论坛游民
帖　子：116
专家分：26
注　册：2017-1-15

第 2 楼

得分:0

以下是引用csyx在2023-8-7 18:32:22的发言：

lcURL="http://www.
loHttp = CREATEOBJECT("WinHttp.WinHttpRequest.5.1")
loHttp.Open("GET", lcURL, .F.)
Try
    loHttp.Send()
    oErr = Null
Catch to oErr
EndTry
IF IsNull(oErr) and loHttp.Status = 200
    ? "网址可以访问"
ELSE
    ? "网址无法访问"
    ? oErr.Message
ENDIF

可以

呃...原来我的处理错误语句放错位置了

2023-08-07 18:56

快速回复：请问怎么检测网址是否有效？