inc.asp

asp构建网站bbs.采用B/S架构

<!--#include file="conn.asp"--><!--#include file="fun.asp"--><%
timeset="0"
bd=replace(request.querystring("bd"),"'","''")
totable=replace(request.querystring("totable"),"'","''")

bbsupa=application(cn&"bbsup")
if bbsupa="" then
application(cn&"bbsup")=1
bbsupa=application(cn&"bbsup")
end if

bbsupc=request.cookies(cn&"2")("bbsup")
if bbsupc="" then
response.cookies(cn&"2")("bbsup")=0
bbsupc=request.cookies(cn&"2")("bbsup")
end if

if int(bbsupc)<>int(bbsupa) then
call bbsinc()
end if

tl=request.cookies(cn&"2")("tl")
autotable=request.cookies(cn&"2")("autotable")
alltable=request.cookies(cn&"2")("alltable")
cbbs=application(cn&"cbbs")
topinfo=request.cookies(cn&"2")("topinfo")
upsize=request.cookies(cn&"2")("upsize")
upnum=request.cookies(cn&"2")("upnum")
lmbbs=request.cookies(cn&"2")("lmbbs")
b1s=request.cookies(cn&"2")("b1s")
c11=request.cookies(cn&"2")("c11")
c12=request.cookies(cn&"2")("c12")
rri=request.cookies(cn&"2")("rri")


sub bbsinc()
set bbs=myconn.execute("select*from bbsinfo")
tlinfo=bbs("tlinfo")
tli=split(tlinfo,"|?|")
tl=tli(0)
c11=tli(1)
c12=tli(2)
topinfo=tli(3)
upnum=tli(4)
upsize=tli(5)
b1s=tli(6)
autotable=tli(7)
alltable=tli(8)
cbbs=tli(9)
lmbbs=tli(10)


rri=bbs("nyr")
application(cn&"cbbs")=cbbs
response.cookies(cn&"2")("tl")=tl
response.cookies(cn&"2")("topinfo")=topinfo
response.cookies(cn&"2")("upsize")=upsize
response.cookies(cn&"2")("upnum")=upnum
response.cookies(cn&"2")("lmbbs")=lmbbs
response.cookies(cn&"2")("b1s")=b1s
response.cookies(cn&"2")("c11")=c11
response.cookies(cn&"2")("c12")=c12
response.cookies(cn&"2")("rri")=rri
response.cookies(cn&"2")("autotable")=autotable
response.cookies(cn&"2")("alltable")=alltable
response.cookies(cn&"2")("bbsup")=bbsupa
set bbs=nothing
end sub

if totable="" then totable=autotable
td=FormatDateTime(now+timeset/24,2)
if td<>rri then
rri=td
response.cookies(cn&"2")("rri")=rri
myconn.execute("update bbsinfo set nyr='"&td&"'")
myconn.execute("update bbsinfo set todaynum='0'")
myconn.execute("update bdinfo set tnum=0")
end if
url=request("url")
if bd<>"" then
sty="bbs"&bd
else
sty="all"
end if
sp=request.cookies(cn&"1")(sty)
c1=request.cookies(cn&"1")(sty&"c1")
c2=request.cookies(cn&"1")(sty&"c2")
if sp="" then sp=""&b1s&""
if c1="" then c1=""&c11&""
if c2="" then c2=""&c12&""
id=replace(request.querystring("id"),"'","''")
lgname=replace(Request.Cookies(cn)("lgname"),"'","''")
lgpwd=replace(request.cookies(cn)("lgpwd"),"'","''")
lgtype=replace(request.cookies(cn)("lgtype"),"'","''")
lgcook=replace(request.cookies(cn)("lgcook"),"'","''")
if lgtype="" then lgtype=1
if lgtype=1 then
lgtext="隐身"
lgtext2="在线"
end if
if lgtype=2 then
lgtext="上线"
lgtext2="隐身"
end if
if lgname="" then
lgtext="<b>您好，游客</b><img border=0 src=pic/"&sp&"2.gif>"
lolo="会员登陆"
else
lgtext="<b>您好，"&lgname&"</b> <a href=bbselse.asp?menu=lgtype&lgcook="&lgcook&">"&lgtext&"</a><img border=0 src=pic/"&sp&"2.gif>"
lolo="重新登陆"
mailnewno=myconn.execute("select count(tname) from hand where tname='"&lgname&"' and isnew='0'")(0)
if mailnewno>0 then
tishi="<a href=bbsmail.asp?id=0><marquee width=18 direction=up height=10 scrolldelay=1 scrollamount=2><img border=0 src=pic/newmail.gif></marquee><bgsound src=pic/mail.wav loop=1><font color=#ff00000>&nbsp; 新留言</font></a>"
mailnewno="<font color="&c1&">"&mailnewno&"</font>"
end if
info="<a onmouseover=ShowMenu(userhelp,130)><SPAN style='CURSOR: hand; color: #000000'>用户助手</span></a><img border=0 src=pic/"&sp&"2.gif>"
liu="<a href=bbsmail.asp?id=0>留言板 <b>"&mailnewno&"</b></a>"
ex="<a href=login.asp?action=exit>退出论坛</a><img border=0 src=pic/"&sp&"2.gif>"
end if

admin=request.cookies(cn&"2")("admin")
if admin="" then call getadmin()
sub getadmin()
set cjbz=myconn.execute("select top 1 bd from [admin] where name='"&lgname&"' and password='"&lgpwd&"' order by int(bd) desc")
if not cjbz.eof then
if cjbz("bd")="70767766" then 
admin=3
else
admin=2
end if
else
admin=1
end if
response.cookies(cn&"2")("admin")=admin
end sub
if admin=3 then
gl="<a href=admin-index.asp>论坛管理</a><img border=0 src=pic/"&sp&"2.gif><a href=recycle.asp?totable="&autotable&">回 收 站</a><img border=0 src=pic/"&sp&"2.gif>"
end if
ip=request.servervariables("remote_addr")
if cbbs<>"" then
response.write"<font style='font-size: 9pt'>"&cbbs&"</font>"
response.end
end if
sub wrongid()
noyes="用户操作"
mes="<p style='margin: 8;line-height: 150%'>你的操作出错，可能存在以下问题：<br>·该帖子不存在<br>·该帖子已经删除或被锁定</p>"
%><!--#include file="mes.asp"--><%end sub
%>