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

发布时间：2023-07-18 14:23:16 所属栏目：Asp教程来源：

导读：强制刷新网页

＜%

　’强制性刷新随机验证码

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

　Response.expires=-1

　Response.AddHeader"pragma","no-ca

强制刷新网页

＜%

　’强制性刷新随机验证码

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

　Response.expires=-1

　Response.AddHeader"pragma","no-cache"

　Response.AddHeader"cache-control","no-store"

%＞

判断文件地址是否有效

＜%

　’原创作者:小艺 QQ:52093 时间:2005.6.30

　Response.Write("")

　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,"")<>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

%＞

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!