timeset="0"
bd=request.querystring("bd")
set bbs=myconn.execute("select*from bbsinfo")
tl=bbs(0)
response.write""&tl&""
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=""&bbs("style")&""
if c1="" then c1=bbs(1)
if c2="" then c2=bbs(2)
c3=bbs(3)
todaynum=bbs(4)
mostonline=bbs(6)
mosttopic=bbs(7)
topinfo=bbs(8)
upsize=bbs("upsize")
upnum=bbs("upnum")
td=FormatDateTime(now+timeset/24,2)
if tdbbs(5) then
myconn.execute("update bbsinfo set nyr='"&td&"'")
myconn.execute("update bbsinfo set todaynum='0'")
end if
set bbs=nothing
id=request.querystring("id")
lgname=Request.Cookies(cn)("lgname")
lgpwd=request.cookies(cn)("lgpwd")
st=Request.Cookies(cn)("style")
if st="" then st="a"
if lgname="" then
lolo="会员登陆"
else
lolo="重新登陆"
mailnewno=myconn.execute("select count(tname) from hand where tname='"&lgname&"' and isnew='0'")(0)
if mailnewno>0 then
tishi=" 新留言"
mailnewno=""&mailnewno&""
end if
info="用户助手"
liu="留言板 "&mailnewno&""
ex="退出论坛"
end if
set cjbz=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='70767766'")
if not cjbz.eof then
admin="yes"
gl="论坛管理回 收 站"
else
end if
set cjbz=nothing
ip=request.servervariables("remote_addr")
%>
var h;
var w;
var l;
var t;
var topMar = 1;
var leftMar = -2;
var space = 1;
var isvisible;
var global = window.document
global.fo_currentMenu = null
global.fo_shadows = new Array
function HideMenu()
{
var mX;
var mY;
var vDiv;
var mDiv;
if (isvisible == true)
{
vDiv = document.all("menuDiv");
mX = window.event.clientX + document.body.scrollLeft;
mY = window.event.clientY + document.body.scrollTop;
if ((mX < parseInt(vDiv.style.left)) || (mX > parseInt(vDiv.style.left)+vDiv.offsetWidth) || (mY < parseInt(vDiv.style.top)-h) || (mY > parseInt(vDiv.style.top)+vDiv.offsetHeight)){
vDiv.style.visibility = "hidden";
isvisible = false;
}
}
}
function ShowMenu(vMnuCode,tWidth) {
vSrc = window.event.srcElement;
vMnuCode = "" + vMnuCode + "";
h = vSrc.offsetHeight;
w = vSrc.offsetWidth;
l = vSrc.offsetLeft + leftMar+4;
t = vSrc.offsetTop + topMar + h + space-2;
vParent = vSrc.offsetParent;
while (vParent.tagName.toUpperCase() != "BODY")
{
l += vParent.offsetLeft;
t += vParent.offsetTop;
vParent = vParent.offsetParent;
}
menuDiv.innerHTML = vMnuCode;
menuDiv.style.top = t;
menuDiv.style.left = l;
menuDiv.style.visibility = "visible";
isvisible = true;
}
var stylelist=' 蓝色幻想 绿色世界 红色天空 金黄稻田 银灰酷色'
var userhelp= ' 修改资料 我发表的帖子 我参与的帖子 IP：'
var bbsmenu= ' 精 华 区 查看新帖 用户列表 论坛排行'
" "&lolo&"会员注册"&_
"论坛菜单论坛样式"&info&""&ex&""&gl&""&tishi&""&_
""
response.write" 你的位置："&tl&""
if bd"" then
set wei=myconn.execute("select bdname,pass,type from bdinfo where bn="&bd&" and key'0'")
bdtype=wei("type")
set cjbz1=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='"&bd&"'")
if not cjbz1.eof then
canre="yes"
end if
set cjbz1=nothing
function bdlogin(nt)
if bdtype=0 then
exit function
else
select case bdtype
case"1"
if lgname="" then
userin="no"
noyes="进 入 失 败 ！"
mes="你不能成功的进入该版面，可能存在以下问题：● 该版面为只有注册会员可以进入！ ● 你还没有登陆！"
end if
case"2"
if nt=1 then
exit function
else
if canre="yes" or admin="yes" then
exit function
else
noyes="操 作 失 败 ！"
mes="你不能"&canre&"成功的操作该版面，可能存在以下问题：● 该版面为只读版面，只有管理员或斑竹能够操作！"
userin="no"
end if
end if
case"3"
if isnull(pass) or pass="" then
userin="ok"
else
user=split(pass,",")
for i = 0 to ubound(user)
if lgname=trim(user(i)) and lgname"" then
userin="ok"
exit for
else
userin="no"
end if
next
end if
if userin="no" then
noyes="进 入 失 败 ！"
mes="你不能成功的进入该版面，可能存在以下问题：● 该版面为认证论坛，你还没有得版主的认证！ ● 你还没有登陆！"
else
end if
end select
if userin="no" then%> response.end
end if
end if
end function
pass=wei("pass")
response.write"→ "
wz=wei("bdname")
response.write""&wz&""
end if
set wei=nothing
if instr(Request("url"),"elselist.asp")>0 and request.querystring("action")="hsz" then
response.write"→ 回 收 站"
end if
if instr(Request("url"),"bbsmail.asp")>0 or instr(Request("url"),"mailcon.asp")>0 then
response.write"→ 个人留言板"
else
if id"" then
set w1=myconn.execute("select*from min where id="&id&"")
wzhuti=kbbs(w1("zhuti"))
wbody=w1("body")
wname=w1("name")
wriqi=w1("riqi")
wface=w1("face")
ggtype=w1("gonggao")
bbtype=w1("type")
isvote=w1("isvote")
if isvote=2 then wface="vote"
if bbtype=4 then wface="lock"
if bbtype=1 then wface="jing"
if ggtype=3 then wface="top"
if ggtype=5 then wface="alltop"
whits=w1("hits")
response.write"→ 浏览帖子："&LeftTrue(wzhuti,44)&""
set w1=nothing
end if
end if
response.write""
%>
