ASP判断文件地址是否有效!

2016-01-29 18:54 8 1 收藏

ASP判断文件地址是否有效!,ASP判断文件地址是否有效!

【 tulaoshi.com - ASP 】

 

<%
'原创作者:小艺 QQ:52093 时间:2005.6.30
Response.Write("<head<style<!--span{ font-size: 9pt }--</style</head")
On Error Resume Next
Dim thisurl,thistext
thisurl=Request("thisurl")            '定义文件地址(非Html格式文档)!
if thisurl="" then
     Response.Write("<span请先输入文件地址!</span")
     Response.End
End if

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

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 = 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×</b</span<br")
     Else
           Response.Write("<span"& ii &" <b√</b</span<br")
     End if
Next

(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/asp/)

if Err then
     Err.Clear
     Response.Write("<span碰到意外!;错误原因:"&Err.Description&"!</span")
     Response.End
End if
%

 

来源:http://www.tulaoshi.com/n/20160129/1507741.html

延伸阅读
标签: 生活常识
怎样判断盆花是否缺水?   怎样判断盆花是否缺水? 浇水是养花的一项经常性管理工作,盆土是否缺水是件较难掌握的事,因此不少花友常为此感到苦恼。现将养花行家判断是否缺水的经验简介如下。 (1)敲击法。用手指关节部位轻轻轻敲击花盆上中部盆壁,如发出比较清脆的声音,表示盆土已干,需要立即浇水;若发出沉闷的浊音,表示...
怎样辨别宝宝真的发烧了? 宝宝体温升高了,家长的第一反应就是孩子发烧了,但是有的时候孩子只是简单的发热或者是体温升高,并不是真正的发烧。有的时候孩子的体温很高,温度计的温度显示的也不高,也不算发烧。那么家长要如何来判断孩子是真的发烧了呢? 正常人的体温并非恒定不变,而是呈波动状,大约介于36.5-37.5℃。清晨因身体尚在休...
宝宝是否吃饱要怎么判断? 根据宝宝的成长,对食物的摄取量也在随之变化,妈妈仅从宝宝吃奶的时间判断宝宝是否吃饱是不正确的,更不能因为宝宝哭闹就主观的认为是宝宝饥饿,其实宝宝也会有很多原因导致哭啼。这就需要妈妈们在育儿过程中积累相应的经验。 奶粉喂养的宝宝 如果是吃奶粉很易判断,主要看宝宝一次吃多少。一般小于1个月的宝宝60...
标签: 怀孕
很多年轻的夫妻常常往医院里跑,为的就是想知道宝宝在肚子里是否健康,还有宝宝的发育情况是不是良好。那么怎么判断胎儿是否健康呢 ,下面我们就具体的来看看在日常生活中怎样判断胎儿的健康状态,希望通过我们的讲解能够给广大的年前夫妻带来一定的帮助。 正常胎位时,胎头应在下腹部中央,即耻骨结合的上方。如在上腹部模到胎头,...
标签: 宠物 仓鼠 宠物鼠
1、体形明显变大 ,以前身材匀称,怀孕就变成梨形了。当它拉长身体的时候,你可以明显地观察到它身体呈梨型,大腿根部明显横着大出来。走路不稳,爬高很费力,翻身困难。 2、轻摸肚子,有硬硬的感觉。如果只是肥胖,肚子是软的,像一滩水一样。用手托着有承重感。 3、脾气容易焦躁,例如疯狂滴跑转笼。 4.和公鼠搞不好...

经验教程

341

收藏

93
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部