ASP强制刷新和判断文件地址是否存在

作者：小艺时间：2007-09-16 17:11:00　

本文介绍了两个asp实用的技巧，一是使用asp强制刷新页面，二是判断一个文件是否存在

强制刷新网页

强制性刷新随机验证码，让随机验证码每次按IE的后退按钮时，返回登录页面的随即码都自动刷新。

＜％
  　Response.expires=-1
  　Response.AddHeader"pragma","no-cache"
  　Response.AddHeader"cache-control","no-store"
  ％＞

asp使用XML判断文件地址是否有效

＜％
 　’原创作者:小艺 QQ:52093 时间:2005.6.30
 　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
 ％＞

标签：文件地址,刷新,asp

投稿

ASP强制刷新和判断文件地址是否存在

猜你喜欢

Banner广告条中的字体设计

剖析SQL Server 事务日志的收缩和截断

301转向代码合集

网站数据库，是选SQL Server还是Access好

SQL Server密码管理的六个危险判断

浏览器的字体等宽空格

带你深入了解数据库设计中的英文术语表

Sqlserver 2000/2005/2008 的收缩日志方法和清理日志方法

谈谈Javascript中的++和–操作符

MYSQL教程:检查数据表和修复数据表

如何利用SQL Server数据库快照形成报表

javascript 的 in 操作符实例详解

html注释所引起的一系列问题

泛泛而谈界面中的斑马纹设计

使用 TRUNCATE TABLE 删除所有行

ASP如何操作Excel（读取，输出）

ASP函数指针试探－GetRef

最新LOGO设计流行趋势——叶子

用户体验至上的网页设计秘笈

影响SQL Server性能的关键三个方面