本 站 搜 索

发 送 文 章 用ASP判断链接是否有效 〖评论()〗〖留言〗〖收藏〗 收信地址 填写收信人的电子邮箱 邮件主题 填写邮件主题 邮件内容 这段代码的作用是先检测这个程序是否可以下载，如果可以下载，就自动下载，如不可以下载，即显示程序中的提示文字！ 最下面找到 '转向连接response.redirect fileurl 修改为 '转向连接if fileurl"" then''判断是否有效Function IsValidUrl(url) Set xl = Server.CreateObject("Microsoft.XMLHTTP") xl.Open "HEAD",url,False xl.Send IsValidUrl = (xl.status=200)End Function If IsValidUrl(""fileurl"") Thenresponse.redirect fileurlElseResponse.Write "由于下载用户过多，程序检测到文件暂时无法下载，请更换其他下载地址。"End Ifend if<br><br>文章网址：<a href="https://dangbai.cn/article.asp?ID=10000724" target="_blank">https://dangbai.cn/article.asp?ID=10000724</a> 填写邮件内容 发信地址 填写发信人的电子邮箱 邮件签名 填写邮件签名  验证码   填写验证码，单击刷新验证码    程序执行中，请稍候... 〖文章发送协议〗 ·欢迎使用本站在线文章发送系统。 ·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。 ·如果收信人地址或其服务器出现错误，可能无法成功发送。 ·如果有什么问题，或者意见建议，请联系［网站管理员］。