检测远程文件是否存在
时间：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
投稿猜你喜欢
pyinstaller参数介绍以及总结详解
Python3自动安装第三方库,跟pip说再见
Access数据库用另一种方式管理密码
CSS解决未知高度的垂直水平居中自适应问题
Yii2框架整合Xunsearch搜索引擎的方法
本地windows安装两个mysql服务器，配置主从同步
浅谈pandas关于查看库或依赖库版本的API原理
python scrapy框架中Request对象和Response对象的介绍
Python 私有函数的实例详解
JavaScript：ES2019 的新特性(译)
浅谈Pytorch中autograd的若干(踩坑)总结
python机器学习之贝叶斯分类
MySQL数据库搜索中的大小写敏感性
一文掌握Go语言并发编程必备的Mutex互斥锁
Mysql视图和触发器使用过程
判断浏览器是否接受 Cookie
Python 虚拟环境venv详解
Microsoft Enterprise Library 5.0 如何集成MyS
设计规范有谱么?
C# 制作PictureBox圆形头像框并从数据库中读取头像
