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为男
'注册时间 : usersession.documentelement.selectsinglenode("userinfo/@joindate").text
'最后登录 : usersession.documentelement.selectsinglenode("userinfo/@lastlogin").text
'登录次数 : 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
'操作系统 : usersession.documentelement.selectsinglenode("agent/@platform").text
'来访ip : usersession.documentelement.selectsinglenode("agent/@ip").text
'举例应用:
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
'访问过论坛尚未登录，为来宾状态
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))
'else
' tempstr = replace(tempstr,"{$ray_logininfo}","")
'end if
'-----------------------------------------------------------------
'系统整合
'-----------------------------------------------------------------
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
2
如对本文有疑问，
点击进行留言回复！！
我要评论
网友评论