ASP个人网站与动网整合非官方方法(4)

            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 
            '访问过论坛尚未登录，为来宾状态 
            CheckUserLogin = False 
        End if 
    Else 
        '未访问过论坛 
        CheckUserLogin = False 
    End if 
    Set UserSession = nothing 
    Set Dvbbs = nothing 
End Function 
%> 



3.bbs/login.asp新增红色部分，使在站点首页登录成功后仍能返回首页: 

    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))