作家
登录

强制刷新和判断文件地址

作者: 来源:www.28hudong.com 2013-03-30 08:58:01 阅读 我要评论

复制代码 代码如下:强制刷新网页<%   '强制性刷新随机验证码   '让随机验证码每次按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 %>

  推荐阅读

  如何在 Access 2003 和 Access 2002 中创建 DSN 的连接到 SQLServer 对链接表

方法 1: 使用 CreateTableDef 方法 CreateTableDef 方法可创建链接表。 若要使用此方法, 创建一个新模块, 然后以下 AttachDSNLessTable 函数添加到新模块。复制代码 代码如下:'//Name : AttachDSNLessTable>>>详细阅读


本文标题:强制刷新和判断文件地址

地址:http://www.17bianji.com/kaifa2/ASP/33054.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)