2.CheckUserLogin.asp code:

<!--#Include File="bbs/inc/Dv_ClsMain.asp"-->
<%
Function CheckUserLogin()
    Dim Dvbbs,UserSession
    Const MsxmlVersion=".3.0"
    Set Dvbbs = New Cls_Forum
    Set UserSession=Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
    If UserSession.loadxml(Session(Dvbbs.CacheName & "UserID")&"") Then
        If UserSession.documentElement.selectSingleNode("userinfo/@userid").text<>"0" Then
            '在論壇登錄成功
            CheckUserLogin = True
            '下邊是用戶一些信息的獲取方法，可自行將其保存于Cookies或Session中便于使用:
            '用戶ID      :  UserSession.documentElement.selectSingleNode("userinfo/@userid").text
            '用戶名      :  UserSession.documentElement.selectSingleNode("userinfo/@username").text
            '生日        :  UserSession.documentElement.selectSingleNode("userinfo/@userbirthday").text
            '電子郵箱    :  UserSession.documentElement.selectSingleNode("userinfo/@useremail").text
            '性別        :  UserSession.documentElement.selectSingleNode("userinfo/@usersex").text  '0為女,1為男
            '注冊(cè)時(shí)間    :  UserSession.documentElement.selectSingleNode("userinfo/@joindate").text
            '最后登錄    :  UserSession.documentElement.selectSingleNode("userinfo/@lastlogin").text
            '登錄次數(shù)    :  UserSession.documentElement.selectSingleNode("userinfo/@userlogins").text
            '金錢        :  UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text
            '積分        :  UserSession.documentElement.selectSingleNode("userinfo/@userep").text
            '魅力        :  UserSession.documentElement.selectSingleNode("userinfo/@usercp").text
            '最后登錄IP  :  UserSession.documentElement.selectSingleNode("userinfo/@userlastip").text
            '瀏覽器類型  :  UserSession.documentElement.selectSingleNode("agent/@browser").text
            '瀏覽器版本  :  UserSession.documentElement.selectSingleNode("agent/@version").text
            '操作系統(tǒng)    :  UserSession.documentElement.selectSingleNode("agent/@platform").text
            '來訪IP      :  UserSession.documentElement.selectSingleNode("agent/@ip").text
            '舉例應(yīng)用:
            Response.Cookies("username") = UserSession.documentElement.selectSingleNode("userinfo/@username").text
            Response.Cookies("joindate") = UserSession.documentElement.selectSingleNode("userinfo/@joindate").text
            If UserSession.documentElement.selectSingleNode("userinfo/@usersex").text="0" Then
                Response.Cookies("sex") = "靚妹"
            Else
                Response.Cookies("sex") = "酷哥"
            End if
            Response.Cookies("lastlogin") = UserSession.documentElement.selectSingleNode("userinfo/@lastlogin").text
            Response.Cookies("userlogins") = UserSession.documentElement.selectSingleNode("userinfo/@userlogins").text
            Response.Cookies("browser") = UserSession.documentElement.selectSingleNode("agent/@browser").text
            Response.Cookies("version") = UserSession.documentElement.selectSingleNode("agent/@version").text
            Response.Cookies("platform") = UserSession.documentElement.selectSingleNode("agent/@platform").text
        Else
            '訪問過論壇尚未登錄，為來賓狀態(tài)
            CheckUserLogin = False
        End if
    Else
        '未訪問過論壇
        CheckUserLogin = False
    End if
    Set UserSession = nothing
    Set Dvbbs = nothing
End Function
%>



3.bbs/login.asp新增紅色部分，使在站點(diǎn)首頁登錄成功后仍能返回首頁:

    Dim comeurlname
    If instr(lcase(request("comeurl")),"reg.asp")>0 or instr(lcase(request("comeurl")),"login.asp")>0 or trim(request("comeurl"))="" Then
        comeurlname=""
        comeurl="index.asp"
    Else
        comeurl=request("comeurl")
        comeurlname="<li><a href="&request("comeurl")&">"&request("comeurl")&"</a></li>"
    End If

    If request("back")="1" Then
        Response.Redirect("../index.asp")
    End If

    Dim TempStr
    TempStr = template.html(2)
    'If Dvbbs.Forum_ChanSetting(0)=1 And Dvbbs.Forum_ChanSetting(10)=1 And Dvbbs.Forum_ChanSetting(12)=1 Then
    '    TempStr = Replace(TempStr,"{$ray_logininfo}",template.html(3))
    'Else
    '    TempStr = Replace(TempStr,"{$ray_logininfo}","")
    'End If
    '-----------------------------------------------------------------
    '系統(tǒng)整合
    '-----------------------------------------------------------------
    If DvApi_Enable Then
        Response.Write DvApi_SaveCookie
        Response.Flush
    End If
    '-----------------------------------------------------------------
    TempStr = Replace(TempStr,"{$ray_logininfo}","")
    TempStr = Replace(TempStr,"{$comeurl}",comeurl)
    TempStr = Replace(TempStr,"{$comeurlinfo}",comeurlname)
    TempStr = Replace(TempStr,"{$forumname}",Dvbbs.Forum_Info(0))
    Response.Write TempStr
    TempStr=""
End Function

最新評(píng)論