📄 up.asp
字号:
<!--#include file="inc.asp"-->
<%response.write"<link rel=stylesheet type=text/css href=inc/css.css>"
dim tinfo,binfo,ttop,tbottom,tbw,c1,c2,tbg
c1=request.cookies(prefix&"1")("c1")
if isnull(c1) or c1="" then
set rs=conn.execute("select*from style where autouse=true")
response.cookies(prefix&"1")("tinfo")=rs("tinfo")
response.cookies(prefix&"1")("binfo")=rs("binfo")
response.cookies(prefix&"1")("ttop")=rs("ttop")
response.cookies(prefix&"1")("tbottom")=rs("tbottom")
response.cookies(prefix&"1")("tbw")=rs("tbw")
response.cookies(prefix&"1")("c1")=rs("c1")
response.cookies(prefix&"1")("c2")=rs("c2")
response.cookies(prefix&"1")("tbg")=rs("tbg")
response.cookies(prefix&"1").Expires=date+365
set rs=nothing
end if
tinfo=request.cookies(prefix&"1")("tinfo")
binfo=request.cookies(prefix&"1")("binfo")
ttop=request.cookies(prefix&"1")("ttop")
tbottom=request.cookies(prefix&"1")("tbottom")
tbw=request.cookies(prefix&"1")("tbw")
c1=request.cookies(prefix&"1")("c1")
c2=request.cookies(prefix&"1")("c2")
tbg=request.cookies(prefix&"1")("tbg")
if isnull(c1) or c1="" then
response.write"对不起！您的 Internet Explorer 浏览器可能不支持 Cookies，不能使用本论坛。"
response.end
end if
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=kbbs(bbsname)%></title>
<style type=text/css>
.td3{font-size:9px;face:Tahoma;color:#ffffff;font-weight: bold;BACKGROUND-COLOR:<%=c1%>}
.td4{BACKGROUND-COLOR:<%=c2%>}
.td5{BACKGROUND-COLOR:<%=c1%>;}</style>
<SCRIPT src=inc/menu.js></SCRIPT>
<%if style="" then
set rs=conn.execute("select id,stylename from style")
do while not rs.eof
style=style&"<a href=cookies.asp?action=style&styleid="&rs("id")&">"&rs("stylename")&"</a><br>"
rs.movenext
loop
set rs=nothing
application(prefix&"style")=style
end if
%><SCRIPT language=JavaScript>
var bbsstyle='<%=style%>'
var allthebbs='<%=allthebbs%>'
</SCRIPT>
<DIV id=menuDiv1 style='Z-INDEX: 2; VISIBILITY: hidden;POSITION: absolute;'></DIV>
<body style='background-image: URL(pic/bg1.gif); background-position: center; background-repeat: no-repeat; background-attachment: fixed' leftmargin='5' topmargin='5' bgcolor=#cccccc>
<%response.write tinfo%>
<table align="center" width="750" cellpadding="0" cellspacing="0" style="border-collapse: collapse" ><tr><td height=25 bgcolor=#999999></td></tr></table>
<table align="center" border="1" bgcolor=f2f2f2 bordercolor=#cccccc cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="750" height="28">
<tr><td height=80>
<table align="center" border="0" bgcolor=f2f2f2 bordercolor=#cccccc cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="745" height="28">
<tr>
<td height=80><img src=../img/INDEX_r2_c2.gif width="182" height="68"></td>
<td><img src=../img/banner.jpg width="468" height="60" border=0></td>
<td><script language="JavaScript">var __cc_uid="dadayu";</script><script language="JavaScript" src="http://www.dadayu.com/count/count.js"></script></td></tr></table>
</td></tr></table><br>
<table align="center" border="1" bordercolor=#cccccc cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="<%=tbw%>" height="28">
<tr><td width="100%" bgcolor="<%=c2%>">
<%
dim lginfo
if isnull(lguserid) or lguserid="" then%><a href="login.asp">登 陆</a> ┆ <a href="reg.asp">注 册</a> <%else
if lgtype=1 then lginfo="隐 身"
if lgtype=2 then lginfo="上 线"
lginfo="<a href=cookies.asp?action=lgtype&cook="&lgcook&">"&lginfo&"</a> ┆ "
response.write lginfo
response.write"<a href=login.asp?action=exit>注 销</a> ┆ "
end if
%><a onmouseover=ShowMenu(bbsstyle)><SPAN style='CURSOR: hand'></span></a><%if lguserid<>"" then%> <a onmouseover=ShowMenu(userhelp)><SPAN style='CURSOR: hand'>会员功能</span></a> ┆ <a href=usersetup.asp onmouseover=ShowMenu(usersetup)>控制面板</a> ┆ <a href=bbsshow.asp>论坛展区</a><%end if%>
<%if usertype=5 then%> ┆ <a href=admin.asp>论坛管理</a><%end if%> ┆ <a href=caipiao.asp>社区彩票</a> ┆ <a href=duchang.asp>社区赌场</a> ┆ <a href=help.asp>论坛帮助</a></td>
</tr>
</table><br>
<%
if lguserid<>"" then
dim newnum
newnum=conn.execute("select count(id) from sms where touserid="&lguserid&" and new=true")(0)
if newnum>0 then%>
<div id=tbtype0 style="position:absolute; z-index:1; right:0; bottom: 0;display:''">
<table border="0" bordercolor=#cccccc cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="280">
<tr>
<td width="100%" bgcolor="<%=c1%>" background="<%=tbg%>" height="28" colspan="2">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="98%">
<tr>
<td class=td1 width="50%"> <img src="pic/gl.gif" border="0"> 新留言</td>
<td width="50%" align="right"><a onclick="showtb(0)"><SPAN style='CURSOR: hand'><img border="0" src="pic/close.gif"></span></a></td>
</tr>
</table>
</td>
</tr>
<tr> <td valign="top">
<img border="0" src="pic/mail.gif"></td>
<td width="100%" bgcolor="<%=c2%>" valign="top">
<p style="margin: 5; line-height:150%"><font color="<%=c1%>">你的留言板有 <b><%=newnum%></b> 条新留言，<br>请及时查收。</font></p>
<p style="margin: 5; line-height:150%"><a href="sms.asp"><img src="pic/newmail.gif" border="0" align="absmiddle"> <font color="<%=c1%>">查看留言板</font></a></p></td>
</tr>
</table>
</div><%end if
end if%>
<%dim urlinfo,url
url=Request("url")
sub bbsurl
if bd<>"" and isnumeric(bd) then
urlinfo=" → <a href='topiclist.asp?bd="&bd&"'>"&bdinfo(0)&"</a>"
if id<>"" and isnumeric(id) then
urlinfo=urlinfo&" → <a href=showbbs.asp?bd="&bd&"&id="&id&"&totable="&totable&">浏览当前帖子</a>"
end if
end if
if instr(url,"login.asp")>0 then urlinfo=urlinfo&" → 登陆 / 注销"
if instr(url,"reg.asp")>0 then urlinfo=urlinfo&" → 注册用户"
if instr(url,"userinfo.asp")>0 then urlinfo=urlinfo&" → 查看用户资料"
if instr(url,"addtopic.asp")>0 then urlinfo=urlinfo&" → 发表帖子"
if instr(url,"savetopic.asp")>0 then urlinfo=urlinfo&" → 保存帖子"
if instr(url,"usersetup.asp")>0 then urlinfo=urlinfo&" → <a href=usersetup.asp>控制面板</a>"
if instr(url,"sms.asp")>0 then urlinfo=urlinfo&" → <a href=sms.asp>我的留言板</a>"
if instr(url,"edit.asp")>0 then urlinfo=urlinfo&" → 编辑帖子"
if instr(url,"search.asp")>0 then urlinfo=urlinfo&" → <a href=search.asp>论坛搜索</a>"
if instr(url,"help.asp")>0 then urlinfo=urlinfo&" → <a href=help.asp>论坛帮助</a>"
if instr(url,"bbsshow.asp")>0 then urlinfo=urlinfo&" → <a href=bbsshow.asp>论坛展区</a>"
response.write"<table bgcolor="&c2&" align=center border=1 bordercolor=#cccccc cellpadding=0 cellspacing=0 width="&tbw&" height=28 style='border-collapse: collapse'><tr><td width='100%'> <img src=pic/fle.gif border=0> 你的位置： <a onmouseover=ShowMenu(allthebbs) href=index.asp>"&bbsname&"</a>"&urlinfo&"</td></tr></table><br>"
end sub
call bbsurl
time1=timer()
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -