📄 up.asp
字号:
<%response.buffer=true%>
<!--#include file="inc.asp"-->
<%time1=timer()
response.write"<head><title>"&tl&"</title><meta http-equiv=Content-Type content='text/html; charset=gb2312'><link rel=stylesheet href=css.css type=text/css><style>.t1 { font-weight: bold; color: "&c2&";}.t1 A:link {FONT-WEIGHT: bold; COLOR: "&c2&"; TEXT-DECORATION: none}.t1 a:visited{text-decoration:none;color:"&c2&"}.t1 a:active{text-decoration:none;color:"&c2&"}</style></head><SCRIPT src=menu.js></SCRIPT><body background=pic/"&sp&"bg.gif bgcolor=#FFFFFF topmargin=0>"&_
"<table style='BORDER-COLLAPSE: collapse' width=98% align=center border=1 cellspacing=0 bordercolor="&c1&"><tr><td height=15 background=pic/"&sp&"1.gif bgcolor="&c2&"></td></tr><tr><td height=90>"&topinfo&" </td></tr></table><table style='BORDER-COLLAPSE: collapse;MARGIN: 3px' width=98% border=1 align=center cellspacing=0 bordercolor="&c1&" height=30><tr><td bgcolor=#FAFAFA> <table class=t1 width=99% border=0 cellspacing=0 height=24><tr> <td> <img src=pic/bbsinfo.gif> 欢迎您："
if lgname<>"" then
tex=""&kbbs(lgname)&" （<a href=bbselse.asp?menu=lgtype&lgcook="&lgcook&">"&lgtext&"</a><img src=pic/"&sp&"2.gif><a href=login.asp>登陆</a><img src=pic/"&sp&"2.gif><a href=login.asp?action=exit>退出</a>）"
else
tex="游客 （<a href=login.asp>登陆</a><img src=pic/"&sp&"2.gif><a href=zhuce.asp>注册</a>）"
end if
response.write""&tex&"</td><td onClick=showtb(666) style='CURSOR: hand;' onmouseover=javascript:this.background='pic/tb1.gif' onmouseout=javascript:this.background='' align=center width=85>"&_
"<img src=pic/menu.gif border=0 width=18 height=15> 论坛菜单</td></tr></table></td></tr></table><table class=t1 style='BORDER-COLLAPSE: collapse;MARGIN: 3px' width=98% border=1 align=center cellspacing=0 bordercolor="&c1&" height=30><tr bgcolor=#FAFAFA><td width=40 align=center><img src=pic/nav.gif align=absmiddle></td><td><P style='MARGIN: 5px'>你的当前位置：<a href=index.asp>"&tl&"</a>"
if bd<>"" then
set wei=myconn.execute("select bdname,pass,type from bdinfo where bn="&bd&" and key<>'0'")
bdtype=wei("type")
canre="no"
sub getadm()
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
end sub
dim infotl,mes
function bdlogin(nt)
if bdtype=0 then
exit function
else
select case bdtype
case"1"
if lgname="" then
userin="no"
infotl="进 入 失 败 ！"
mes="<font color="&c2&"><b>你不能成功的进入该版面，可能存在以下问题：</b></font><br>·该版面为只有注册会员可以进入！<br>·你还没有<a href=login.asp>登陆</a>"
end if
case"2"
call getadm()
if nt=1 then
exit function
else
if canre="yes" or admin=3 then
exit function
else
infotl="操 作 失 败 ！"
mes="<font color="&c2&"><b>你不能成功的操作该版面，可能存在以下问题：</b></font><br>·该版面为只读版面，只有管理员或斑竹能够操作"
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"
set cuser=myconn.execute("select name from [user] where name='"&lgname&"' and password='"&lgpwd&"'")
if cuser.eof then
userin="no"
end if
set cuser=nothing
exit for
else
userin="no"
end if
next
end if
if userin="no" then
infotl="进 入 失 败 ！"
mes="<font color="&c2&"><b>你不能成功的进入该版面，可能存在以下问题：</b></font><br>·该版面为认证论坛，你还没有得版主的认证！<br>·你还没有<a href=login.asp>登陆</a>"
else
end if
end select
if userin="no" then
response.write"<br>"
smes()
%>
<br><!--#include file="down.asp"--><%
response.end
end if
end if
end function
pass=wei("pass")
response.write" → <a href=list.asp?bd="&bd&">"
wz=kbbs(wei("bdname"))
response.write""&wz&"</a>"
end if
set wei=nothing
if instr(Request("url"),"recycle.asp")>0 then
response.write" → <a href='recycle.asp?totable="&autotable&"'>回 收 站</a>"
end if
if instr(Request("url"),"goodlist.asp")>0 then
response.write" → <a href='goodlist.asp?bd="&bd&"'>本版精华</a>"
end if
if instr(Request("url"),"bbsmail.asp")>0 or instr(Request("url"),"mailcon.asp")>0 then
response.write" → <a href='bbsmail.asp?id=0'>个人留言板</a>"
else
if instr(Request("url"),"show.asp")>0 then
set w1=myconn.execute("select*from bbs"&totable&" where id="&id&"")
if w1.eof then
response.write"</td></tr></table></center></div>"
call wrongid()
response.end
end if
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")
bnum=w1("bnum")
qbbsid=w1("bbsid")
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
if mailnewno>0 then
str="<td width=150><p style='margin:5px'><a href=bbsmail.asp?id=0><img src=pic/newmail.gif border=0> 你有 "&mailnewno&" 条新留言</a></p></td>"
end if
response.write"</p></td>"&str&"</tr></table><div id=tbtype666 style='position:absolute; top: 138px; right:30;display:none'> <table style='BORDER-COLLAPSE: collapse;' width=100 border=1 cellspacing=0 bordercolor="&c1&" cellpadding=0><tr><td><table style='BORDER-COLLAPSE: collapse;' width=100 border=1 cellspacing=0 bordercolor=#EFF2F8 bgcolor=#FFFFFF cellpadding=0>"
function menu_1(menuname,id,n)
if n=1 then response.write"<tr style='CURSOR: hand;' onmouseover=javascript:this.bgColor='#FAFAFA';smenu("&id&") onmouseout=javascript:this.bgColor='';hmenu("&id&")><td align=center width=20 height=24><img src=pic/menu0.gif></td><td align=center> <p style='margin:2px'>"&menuname&"</p></td></tr>"
if n=0 then response.write"<tr style='CURSOR: hand;' onmouseover=javascript:this.bgColor='#FAFAFA' onmouseout=javascript:this.bgColor=''><td align=center width=20 height=24></td><td align=center> <p style='margin:2px'>"&menuname&"</p></td></tr>"
end function%>
<%=menu_1("论坛样式",1,1)%><%=menu_1("论坛常用",2,1)%><%=menu_1("其他设置",3,1)%><%if lgname<>"" then%><%=menu_1("用户助手",4,1)%><%end if%>
<%if admin=3 then
response.write""&menu_1("<a href=admin-index.asp>后台管理</a>",,0)&""
response.write""&menu_1("<a href=recycle.asp?totable="&autotable&">回 收 站</a>",,0)&""
end if
%>
<%
response.write"<tr style='CURSOR: hand;' onmouseover=javascript:this.bgColor='#FAFAFA' onclick=showtb(666) onmouseout=javascript:this.bgColor='' align=right> <td colspan=2 height=24><p style='margin:2px'><img alt=关闭菜单 src=pic/close.gif></p></td></tr></table></td></tr></table></div>"
function menu_0(toppx,id,str)
response.write"<div id=menu"&id&" style='position:absolute; top: "&toppx&"px; right:130;display:none'> <table onmouseover=smenu("&id&") onmouseout=hmenu("&id&") style='BORDER-COLLAPSE: collapse;' width=120 border=1 cellspacing=0 bordercolor="&c1&" cellpadding=0 bgcolor=#FFFFFF><tr><td><table width=100% border=1 style='BORDER-COLLAPSE: collapse;' cellspacing=0 bordercolor=#FAFAFA>"
str=split(str,"|")
n=ubound(str)
for i=0 to n
response.write"<tr style='CURSOR: hand;' onmouseover=javascript:this.bgColor='#FAFAFA' onmouseout=javascript:this.bgColor=''><td height=24 > <img src='pic/bbsinfo.gif'> "&str(i)&"</td></tr>"
next
response.write"</table></td></tr></table></div>"
end function
%><%=menu_0(138,1,"<a href=style.asp?skin=a&bd="&bd&">蓝色幻想</a>|<a href=style.asp?skin=b&bd="&bd&">绿色世界</a>|<a href=style.asp?skin=c&bd="&bd&">红色天空</a>|<a href=style.asp?skin=d&bd="&bd&">金黄稻田</a>|<a href=style.asp?skin=e&bd="&bd&">银灰酷色</a>|<a href=style.asp?skin=f&bd="&bd&">粉色年华</a>")%>
<%=menu_0(164,2,"<a href=elselist.asp?action=jh>精 华 区</a>|<a href=elselist.asp?action=new>今日新帖</a>|<a href=userlist.asp>用户列表</a>|<a href=paihang.asp>论坛排行</a>|<a href=search.asp>论坛搜索</a>|<a href=getpwd.asp>找回密码</a>")%>
<%response.write"<div id=menu3 style='position:absolute; top: 188px; right:130;display:none'> <form name=form method=post action='cookies.asp'><table onmouseover=smenu(3) onmouseout=hmenu(3) style='BORDER-COLLAPSE: collapse;' width=120 border=1 cellspacing=0 bordercolor="&c1&" cellpadding=0 bgcolor=#FFFFFF><tr><td><table width=100% border=1 style='BORDER-COLLAPSE: collapse;' cellspacing=0 bordercolor=#FAFAFA><tr style='CURSOR: hand;' onmouseover=javascript:this.bgColor='#FAFAFA' onmouseout=javascript:this.bgColor=''><td align=center>"%>
<p style='margin:4px'><input type=checkbox name=xtxx value=n <%if xtxx="n" then%>checked<%end if%>> 隐藏系统信息</p>
<p style='margin:4px'><input type=checkbox name=xtgg value=n <%if xtgg="n" then%>checked<%end if%>> 隐藏系统公告</p>
<p style='margin:4px'><input type=checkbox name=ltgg value=n <%if ltgg="n" then%>checked<%end if%>> 隐藏论坛公告</p>
<p style='margin:4px'><input type=checkbox name=zxtj value=n <%if zxtj="n" then%>checked<%end if%>> 隐藏在线统计</p>
<p style='margin:4px'><input type=checkbox name=ltlm value=n <%if ltlm="n" then%>checked<%end if%>> 隐藏论坛联盟</p>
<p style='margin:4px'><input type=checkbox name=zzxx value=n <%if zzxx="n" then%>checked<%end if%>> 隐藏作者信息</p>
<p style='margin:4px'><input type=submit name=Submit value=提交> <input type=reset name=Submit value=重置></p>
<%response.write"</td></tr></table></td></tr></table></form></div>"%>
<%=menu_0(212,4,""&liu&"|<a href=myinfo.asp>修改资料</a>|<a href=elselist.asp?action=mytop>我发表的帖子</a>|<a href=elselist.asp?action=withmetop>我参与的帖子</a>|IP：<br> "&ip&"")%>
<%function smes()
response.write"<table style='BORDER-COLLAPSE: collapse;MARGIN: 3px' width=98% border=1 align=center cellspacing=0 bordercolor="&c1&" height=28><tr bgcolor="&c2&"> <td background=pic/"&sp&"3.gif align=center width=40 height=28><img src=pic/nav.gif align=absmiddle></td><td background=pic/"&sp&"3.gif height=28><P style='MARGIN: 5px;'><b><font color=#FFFFFF>"&infotl&"</font></b></p></td></tr><tr><td align=center width=40 height=40><img src=pic/mesinfo.gif></td><td valign=center> <P style='MARGIN: 5px;line-height:150%'>"&mes&"</p></td></tr></table>"
end function%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -