检测远程文件是否存在
发布时间：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
投稿猜你喜欢
- 索引是加速表内容访问的主要手段，特别对涉及多个表的连接的查询更是如此。这是数据库优化中的一个重要内容，我们要了解为什么需要索引，索引如何工作
- 使用sql语句删除数据库中重复记录的两个方法如下：方法一declare @max integer,@id in
- ASP+XML制作菜单管理!menu.asp 这个是前台执行部分<％ '----------------
- 来蓝色一直都在潜水,很少写帖子,太对不起大家了.下面和大家探讨一个话题,希望能引起大家的兴趣.关于H1,一直都想和大家讨论H1用法的问题,可
- web2.0的标志是Ajax的异步通信的发掘，给我们带来像google map,google suggest 这样令人惊叹的东西。而Ajax
- 数据库优化是一项很复杂的工作，因为这最终需要对系统优化的很好理解才行。尽管对系统或应用系统的了解不多的情况下优化效果还不错，但是如果想优化的
本文将介绍使用Dreamweaver来制作滑动菜单的方法，言归正传，废话少说。准备工作如下： 1． 在dw中新建一个空白文档（或者打开你要添- IE历来被web标准的拥护者所诟病，而当FireFox横空出世以后，更多的网页制作者开始关注web标准设计。看着FireFox的市场占有率不
- 网上考试设计思路是怎样的？为了运行这个应用程序，我们需要在global.asa文件里进行设置数据库的连接。global.asa <&n
- Frontpage中的回车键有三种：enter、shift+enter、ctrl+enter。enter键对应于HTML中的<p>
- 到目前为止，我已经开发了两个HTML编辑器了，一个用在公司的CMS项目，另一个用在这个Blog（TidyEditor，暂时没有单独发布）。下
- 首先，啰嗦几句废话如下： （1）触发器（trigger）是个特殊的存储过程，它的执行并不需要我们去显式调用，而是由一些事件触发，这有点类似C
- 通常的聊天室所采用的程序，也就是Chat程序了，其基本结构原理是不会采用到数据库的。那究竟采用什么技术呢？我们知道ASP变量当中Sessio
- 有关JS中字符串的相关文章，现在网上大概不计其数了。这里我不想再就这个问题做过多的论述，只是对几种方式的实现在各种浏览器中的执行效率进行对比
- 看下面的Java代码，目的是为了当i是3的时候，就不做输出，直接跳到下一个循环。int i = 0;
- 阅读上一篇：打造设计你自己的字体 Ⅱ永远都在寻觅字体设计的灵感。夏天过后，我买了一套便宜的书法钢笔，说服自己，它会让我的鸡爬字产生脱胎换骨的
- 第一次写这类文章，有点儿紧张有点儿新奇有点儿痛苦，来CDC实习2个月啦，每天除了工作就是体验体验再体验，因为之前做了一些有关规范的工作，突然
- 在Google上搜一下，可以发现一大堆对ASP不好的评价，什么运行速度慢、异常处理机制不好、缺乏面向对象机制、开发效率低、漏洞多等等。为了让
- 在使用ASP来进行后端的数据合法性校验的时候，有些人为满足不同环境下面的数据校验，编写了很多的函数来实现，比如，我们想要校验用户输入的URL
- 在我们制作主页的过程中，用到表格的地方非常多，灵活运用表格技巧可以为我们的网页增色不少，这里我就详细介
