极乐门资源网 Design By www.ioogu.com
复制代码 代码如下:
强制刷新网页
<% 
  '强制性刷新随机验证码
  '让随机验证码每次按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
%>
标签:
强制刷新和判断文件地址

极乐门资源网 Design By www.ioogu.com
极乐门资源网 免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
极乐门资源网 Design By www.ioogu.com

评论“强制刷新和判断文件地址”

暂无强制刷新和判断文件地址的评论...

稳了!魔兽国服回归的3条重磅消息!官宣时间再确认!

昨天有一位朋友在大神群里分享,自己亚服账号被封号之后居然弹出了国服的封号信息对话框。

这里面让他访问的是一个国服的战网网址,com.cn和后面的zh都非常明白地表明这就是国服战网。

而他在复制这个网址并且进行登录之后,确实是网易的网址,也就是我们熟悉的停服之后国服发布的暴雪游戏产品运营到期开放退款的说明。这是一件比较奇怪的事情,因为以前都没有出现这样的情况,现在突然提示跳转到国服战网的网址,是不是说明了简体中文客户端已经开始进行更新了呢?