• λ我爱Aspx >> Asp.Net >> ASP实用技巧：强制刷新和判断文件地址

    • ASP实用技巧：强制刷新和判断文件地址

  • :aspxer  Դ:internet  :2007-5-15 20:47:26  ؼ:asp

  • 强制刷新网页

    ＜%

    ’强制性刷新随机验证码

    ’让随机验证码每次按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))

    Ҷƪл˵?
    第一页上一页12下一页尾页
  • һƪASP木马Webshell安全解决办案
    һƪIIS HTTP500内部错误解决办法