ASP强制刷新网页和判断文件地址

2013-12-11消息称，诺基亚Normandy和Asha一样，主打低端市场，将...
2013-12-10雷军微博披露小米“魔方”项目
2013-12-1012306购票首度接入支付宝支付时间可以快至5秒
2013-12-10中国移动官网显示周四接受iPhone 5s预订
2013-12-0912306 App研发故事：变成开放系统社会人员助力
2013-10-15天猫“双十一”今年打通线上线下：实体店参与。
2013-10-15根据专利显示iPhone将有防摔功能。
2013-10-12百度或可全面收购人人网，传闻四起！
2013-10-07生物密码时代何时到来？尚存隐私泄露隐忧
2013-09-29国务院近日印发了上海自由贸易试验区总体方案，自贸区...

加关注：新浪微博腾讯微博

当前位置：首页 > 知道中心 > ASP > 文章

发表于：2013-09-09| 次阅读| 作者：藕码网

TAG： asp

摘要：ASP强制刷新网页和判断文件地址

强制刷新网页

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

　　判断文件地址是否有效

＜%
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
%＞

注：本站部分信息可能源于互联网分享，如有侵权，请告知，我们将及时删除！

上一篇：开发连接远程sql server 的asp程序应注意的问题下一篇：ASP中页面限权访问的方法