📄 user_chklogin.asp

📁 江西旅行网整站源码下载希望对大家有用经过测试安全可用
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
                                sPE_Items(conUsername,1) = UserName
                                sPE_Items(conPassword,1) = UserPassword
                                sPE_Items(conSavecookie,1) = CookieDate
                                strLoginParams = "?syskey=" & sPE_Items(conSyskey,1) & "&username=" & sPE_Items(conUsername,1) & "&password=" & sPE_Items(conPassword,1) & "&savecookie=" & sPE_Items(conSavecookie,1)
                                For iIndex = 0 To UBound(arrAPIUrls)
                                    arrAPIs = Split(arrAPIUrls(iIndex), "@@")
                                    strTempMsg = strTempMsg & "<script type=""text/javascript"" language=""JavaScript"" src=""" & arrAPIs(1) & strLoginParams & """ charset=""gb2312""></script>"
                                Next
                            End If
                            strTempMsg = "您已成功登陆，欢迎您的光临!" & strTempMsg
                            Call WriteSuccessMsg(strTempMsg, ComeUrl)
                        End If
                    End If
                End If
            End If
            rs.Close
            Set rs = Nothing
        End If
    Else
        UserPassword = ReplaceBadChar(Trim(Request.Cookies(Site_Sn)("UserPassword")))
        If Action = "xmlstat" Then
            Call showuserxml
        Else
            If API_Enable Then
                sPE_Items(conSyskey,1) = MD5(UserName & API_Key,16)
                sPE_Items(conUsername,1) = UserName
                sPE_Items(conPassword,1) = UserPassword
                sPE_Items(conSavecookie,1) = CookieDate
                strLoginParams = "?syskey=" & sPE_Items(conSyskey,1) & "&username=" & sPE_Items(conUsername,1) & "&password=" & sPE_Items(conPassword,1) & "&savecookie=" & sPE_Items(conSavecookie,1)
                For iIndex = 0 To UBound(arrAPIUrls)
                    arrAPIs = Split(arrAPIUrls(iIndex), "@@")
                    strTempMsg = strTempMsg & "<script type=""text/javascript"" language=""JavaScript"" src=""" & arrAPIs(1) & strLoginParams &""" charset=""gb2312""></script>"
                Next
            End If
            strTempMsg = "您已成功登陆，欢迎您的光临!" & strTempMsg
            Call WriteSuccessMsg(strTempMsg, ComeUrl)
        End If
    End If
End If
If FoundErr = True Then
    If Action = "xml" Or Action = "xmlstat" Then
        Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"
        Response.Write "<body>"
        If UserName <> "" Then
            Response.Write "<user>" & UserName & "</user>"
        Else
            UserName = Request.Cookies("UserName")
            Response.Write "<user>" & UserName & "</user>"
        End If
        Response.Write "<checkstat>err</checkstat>"
        ErrMsg = Replace(Replace(ErrMsg, "{a}", ""), "{b}", "")
        Response.Write "<errsource>" & ErrMsg & "</errsource>"
        If EnableCheckCodeOfLogin = True Then
            Response.Write "<checkcode>1</checkcode>"
        Else
            Response.Write "<checkcode>0</checkcode>"
        End If
        If API_Enable And UserName <> "" Then
            sPE_Items(conSyskey,1) = MD5(UserName&API_Key,16)
            Response.Write "<syskey>" & sPE_Items(conSyskey,1) & "</syskey>"
            Dim intIndex,tmpUrls
            For intIndex = 0 To Ubound(arrAPIUrls)
                tmpUrls = Split(arrAPIUrls(intIndex),"@@")
                Response.Write "<apiurl><![CDATA[" & tmpUrls(1) & "]]></apiurl>"
            Next
            Response.Write "<savecookie/>"
        Else
            Response.Write "<syskey/><apiurl/><savecookie/>"
        End If
        Response.Write "</body>"
    Else
        ErrMsg = Replace(Replace(ErrMsg, "{a}", "<br><li>"), "{b}", "</li>")
        Call WriteErrMsg
    End If
End If
Call CloseConn

Sub showuserxml()
    Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"
    Response.Write "<body>"
    Response.Write "<user>" & UserName & "</user>"
    Response.Write "<userid>" & UserID & "</userid>"
    Response.Write "<userpass>" & UserPassword & "</userpass>"
    Response.Write "<usertype>" & UserType & "</usertype>"
    Response.Write "<groupname>" & GroupName & "</groupname>"
    Response.Write "<grouptype>" & GroupType & "</grouptype>"
    Response.Write "<checkstat>ok</checkstat>"
    Response.Write "<balance>" & Balance & "</balance>"
    Response.Write "<exp>" & UserExp & "</exp>"
    Response.Write "<point>"
    Response.Write "    <pointname>" & PointName & "</pointname>"
    Response.Write "    <userpoint>" & UserPoint & "</userpoint>"
    Response.Write "    <unit>" & PointUnit & "</unit>"
    Response.Write "</point>"
    If ChargeType = 0 Then
        Response.Write "<day>noshow</day>"
    ElseIf ValidNum = -1 Then
        Response.Write "<day>unlimit</day>"
    Else
        Response.Write "<day>" & ValidDays & "</day>"
    End If
    If Trim(UnsignedItems & "") = "" Then
        Response.Write "<article>0</article>"
    Else
        Dim UnsignedItemNum, arrUser
        arrUser = Split(UnsignedItems, ",")
        UnsignedItemNum = UBound(arrUser) + 1
        Response.Write "<article>" & UnsignedItemNum & "</article>"
    End If
    Response.Write "<logined>" & LoginTimes & "</logined>"
    If UnreadMsg <> "" And CLng(UnreadMsg) > 0 Then
        Response.Write "<message>" & UnreadMsg & "</message>"
        Dim MessageID, rsMessage
        Set rsMessage = Conn.Execute("select id,sender,title,sendtime from PE_Message where incept='" & UserName & "'and delR=0 and flag=0 and IsSend=1")
        If rsMessage.bof And rsMessage.EOF Then
            Response.Write "<unreadmessage><stat>empty</stat></unreadmessage>"
        Else
            Response.Write "<unreadmessage><stat>full</stat>"
            Do While Not rsMessage.EOF
                Response.Write "<item>"
                Response.Write "<id>" & rsMessage("id") & "</id>"
                Response.Write "<sender>" & rsMessage("sender") & "</sender>"
                Response.Write "<title>" & rsMessage("title") & "</title>"
                Response.Write "<time>" & rsMessage("sendtime") & "</time>"
                Response.Write "</item>"
                rsMessage.movenext
            Loop
            Response.Write "</unreadmessage>"
        End If
        rsMessage.Close
        Set rsMessage = Nothing
    Else
        Response.Write "<message>0</message>"
        Response.Write "<unreadmessage><stat>empty</stat></unreadmessage>"
    End If
    If API_Enable Then
        sPE_Items(conSyskey,1) = MD5(UserName&API_Key,16)
        Response.Write "<syskey>" & sPE_Items(conSyskey,1) & "</syskey>"
        Dim intIndex,tmpUrls
        For intIndex = 0 To Ubound(arrAPIUrls)
            tmpUrls = Split(arrAPIUrls(intIndex),"@@")
            Response.Write "<apiurl><![CDATA[" & tmpUrls(1) & "]]></apiurl>"
        Next
        If CookieDate = "" Then CookieDate = 0
        Response.Write "<savecookie>" & CookieDate & "</savecookie>"
    Else
        Response.Write "<syskey/><apiurl/><savecookie/>"
    End If
    Response.Write "</body>"
End Sub

'****************************************************
'过程名：WriteErrMsg
'作  用：显示错误提示信息
'参  数：无
'****************************************************

Sub WriteErrMsg()
    Dim strErr
    strErr = strErr & "<html><head><title>错误信息</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
    strErr = strErr & "<link href='../Images/style.css' rel='stylesheet' type='text/css'></head><body>" & vbCrLf
    strErr = strErr & "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf
    strErr = strErr & "  <tr align='center'><td height='22' class='title'><strong>错误信息</strong></td></tr>" & vbCrLf
    strErr = strErr & "  <tr><td height='100' class='tdbg' valign='top'><b>产生错误的可能原因：</b><br>" & ErrMsg & "</td></tr>" & vbCrLf
    strErr = strErr & "  <tr align='center'><td class='tdbg'><a href=""User_Login.asp?ComeUrl=" & ComeUrl & """>&lt;&lt; 返回登录页面</a></td></tr>" & vbCrLf
    strErr = strErr & "</table>" & vbCrLf
    strErr = strErr & "</body></html>" & vbCrLf
    Response.Write strErr
End Sub
%>
上一页 12
⌨️ 快捷键说明

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