艺术迷（fansart.com） 首页 收藏本站 RSS频道
艺术迷首页 -> 网页设计 -> ASP实用技巧：强制刷新和判断文件地址--asp编程技术

ASP实用技巧：强制刷新和判断文件地址--asp编程技术

2006-5-9　　　作者：　　　来源：互联网　　　点击：1385
页面功能： 【评论】 【有错就点】 【字体：大 中 小】 【打印】 【关闭】 【收藏本页】
ASP实用技巧：强制刷新和判断文件地址
强制刷新网页

＜%
　'强制性刷新随机验证码
　'让随机验证码每次按IE的后退按钮时，返回登录页面的随即码都自动刷新，
　Response.expires=-1
　Response.AddHeader"pragma"‚"no-cache"
　Response.AddHeader"cache-control"‚"no-store"
%＞

　　判断文件地址是否有效

＜%
　'原创作者:小艺 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
　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

　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

　if Err then
　　Err.Clear
　　Response.Write("<span>碰到意外!;错误原因:"&Err.Description&"！</span>")
　　Response.End
　End if
%＞
页面功能： 【评论】 【有错就点】 【字体：大 中 小】 【打印】 【关闭】 【收藏本页】
在百度中搜索更多相关主题
声明：本站刊载此文不代表同意其说法或描述，仅为提供更多信息，也不构成任何建议。如有疑问请与站长联系。
实例讲解ASP实现抓取网上房产信息2006-5-9
asp远程图片自动上传到服务器2006-5-9
Blog设计的7个趋势2006-5-9
正则小偷的部份核心函数2006-5-9
asp如何检测自己网站的错误2006-5-9
ASP实用技巧：强制刷新和判断文件地址2006-5-9
在ASP应用程序中限制重复提交同一表单2006-5-9
在ASP应用程序中加入智能搜索2006-5-9
用ASP实现远程抓取网页到本地数据库2006-5-9
asp自动将远程页面的文件中的图片下载到本地服务器2006-5-9
网友评论
目前没有评论!
发表评论
您的姓名： 匿名发送
电子邮件：
评论内容：
不能超过100个字符

所有留言只代表网友个人观点，不代表本站观点。
请各位遵纪守法并注意语言文明。
新闻搜索
关 键 词：
搜索范围：
全站精华
图文精彩
韩国品牌YSB夏装
【2006-5-8 11:37:48】
韩国品牌YSB夏装 冷艳美人异国风情(3)
MIKE
【2006-5-8 9:52:42】
MIKE H的CG插画作品欣赏(1)
经典样本设计欣赏（国人作品）1[图]--平面广告
【2006-4-26 17:57:18】
经典样本设计欣赏（国人作品）1
新锐CG插画
【2006-4-26 14:27:13】
新锐CG插画 Monday to Friday
Natascha
【2006-4-26 13:34:46】
Natascha Roeoesli的人物CG插画作品欣赏(1)
水木清华地产广告欣赏[图]--平面广告
【2006-4-26 9:31:54】
水木清华地产广告欣赏
2006夏日流行时尚，创意无限街头华丽[图]--时装魅影
【2006-4-22 16:46:51】
2006夏日流行时尚，创意无限街头华丽
万科西山庭院.格.沉.尊[图]--平面广告
【2006-4-21 9:08:35】
万科西山庭院.格.沉.尊
泊林花园推广故事绘本（2）[图]--CG插画
【2006-4-20 11:43:23】
泊林花园推广故事绘本（2）
泊林花园推广故事绘本（1）[图]--CG插画
【2006-4-20 11:34:33】
泊林花园推广故事绘本（1）
房地产广告设计-之水墨风格1[图]--平面广告
【2006-4-14 15:56:06】
房地产广告设计-之水墨风格1
溯源居广告欣赏--小红人[图]--平面广告
【2006-4-14 14:45:57】
溯源居广告欣赏--小红人
cg插画欣赏[图]--CG插画
【2006-4-14 9:21:18】
cg插画欣赏
yashasi插画作品欣赏[图]--CG插画
【2006-4-13 18:32:29】
yashasi插画作品欣赏
北邦插画欣赏（1）[图]--CG插画
【2006-4-13 9:49:02】
北邦插画欣赏（1）
高傲的玫瑰-温碧霞[图]--摄影艺术
【2006-4-12 8:58:34】
高傲的玫瑰-温碧霞
国粹京剧脸谱表情[图]--界面设计
【2006-4-11 17:51:33】
国粹京剧脸谱表情
回忆紫禁城里那些逝去的[图]--中国艺术
【2006-4-11 16:34:31】
回忆紫禁城里那些逝去的
非常可爱的儿童插画（1）[图]--CG插画
【2006-4-11 15:59:16】
非常可爱的儿童插画（1）
荷兰著名画家Anton
【2006-4-11 15:49:41】
荷兰著名画家Anton Pieck插画