网络编程 
首页 > 网络编程 > 浏览文章

强制刷新和判断文件地址

(编辑:jimmy 日期: 2024/12/26 浏览:3 次 )
复制代码 代码如下:
强制刷新网页
<% 
  '强制性刷新随机验证码
  '让随机验证码每次按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缓存类
下一篇:查询翻页优化第1/2页
一句话新闻
高通与谷歌联手!首款骁龙PC优化Chrome浏览器发布
高通和谷歌日前宣布,推出首次面向搭载骁龙的Windows PC的优化版Chrome浏览器。
在对骁龙X Elite参考设计的初步测试中,全新的Chrome浏览器在Speedometer 2.1基准测试中实现了显著的性能提升。
预计在2024年年中之前,搭载骁龙X Elite计算平台的PC将面世。该浏览器的提前问世,有助于骁龙PC问世就获得满血表现。
谷歌高级副总裁Hiroshi Lockheimer表示,此次与高通的合作将有助于确保Chrome用户在当前ARM兼容的PC上获得最佳的浏览体验。