📄 left.asp

📁 完美政府版,正版网站解决方案
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
dim Cssstyleid,allthebbs,lguserid,lgtype
allthebbs=application(prefix&"allthebbs")
if allthebbs="" then
dim rs1,bdinfo
set rs=conn.execute("select * from bdinfo where followid=0 order by orders desc,id")
	do while not rs.eof
		allthebbs=allthebbs&"<div class=leftbigtype id=bigtype"&rs("id")&">"&rs("bdinfo")&"</div>"
		
		allthebbs=allthebbs&"<div id=bigtype"&rs("id")&"menu>"
		
		set rs1=conn.execute("select * from bdinfo where followid="&rs("id")&" order by orders desc,id")
			do while not rs1.eof
				bdinfo=rs1("bdinfo")
				bdinfo=split(bdinfo,"|")
				
				allthebbs=allthebbs&"<div class=leftsmalltype><a href=Topiclist.asp?bd="&rs1("id")&">"&bdinfo(0)&"</a></div>"
				rs1.movenext
			Loop
		rs1.Close
		set rs1=nothing
		allthebbs=allthebbs&"</div>"
		
		response.write"</div>"
		rs.movenext
	Loop
rs.Close
set rs=nothing
application(prefix&"allthebbs")=allthebbs
end if

'application(prefix&"allthebbs")=""
Cssstyleid=request.cookies(prefix&"1")("styleid")
lguserid=session(prefix&"lguserid")
lgtype=request.Cookies(prefix)("lgtype")
%><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="skin/<%=Cssstyleid%>/global.css">
<style>
.static{font-weight:bold;}
</style>
<base target="main">
</head>

<body class=leftbody>
<div class=leftbbs>
	<div class=leftbbstitle>论坛栏目</div>
	<div class=leftbbsbody><%=allthebbs%></div>
</div>

<div class=userpan>
		<div class=userpantitle>用户助手</div>
		<div class=userpanbody>
			<%if isnull(lguserid) or lguserid="" then%>
				<div class=userpanbodyitem><a href=login.asp>论坛登陆</a></div>
				<div class=userpanbodyitem><a href=reg.asp>注册用户</a></div>
			<%else%>
				<div class=userpanbodyitem><span class=onlinestatic><a  href=cookies.asp?action=lgtype&lgtype=1 <%if lgtype=1 then%>class=static<%end if%>>上线</a>┆<a target=_self href=cookies.asp?action=lgtype&lgtype=2 <%if lgtype=2 then%>class=static<%end if%>>隐身</a></div>
				<div class=userpanbodyitem><a href=sms.asp>留言板</a></div>
				<div class=userpanbodyitem><a href=userinfo.asp?userid=<%=lguserid%>>我的页面</a></div>
				<div class=userpanbodyitem><a href=Otherlist.asp?action=mytop>发表的帖子</a></div>
				<div class=userpanbodyitem><a href=Otherlist.asp?action=withmetop>参与的帖子</a></div>
				<div class=userpanbodyitem><a href=usersetup.asp?action=myinfo>修改资料</a></div>
				<div class=userpanbodyitem><a href=usersetup.asp?action=mypwd>修改密码</a></div>
				<%if int(session(prefix&"usertype"))=5 then%><div class=userpanbodyitem><a href=admin target=_blank>论坛管理</a></div><%end if%>
				<div class=userpanbodyitem><a href=login.asp?action=exit>安全退出</a></div>
			<%end if%>
		</div>
</div>

</body>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -