检测远程文件是否存在
发布时间：2009-06-22 13:00:00
代码'###########
'检测远程文件是否存在
'###########
function CheckURL(byval A_strUrl)
set XMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
XMLHTTP.open "HEAD",A_strUrl,false
XMLHTTP.send()
CheckURL=(XMLHTTP.status=200)
set XMLHTTP = nothing
end function
if CheckURL(DownLoadUrl) then
do
else
do other...
end if
XMLHTTP检测远程文件存在与否
<％
response.write "检查是否开机<br>"
on error resume next
set xml=Server.createobject("Microsoft.XMLHTTP")
xml.open "get","http://www.hao114.com/ss.mdb",false
xml.send
ints=xml.status
strs=xml.statustext
if isnumeric(ints) then
if ints=12007 or strs="Unknown" then
response.write "地址出错<br>"
end if
if ints=404 then
response.write "找不到文件<br>"
else
response.write "地址正确<br>"
end if
end if
if response.buffer then
response.flush
end if
％>
<html>
<head>
</head>
<script language="vbscript">
function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr (CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End function
function CheckUrl(url)
set oSend=createobject("Microsoft.XMLHTTP")
SourceCode = oSend.open ("GET",url,false)
oSend.send()
if instr(bytes2BSTR(oSend.responseBody),"Not Found")<>0 then
msgbox "此文件不存在"
else
msgbox "此文件存在"
end if
End function
</script>
<input name="myurl" id="myurl" type="textfield" value="">
<input type="button" onclick="CheckUrl(myurl.value)" value="检 测">
</html>
Function testURL(url)
Dim httpxml
Set httpxml = CreateObject("msxml2.XMLHTTP")
httpxml.open "HEAD",url,False
httpxml.send
If httpxml.status = 200 Then
testURL = 1
Else
testURL = 0
End If
Set httpxml = Nothing
End Function
if testurl("http://www.hao114.com/index.htm")=0 then
response.write"页面不存在"
else
response.write"页面存在"
end if
0
投稿猜你喜欢
- 一、什么是localStorage？在HTML5中，新加入了一个localStorage特性，这个特性主要是用来作为本地存储来使用的，解决了
- nofollow标签是Google2005年推出的，目的是尽量减少垃圾链接对搜索引擎的影响。有用过网页制作工具的人都知道，在这些工具里是找不
- 前言在Python中，import操作应该算是最为频繁和常见的，但同时也应该是最核心需要搞清楚其工作原理的地方，比如，python是如何找到
- Json To Dictimport jsonjsonData = '{"a":1,"b":
本文为大家分享了mysql 8.0安装配置方法，供大家参考，具体内容如下直接使用apt install mysql-server安装，那么恭- 本文所述实例来自独立软件开发者 Alex Marandon，在他的博客中曾介绍了数个关于 Python Collection 的实用小技巧，
- python实现情感分析（Word2Vec）** 前几天跟着老师做了几个项目，老师写的时候劈里啪啦一顿敲，写了个啥咱也布吉岛，线下自己就瞎琢
- 水平线对于制作网页的朋友来说一定不会陌生，它在网页的版式设计中是非常有作用的，可以用来分隔文本和对象。
- '''数据集：Mnist训练集数量：60000测试集数量：10000------------------------
- 视图在django中，视图对WEB请求进行回应视图接收reqeust对象作为第一个参数，包含了请求的信息视图就是一个Python函数，被定义
- 本文实例讲述了ASP.NET中MVC从后台控制器传递数据到前台视图的方式。分享给大家供大家参考。具体分析如下：数据存储模型Model：pub
- 先来看一道题目：>>> def func(numbers=[], num=1):... numbers.append(nu
- 一、检测网络信息和系统信息 在Frontpage 2000 的Explorer管理器中选择帮助(Help)|关于Frontpage管理器(A
- 直接update的弊端最近做一个需求，更新3w条数据，一个一个update去更新的，结果花了80分钟，这样性能上很差，也容易阻塞，所以就找了
- 本文实例为大家分享了js编写贪吃蛇小游戏的具体代码，供大家参考，具体内容如下刚学完js模仿着教程，把自己写的js原生小程序。HTML部分&l
- 希望通过本文能够帮助大家顺顺利利通过Python面试，之后还有一篇关于Python Web相关的文章欢迎大家阅读。1、Python中pass
- (1)二进制数据类型 二进制数据包括 Binary、Varbinary 和 ImageBinary 数据类型既可以是固定长度的(Binary
- 如何在win7+Python3.5的环境下安装成功scrapy？通过pip3 install Scrapy直接安装，一般会报错：error:
- python-opencv获取二值图像轮廓及中心点坐标代码：groundtruth = cv2.imread(groundtruth_pat
- 深度学习网络通常具有很深的层次结构，而且层与层之间通常会有并联、串联等连接方式。当使用PyTorch建立一个深度学习网络并输出文本向读者展示
