位置：首页>> 网络编程>> XML编程>> ASP强制刷新和判断文件地址是否存在

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

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

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

本文介绍了两个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强制刷新和判断文件地址是否存在

猜你喜欢