ASP强制刷新网页和判断文件地址实例代码
强制刷新网页和判断文件地址实例代码
强制刷新网页
强制刷新网页
<%
'强制性刷新随机验证码
'让随机验证码每次按IE的后退按钮时,返回登录页面的随即码都自动刷新,
Response.expires=-1
Response.AddHeader"pragma","no-cache"
Response.AddHeader"cache-control","no-store"
%>
判断文件地址是否有效
判断文件地址是否有效
<%
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
%>
以上就是ASP强制刷新网页和判断文件地址实例代码,希望对大家的学习有所帮助。
您可能感兴趣的文章:asp.net+js 实现无刷新上传解析csv文件的代码asp.net 判断数组是否存在某个值的方法判断Email地址是
您可能感兴趣的文章
否正确的几个函数(asp/php/javascript)asp.net下使用jquery 的ajax+WebService+json 实现无刷新取后台值的实现代码asp.net
简便无刷新文件上传系统asp.net Ajax之无刷新评论介绍Asp.net利用JQuery AJAX实现无刷新评论思路与代码asp.net jquery
无刷新分页插件(jquery.pagination.js)asp.net防止刷新时重复提交(可禁用工具条刷新按钮)Asp.net 2.0 无刷新图片上传 显示缩
略图 具体实现asp.net+jquery ajax无刷新登录的实现方法Asp.Net 无刷新文件上传并显示进度条的实现方法及思路asp.net刷新
本页面的六种方法总结刷新页面的几种方法小结(JS,ASP.NET).net cs后台刷新aspx页面的四种方式asp.net使用AJAX实现无
刷新分页asp.net中MVC借助Iframe实现无刷新上传文件实例asp实现带刷新功能的验证码代码asp.net实现文件无刷新上传方
法汇总