user_logout.asp

来自「静宁成纪中学2006版 欢迎使用！」· ASP 代码 · 共 56 行

ASP
56 行
字号 
<%@language=vbscript codepage=936 %>
<!--#include file="../Conn.asp"-->
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/Md5.asp"-->
<!--#include file="../API/API_Config.asp"-->
<%

Action = Trim(Request("action"))
Dim MemberName,APISysKey
If CheckUserLogined Then
    MemberName = UserName
Else
    MemberName = Request.Cookies(Site_Sn)("UserName")
End If
APISysKey = MD5(MemberName&API_Key,16)
Response.Cookies(Site_Sn)("UserName") = ""
Response.Cookies(Site_Sn)("UserPassword") = ""
Response.Cookies(Site_Sn)("LastPassword") = ""

If Action <> "xml" Then
    Dim strTempMsg
    If API_Enable Then
        Dim iIndex,strLogoutParams
        strLogoutParams = "?syskey=" & APISysKey & "&username=" & MemberName
        For iIndex = 0 to Ubound(arrAPIUrls)
            Dim arrAPIs
            arrAPIs = Split(arrAPIUrls(iIndex),"@@")
            strTempMsg = strTempMsg & "<script type=""text/javascript"" language=""JavaScript"" src=""" & arrAPIs(1) & strLogoutParams &""" charset=""gb2312""></script>"
        Next
    End If
    strTempMsg = "您已成功注销，期待您的再次光临!" & strTempMsg
    Call WriteSuccessMsg(strTempMsg,InstallDir & "Index.asp")
Else
    Response.Clear
    Response.ContentType = "text/xml; charset=gb2312"
    Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"
    Response.Write "<body>"
    Response.Write "<user>" & MemberName & "</user>"
    Response.Write "<checkstat>err</checkstat>"
    Response.Write "<errsource/>"
    Response.Write "<checkcode>0</checkcode>"
    If API_Enable And MemberName <> "" Then
        Response.Write "<syskey>" & APISysKey & "</syskey>"
        Dim intIndex,tmpUrls
        For intIndex = 0 To Ubound(arrAPIUrls)
            tmpUrls = Split(arrAPIUrls(intIndex),"@@")
            Response.Write "<apiurl><![CDATA[" & tmpUrls(1) & "]]></apiurl>"
        Next
    Else
        Response.Write "<syskey/><apiurl/>"
    End If
    Response.Write "<savecookie/>"
    Response.Write "</body>"
End If
Call CloseConn
%>

user_logout.asp - 源码说明

本页面展示了「静宁成纪中学2006版 欢迎使用！」中的 user_logout.asp 源码文件，采用 ASP 编程语言编写，共 56 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与2006相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?