查看完整版本: ASP判断文件地址是否有效

yangyj1204 2008-10-23 15:42

ASP判断文件地址是否有效

ASP判断文件地址是否有效

<%

Response.Write("<head><style></style></head>")

On Error Resume Next

Dim thisurl,thistext

thisurl=Request("thisurl") '定义文件地址(非Html格式文档)!

if thisurl="" then

Response.Write("请先输入文件地址!")

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("建立连接失败,文件不存在或网络有问题!;错误原因:"&Err.Description&"！

")

Response.End

End if

End Function
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(""& ii &" × ")

Else

Response.Write(""& ii &" √ ")

End if

Next
if Err then

Err.Clear

Response.Write("碰到意外!;错误原因:"&Err.Description&"！")

Response.End

End if

%>

　　 专注所以专业，专业所以值得信赖。
╔┄┄┄┄┄╦┄┄┄┄┄╦┄┄┄┄┄╦┄┄┄┄┄╗
┆私服版本 ┆ 域名注册 ┆ 服务器 租用、托管 ┆
╠┄┄┄┄┄╬┄┄┄┄┄╬┄┄┄┄┄╬┄┄┄┄┄╣
┆网站制作 ┆技术支持 ┆ 网站推广 ┆ 虚拟主机 ┆
╚┄┄┄┄┄╩┄┄┄┄┄╩┄┄┄┄┄╩┄┄┄┄┄╝
 在线订购： [url]www.bl-kj.com[/url] QQ：320092873
 百隆竭诚为您服务

浪子情 2008-10-23 17:19

这个啊。不清楚啊。只有等一下看啊

[img]http://p8.images22.51img1.com/6000/qwb654/852fad10dd443bb0292fff0ca514f90d.gif[/img]
[url=http://www.yuanyuan.biz]网游小说网[/url] [url=http://www.023a.net]小说阅读网[/url]

qingfengb 2008-11-2 18:11

看看谢谢应该可以了

baow1ty 2008-11-9 19:30

广告画颜料

[url=http://www.wencuis.com]广告画颜料[/url]
[url=http://www.laitongdianqi.cn]直流弧焊机[/url]
[url=http://www.laitongdianqi.cn]气体保护焊机[/url]
[url=http://www.laitongdianqi.cn]等离子弧切割机[/url]
[url=http://www.lx013.com]捏合机[/url]

cdef173 2008-11-10 23:31

宝吉牌对焊机

宝吉牌对焊机：可调电流直接对焊8.5MM以下钢筋铁丝。价格：1800元/台。功率：380V1.5KW。设备实行三包，免费提供有关技术，免费培训直达客户能单独操作和维护维修。先学后交钱，学会了再购买。长期成本价供应所有另配件，免费技术升级和咨询。免费代办运输，运输过程中损坏或丢失由宝吉负责。宝吉厂及宝吉牌产品荣获2004年《中国质量万里行》"诚信·维权"重点保护品牌(单位)，荣获2004年中国科学研究院名牌与市场战略专家委员会"质量服务信誉AAA级企业"。专业废变宝，只会做最好。宝吉牌废变宝专用机械设备系独家设计精工制造，竭力为老百姓创造和制造能挣钱的机遇和机器。经营宗旨：信誉至高无上，质量精益求精，服务无微不至，创新永无止境。宝吉产品及服务，必系最佳。宝吉机械设备厂徽标和宝吉牌商标已注册，敬请认准宝吉牌，假冒必纠！实施ISO9000质量管理体系，对所有2006年5月1日后销售的宝吉牌各类机械设备郑重承诺：三包期内有问题就换新的。市场部电话：0374-6315817，手机：013703744588。详细了解宝吉机械设备最新图片及说明敬请联系：E-mail:fbbcyyxgs@126.com。QQ：188452374

huanqiu030 2008-11-16 01:59

不关我的事,我是逗大家开心的,政客的价格

有一个食人肉的国家里，一位旅游者偶然走进了一家餐厅。

他看到厅里的广告牌上标着每一种菜肴的价格。每盘牧师肉是3美元，每盘猎人肉是4美元，每盘老板肉是5美元，每盘政客肉则为25美元。

这位旅游者便忍不住问为什么政客的肉比其他人的肉要贵这么多。

“这种肉要弄干净多不容易！”餐厅老板回答说。

[url=http://www.hqzg.net/qiumoji.htm]球磨机[/url] [url=http://www.hqzg.net/leimengmo.htm]雷蒙磨[/url] [url=http://www.hqzg.net/eshiposuiji.htm]鄂式破碎机[/url] [url=http://www.hqzg.net/meimoji.htm]煤磨机生产厂家[/url] [url=http://www.hqzg.net/shiliaoshengchanxian.htm]石料生产线设备[/url]

pqrs914 2008-11-17 21:22

海贼王,安莎,上海旅行社,旅游,会展,上海酒店,景点,会议,展台

在这个大海贼时代，有许多的海贼为了寻找传说中海贼王G 罗杰所遗留的「ONEPIECE」，揭开了海贼的旗子战斗。其中有一名叫鲁夫的少年，憧憬海贼的生涯.
鲁夫很崇拜停留在他们村子里海贼团的领袖杰克。有一天鲁夫吃了杰克他们的战利品「恶魔的果实」。那果实给了他能力，虽然造成他一辈子不能游泳，但是却拥有了全身像橡胶一样可以伸长的神奇身体。十年后，鲁夫戴着杰克寄放在他那的小麦草帽，一个人出海开始他成为海贼王的冒险航海之旅
点此观看TV版全集[FLV]http://www.bbsour.com
点此观看TV版全集[P2P]
年底特别篇
[color=YellowGreen]海贼王[/color]时代剧-草帽小子路飞的捕头传
点此观看剧场版全集

“[url=http://www.ansatrip.com][color=Red]安莎[/color][/url]”作为一家国际性的企业，[url=http://www.ansatrip.com][color=DarkGreen]上海安莎旅行社有限公司[/color][/url]十年来在行业内的成就并非幸致，完全是靠我们对客户提供优质而高效率的服务带来的辉煌成绩。
[url=http://www.ansatrip.com][color=Green]上海安莎旅行社有限公司[/color][/url]自成立的第一天起，“[url=http://www.ansatrip.com][color=Red]安莎[/color][/url]”就致力于建立一个处于行业领先地位的旅游服务机构，与遍布世界各地的众多精诚合作伙伴，共同为来自中国的客户提供最佳商旅及会议服务。在中国大陆开展业务以来，上海安莎旅行社有限公司从无到有，已经取得了令人瞩目的成就，在行业之内占有重要的地位。
我们的目标是要成为专业化的国际商务服务企业。“安莎”本着相同的标准与工作原则，为客户提供“最专业”、“最快速”、“最完美”的商旅及会议服务，建立公司自己的良好社会形象。客户是企业品牌建树之源，安莎力求所有的服务达到最佳，满足客户特定的个性化需求。安莎的快速发展，得益于我们广泛服务的客户；客户不仅仅是安莎现在生存的基础，也是未来发展的不竭源泉。
上海安莎旅行社有限公司视员工为最宝贵的财富，没有他们的贡献，公司的发展必然会受到限制。因此，公司重视员工培训与提升，为所有员工提供事业发展的平等机会和良好平台，共同迎接未来的竞争与挑战。安莎员工每天都在展示自己的聪明才智、创新精神和工作主动性，这是我们业务发展的动力。

[url=http://www.ansatrip.com]上海旅行社[/url] 组团旅游江苏旅游浙江旅游安徽旅游上海旅游上海会展会展设计展台搭建上海酒店浙江景点浙江酒店江苏酒店江苏景点安徽酒店安徽景点浙江会议江苏会议安徽会议上海会议

chongziwz8 2008-11-19 02:33

焊接设备向机电一体化方向发展

[b][url=http://www.hanjiemaimai.com/index.html]二氧化碳焊机[/url][/b]将得到快速发展。近年来，通过焊接设备行业的自行开发、设计、引进技术和合资生产，我国的自动、半自动焊机的技术水平有了很大的提高。自动、半自动二氧化碳焊机www.hanjiemaimai.com/index.html的发展对我国电焊机行业具有重要意义，其不但作为独立的产品广泛服务于社会，而且作为大多数成套专用焊机设备必备的焊接电源在国民经济的关键领域广泛应用.

chongziwz8 2008-11-23 11:11

高寿命不锈钢材料蝶阀特点

三偏心金属硬密封[b][url=http://www.samsonshanghai.com/index.html]气动蝶阀[/url][/b]，阀体和阀座为连体构件，阀座密封表面层堆焊耐温、耐蚀合金材料。这种蝶阀与传统蝶阀相比具有耐高温，操作轻便，启闭无磨擦，关闭时随着传动机构的力矩增大来补偿密封，提高了<a href="http://www.samsonshanghai.com/index.html">气动蝶阀</a>的密封性能及延长使用寿命的优点.

hnzbjq124 2008-11-23 14:35

女大学生第一次偷食禁果的经历A5

我们一直为没有一个合适的地方亲热而烦恼，这次为了给我过生日，我们决定去宾馆开房间。主意是他想的，让我忐忑不安，但是我还是同意了。傍晚，他带我来到了一家宾馆，标准间180元，这些都是他事前调查好的。

河南矿山机械厂专业生产
[url=http://www.yaqiuji.net/tongyongjixie_石料生产线.html]碎石生产线设备[/url][url=http://www.yaqiuji.net/tongyongjixie_选矿生产线.html]选矿生产线[/url]
[url=http://www.yaqiuji.net/tongyongjixie_石料生产线.html]石料生产线[/url]
[url=http://www.yaqiuji.net/tongyongjixie_制沙生产线.html]制沙生产线[/url]
[url=http://www.yaqiuji.net/tongyongjixie_制砂机设备.html]制砂机设备[/url]

huanqiu030 2008-11-24 14:35

不关我的事,我是逗大家开心的,老师的记性真好

这是一堂历史课。老师正在讲哥伦布发现美洲大陆的故事。她

讲完之后说：

   “所有这一切，都发生在四百多年以前。”

   一个小学生把眼睛睁得大大的，惊讶地叫喊说：“我们老师的

记性真好！”

[url=http://www.hqzg.net/qiumoji.htm]球磨机[/url]  [url=http://www.hqzg.net/xuankuangshebei.htm]选矿设备[/url]  [url=http://www.hqzg.net/qiumoji.htm]圆锥球磨机[/url] [url=http://www.hqzg.net/xishiji.htm]洗石机价格[/url] [url=http://www.hqzg.net/shiliaoshengchanxian.htm]石料破碎生产线[/url]

uvwx340 2008-11-25 03:41

顶~！~！~！~！！

[url=http://www.weizi.org.cn/]金山毒霸下载[/url][url=http://www.zzztt.com.cn/]免费金山毒霸2009[/url][url=http://www.cmarues.cn/]wps下载[/url][url=http://www.yulanyoo.cn/]金山杀毒下载[/url][url=http://www.zt286.cn/]杀毒软件免费下载[/url]~!！!~!!!~

klmn228 2008-11-28 22:11

顶一下

支持.顶一下

——————————————————————————————————————————
[url=http://www.qianlongflash.com/]网站建设[/url]签名：北京[url=http://www.shjfy.com/]翻译公司[/url]是北京最专业的翻译公司(北京[url=http://www.shjfy.com/]同声传译[/url])之一

khhklsf457 2008-11-28 23:57

沈阳华恒羊肉串电烤箱024-88324639电烤箱.羊肉串烤箱

沈阳华恒024-88324639羊肉串电烤箱是根据市场上用明火烤羊肉不够卫生，烟、油气污染城市环境等缺点而改进生产的，它以造型美观、坚实耐用、质量上乘而畅销全国市场，深受广大用户的好评，而且具有热穿透力强、节能省电、使用寿命长、操作安全、更换简单等特点,确实是一项投资少效益高的创业致富产品.此系列产品已成型多年！一般民用电即可！箱羊肉串电烤箱是根据市场上用明火烤羊肉不够卫生,烟、油气污染城市环境等...
[url=http://www.cy139.com]电烤箱[/url]
[url=http://www.cy139.com]羊肉串电烤箱[/url]
[url=http://www.cy139.com]羊肉串烤箱[/url]
[img]http://www.cy139.com/eWebEditor/UploadFile/20061222171843216.jpg[/img]
[img]http://www.cy139.com/eWebEditor/UploadFile/20061222172656554.jpg[/img]
[img]http://www.cy139.com/eWebEditor/UploadFile/200658233554913.jpg[/img]
[img]http://www.cnxjx.com/eWebEditor/UploadFile/20086585057422.jpg[/img]
[img]http://www.139hh.com/eWebEditor/UploadFile/200811513637752.jpg[/img]

免费服务电话[img]http://www.118wz.com/eWebEditor/UploadFile/2007118145043646.jpg[/img]

E—MAIL：88324639@163.com

公司网站：www.cy139.com 电话024－88324639 024-88324850 024-31401808

业务咨询QQ：337808621 273037046 415160829

页: [1]

查看完整版本: ASP判断文件地址是否有效