判断某一文件是否存在

18 篇文章 0 订阅
5 篇文章 0 订阅
<
Response.Write(
" <head><style><!--span{ font-size: 9pt }--></style></head> "
On   Error   Resume   Next  
Dim  thisurl,thistext 
thisurl
= " http://www.redmoon.cn/logo.gif "   ' 定义文件地址(非Html格式文档)! 
if  thisurl = ""   then  
Response.Write(
" <span>请先输入文件地址!</span> "
Response.End 
End   if  

Function  objxmlhttp(xmlurl) 
On   Error   Resume   Next  
Set  objxml  =   CreateObject ( " Microsoft.XMLHTTP "
objxml.Open 
" get " ,xmlurl, false  
objxml.setrequestheader 
" content-type " , " application/x-www-form-urlencoded "  
objxml.send 
objxmlhttp 
=  objxml.responsebody 
if  Err  then  
Err.Clear 
Response.Write(
" <span>建立连接失败,文件不存在或网络有问题!;错误原因: " & Err.Description & " !</span> "
Response.End 
End   if  
End Function  
' www.knowsky.com 
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  +   1  
End   If  
Next  
bytes2BSTR 
=  strReturn 
End Function  

thisurl2
= Split (thisurl, " , "
For   Each  ii In thisurl2 
thistext
= bytes2BSTR(objxmlhttp(ii)) 
if   InStr (thistext, " <html> " ) <> 0   then  
Response.Write(
" <span> " &  ii  & "  <b>0</b></span><br> "
Else  
Response.Write(
" <span> " &  ii  & "  <b>1</b></span><br> "
End   if  
Next  

if  Err  then  
Err.Clear 
Response.Write(
" <span>碰到意外!;错误原因: " & Err.Description & " !</span> "
Response.End 
End   if  
%
>
 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值