📄 up.asp
字号:
<!--#include file="inc.asp"-->
<%
dim tinfo,binfo,ttop,tbottom,tbw,c1,c2,tbg,owebdisp,sid,c3,acquiesce,keywords,menuname,menu,menu1,menu1name
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")
c3=request.cookies(prefix&"1")("c3")
tbg=request.cookies(prefix&"1")("tbg")
sid=request.cookies(prefix&"1")("id")
stylename=request.cookies(prefix&"1")("stylename")
if isnull(c1) or c1="" then response.redirect"cookies.asp?action=style"
if checknum(request.cookies(prefix&"1")("owebdisp"))<>1 or checknum(request.cookies(prefix&"1")("owebdisp"))="" then
indexinfo=1
gonggao=1
lm=1
online=1
newhotbbs=1
Response.Cookies(prefix&"1")("indexinfo")=1
Response.Cookies(prefix&"1")("gonggao")=1
Response.Cookies(prefix&"1")("lm")=1
Response.Cookies(prefix&"1")("online")=1
Response.Cookies(prefix&"1")("userinfo")=1
Response.Cookies(prefix&"1")("newhotbbs")=1
response.cookies(prefix&"1")("owebdisp")=1
end if
if style="" then
set rs=conn.execute("select id,stylename from style where autouse=true")
acquiesce=rs("id")
stylename=rs("stylename")
set rs=nothing
set rs=conn.execute("select id,stylename from style")
do while not rs.eof
stylename=rs("stylename")
style=style&"<div><a href=cookies.asp?action=style&styleid="&rs("id")&">"&rs("stylename")&"</a></div>"
rs.movenext
loop
set rs=nothing
application(prefix&"style")=style
end if
set rs=conn.execute("select id,name,link from menu where cid=2")
do while not rs.eof
menuname=rs("name")
menu=menu&"<div><a href="&rs("link")&">"&rs("name")&"</a></div>"
rs.movenext
loop
set rs=nothing
application(prefix&"menu")=menu
set rs=conn.execute("select id,name,link from menu where cid=1")
do while not rs.eof
menuname=rs("name")
menu1=menu1&"<div><a href="&rs("link")&">"&rs("name")&"</a></div>"
rs.movenext
loop
set rs=nothing
application(prefix&"menu1")=menu1
time1=timer()
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=kbbs(bbsname)%></title>
<meta name=keywords content="我的假期导航，兄弟会">
<link href="Inc/Comm.Css" rel="stylesheet" type="text/css" />
<link href="Images/Skin/<%=sid%>/Style.Css" rel="stylesheet" type="text/css" />
<style type=text/css>
<!--
.td3 {
color:#ffffff;
font-weight: bold;
background-color:<%=c1%>;
}
.td4 {
background-color:<%=c2%>;
}
.td5 {
background-color:<%=c1%>;
}
.tbmenu {
border:1px solid <%=c1%>;
background-color: #ffffff;
background-image: url('images/skin/<%=sid%>/menubg.gif');
filter: alpha(opacity=88);
}
-->
</style>
<script src="inc/menu.js"></script>
<script src="inc/linkcolor.js"></script>
<script language="JavaScript" type="text/javascript">
var bbsstyle="<div class='BBS_NavMenuItem'><div><a href='cookies.asp?action=style&id=<%=application(prefix&"defstyid")%>'><font color='red'>默认风格</font></a></div><div><%=style%></div>";
var menu="<div class='BBS_NavMenuItem'><%=menu%></div>";
var menu1="<div class='BBS_NavMenuItem'><%=menu1%></div>";
var allthebbs="<%=Replace(allthebbs,"""","\""")%>";
</script>
</head>
<body onmousemove="HideMenu()">
<div id="menuDiv1" style="z-index: 2; visibility: hidden;position: absolute;"></div>
<div id="menuDiv2" style="z-index: 3; visibility: hidden;position: absolute;"></div>
<%=tinfo%>
<div id="BBS_HeadMenu">
<%dim lginfo
if isnull(lguserid) or lguserid="" then%>
<b>您尚未</b> <a href="login.asp">登 陆</a> ┆ <a href="getpass.asp">忘记密码</a> ┆<a href="reg.asp">注 册</a> ┆
<%else
if lgname<>"" then response.write "欢迎您： <font color=blue>"&lgname&" </font>"
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)">风 格</a> ┆
<a onmouseover="ShowMenu(webdisp)"><font color=#CDCD00>模 式</font></a> ┆
<%if lguserid<>"" then%>
<a href="usersetup.asp" onmouseover="ShowMenu(usersetup)">面 板</a> ┆
<a onmouseover="ShowMenu(menu1)"><font color=bule>设 施</font></a> ┆
<a onmouseover="ShowMenu(menu)">娱 乐</a> ┆
<a href="bbsshow.asp" onmouseover="ShowMenu(zhanqu)"> 展 区</a> ┆
<%end if%>
<a href="help.asp">帮 助</a>
</div>
<%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="BBS_Message">
<img src="pic/gl.gif" border="0"> <a href="sms.asp"><font color=<%=c3%>>你 <b><%=newnum%></b> 条新留言，<br />请时查收。</a>
</div>
<%end if
end if%>
<%dim urlinfo,url
url=Request("url")
if bd<>"" and isnumeric(bd) then
urlinfo=" → <a href='list.asp?bd="&bd&"'>"&bdinfo(0)&"</a>"
if id<>"" and isnumeric(id) then
urlinfo=urlinfo&" → <a href=show.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,"link.asp")>0 then urlinfo=urlinfo&" → 加入连接"
if instr(url,"userinfo.asp")>0 then urlinfo=urlinfo&" → 查看用户资料"
if instr(url,"say.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>"
if instr(url,"z_faction.asp")>0 then urlinfo=urlinfo&" → <a href=z_faction.asp>小区帮派</a>"
if instr(url,"z_love.asp")>0 then urlinfo=urlinfo&" → <a href=z_love.asp>幸福恋人</a>"
if instr(url,"userlist.asp")>0 then urlinfo=urlinfo&" → 用户列表"
%>
<div id="BBS_NavMenu">
你的位置： <a onmouseover="ShowMenu(allthebbs)" href="index.asp"><%=bbsname%></a><%=urlinfo%>
</div>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -