inc.asp

一个小巧的论坛程序 本程序基本功能： 可开设任意数目的讨论区类别和版块 使用Cookies

<!--#include file="conn.asp"--><!--#include file="fun.asp"--><%
timeset="0"
bd=check2(request.querystring("bd"))
totable=check2(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
cook=request.cookies(cn&"3")("cook")
xtgg=request.cookies(cn&"3")("xtgg")
ltgg=request.cookies(cn&"3")("ltgg")
zxtj=request.cookies(cn&"3")("zxtj")
ltlm=request.cookies(cn&"3")("ltlm")
xtxx=request.cookies(cn&"3")("xtxx")
zzxx=request.cookies(cn&"3")("zzxx")
if cook="" then
response.cookies(cn&"3")("cook")="y"
response.cookies(cn&"3")("xtgg")="y"
response.cookies(cn&"3")("ltgg")="y"
response.cookies(cn&"3")("zxtj")="y"
response.cookies(cn&"3")("ltlm")="y"
response.cookies(cn&"3")("xtxx")="y"
response.cookies(cn&"3")("zzxx")="y"
Response.Cookies(cn&"3").Expires=date+365
application(cn&"bbsup")=1
response.cookies(cn&"2")("bbsup")=1
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
if bbsupa=1 then application(cn&"bbsup")=2
if bbsupa=2 then application(cn&"bbsup")=1
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=check2(request.querystring("id"))
lgname=check2(Request.Cookies(cn)("lgname"))
lgpwd=check2(request.cookies(cn)("lgpwd"))
lgtype=check2(request.cookies(cn)("lgtype"))
lgcook=check2(request.cookies(cn)("lgcook"))
if lgtype="" then lgtype="s"
if lgtype="s" then lgtext="隐身"
if lgtype="y" then lgtext="上线"
mailnewno=myconn.execute("select count(tname) from hand where tname='"&lgname&"' and isnew='0'")(0)
mailn="<font color="&c2&">"&mailnewno&"</font>"
liu="<a href=bbsmail.asp?id=0>留言板 <b>"&mailn&"</b></a>"

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

ip=request.servervariables("remote_addr")
if cbbs<>"" then
response.write"<font style='font-size: 9pt'>"&cbbs&"</font>"
response.end
end if
sub wrongid()
response.write"<br>"
infotl="用户操作"
mes="<font color="&c2&">你的操作出错，可能存在以下问题：</font><br>·该帖子不存在<br>·该帖子已经删除或被锁定"
smes()
end sub

%>