const.asp

一个不错的论坛原代码

<%


if Request.Cookies(l_url&"fylogin")="" then
Response.Cookies(l_url&"fylogin")="cpb"
Response.Cookies(l_url&"fylogin").Expires=date+3650
response.write "<meta HTTP-EQUIV=REFRESH CONTENT=3>正在连接["&l_title&"]...<br><br>本系统要求使用COOKIES, 如果您的浏览器禁用COOKIES, 您将不能登录本系统..."
response.end
end if

'设置初始变量
u_lastlogin=cdate("2002-1-1 00:00:00")
isuser=false'用户
isvipuser=false'认证会员
isbordermaster=false'斑竹
ismaster=false'总斑竹
issupermaster=false'管理员


cpbpuserid=chktopic(request.Cookies(l_url&"feiyue")("userid"))
cpbusername=chktopic(Request.Cookies(l_url&"feiyue")("username"))
cpbpassword=chktopic(request.Cookies(l_url&"feiyue")("password"))
cpbhidden=chktopic(request.cookies("cpbhidden"))
if not isnumeric(cpbhidden) or cpbhidden="" then cpbhidden=0

'获取用户信息
if cpbpuserid<>"" and cpbusername<>"" then
 sqlcook="select u_weiwang,u_deltopic,u_toptopic,u_beauty,u_money,grade,fen,send,u_lastlogin from user where u_id="&cpbpuserid&" and  username='"&cpbusername&"' and password='" &cpbpassword & "'"
set rscook=conn.execute(sqlcook)
if not(rscook.BOF or rscook.EOF) then
isuser=true
u_lastlogin=rscook("u_lastlogin")
u_toptopic1=rscook("u_toptopic")
u_deltopic1=rscook("u_deltopic")
u_grade=rscook("grade")
fycpbsend=rscook("send")
fycpbfen=rscook("fen")
fycpbmoney=rscook("u_money")
fycpbbeauty=rscook("u_beauty")
fycpbweiwang=rscook("u_weiwang")
select case u_grade
case "0"
issupermaster=true
case "1"
ismaster=true
case "2"
isbordermaster=true
case "3"
isvipuser=true
end select
else
isuser=false
response.redirect("logout.asp")
end if
set rscook=nothing
end if
%>