📄 list.asp
字号:
<%Response.Buffer=true%>
<!--#include file="char.asp"-->
<!--#include file="onlinechk.asp"-->
<%
startime=timer()%>
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<head>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<!--#include file="style.asp"-->
<% dim rs28,sql28,banzhu
set rs28=server.createobject("adodb.recordset")
sql28="select * from board where boardid="&request("boardid")&""
rs28.open sql28,conn,1,1
banzhu=rs28("BoardMaster")
banzhu=replace(banzhu,"cqtv|","")
banzhu=replace(banzhu,"|",",")
%>
<title> <%=rs28("BoardTitle")%></title>
<script src=hd.js></script>
<script>
function see(Url)
{
msgwin=window.open(Url,"","left=178,top=50,width=521,height=490,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
function user(Url)
{
msgwin=window.open(Url,"","left=178,top=50,width=740,height=415,resizable=no,scrollbars=yes,status=no,toolbar=no,menubar=no,location=no");
}
</script>
<link href="3.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.style3 {color: #FF6633}
.style4 {color: #0033FF}
.style5 {
color: #000000;
font-size: 12px;
}
.style7 {font-size: 9}
.style8 {font-size: 12px}
.style14 {color: #FF0000}
.style28 {color: #FF0000; font-size: 10pt; }
.style29 {color: #0000B7}
.style31 {color: #CC6600}
-->
</style>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0" >
<%
if boardtype="2" and Request.Cookies("bookbaby")("username")="" then Response.Redirect "userlogin.asp?errmsg="&server.URLEncode("本论坛为正规论坛，需要登陆才能浏览！")
dim count
if request("boardid")="" then
response.write "<script>javascript:alert('请选择论坛!');window.close();</script>"
response.end
else
boardid=request("boardid")
set rs=conn.execute("select count from board where boardid="&boardid&"")
if not rs.eof then
count=rs("count")
else
response.write "<script>javascript:alert('该论坛不存在，可能已经被管理员删除!');window.close();</script>"
response.end
end if
rs.close
end if
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
<tr>
<td width="100%" height="683" align="center" valign="top" background="images/lvbgcolor.gif" bgcolor="#FFFAF6">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" height="185">
<tr>
<td height="13" colspan="7" valign="bottom"> </td>
</tr>
<tr>
<td height="50" colspan="2" rowspan="3" valign="bottom"><a href="http://www.cq2s.net/2s/"><img src="2s/2S/logo.jpg" width="199" height="53" border="0"></a></td>
<td width="13" height="50" rowspan="3"> </td>
<td height="13" colspan="4"> </td>
</tr>
<tr>
<td height="21" colspan="4"><div align="center"><strong><font color="#FF6633"><a href="list.asp?boardid=1"><font color="#D35A05">重庆二手交易</font></a> <a href="list.asp?boardid=7"><font color="#D35A05">水城论坛</font></a> <a href="list.asp?boardid=8"><font color="#D35A05">贴图论坛</font></a></font></strong></div></td>
</tr>
<tr>
<td height="13" colspan="4"> </td>
</tr>
<tr>
<td width="107" height="30"> <div align="left"><img src="2s/2S/wc01.gif" width="64" height="30" align="bottom"></div></td>
<td width="92" background="2s/2S/2.jpg" height="30"><img src="2s/2S/3.jpg" width="54" height="30"></td>
<td colspan="5" background="2s/2S/2.jpg" height="30"><div align="center"></div></td>
</tr>
<tr bgcolor="#DEDEDE">
<td colspan="7" height="13"> <div align="center"><font color="#FF0000" size="2"><strong> </strong></font></div></td>
</tr>
<tr>
<td height="24" colspan="2"> <img src="2s/2S/wei.jpg" width="156" height="24"> </td>
<td height="24"> </td>
<td width="138" height="24" align="center"><div align="left" class="style28"></div>
<div align="left" class="style28">
<%=rs28("BoardTitle")%></div>
<div align="right" class="style28"> </div></td>
<td width="186" align="center" background="images/00.gif"><div align="left"></div></td>
<td width="196" align="center"><div align="right"><span class="style28">版主：<%=banzhu%></span></div></td>
<td width="261" height="24"><div align="right"><img src="2s/2S/tanzhu.gif" width="230" height="24"></div></td>
</tr>
<tr bgcolor="#FDE3BC">
<td height="18" background="images/beijing.gif" bgcolor="#FDE3BC"><div align="right"><a href="messanger.asp?action=inbox"></a><img src="images/inf1.gif"> <a href="messanger.asp?action=inbox" target="_blank"><font color="#FF0000">短消息中心</font></a></div></td>
<td height="18" colspan="6" valign="bottom" background="images/beijing.gif" bordercolor="#FDE3BC" style="border-left-width: 1; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"><font color="#CC6600" size="2"> </font><font size="2"><span class="style14">
</span></font><span class="style14">
<% dim name
name=Request.Cookies("bookbaby")("username")
response.write name
%>
:
<%
dim membername
set rs=server.createobject("adodb.recordset")
membername=Request.Cookies("bookbaby")("username")
sql="select * from message where (flag=0) and incept='"&trim(membername)&"' order by flag,sendtime desc"
rs.open sql,conn,1,1
if Request.Cookies("bookbaby")("username")="" or isnull(Request.Cookies("bookbaby")("username")) or Request.Cookies("bookbaby")("userpwd")="" or isnull(Request.Cookies("bookbaby")("userpwd")) then
response.write "你尚未登陆！"
else
if rs.eof and rs.bof then %>
您没有新消息
<%
else %>
<SCRIPT language=JavaScript1.2>function flashit(){if (myexample.style.color=="#ff0000") myexample.style.color="#ffffff"; else myexample.style.color="#ff0000" }setInterval("flashit()", 150)</SCRIPT>
<SPAN id=myexample>您有新的消息</SPAN>
<%
end if
end if
rs.close
%>
</span> </td>
</tr>
<tr bgcolor="#FFFAF6">
<td height="14" colspan="7"> </td>
</tr>
<tr bgcolor="#FFFAF6">
<td height="13" colspan="7"> <span class="style31">在线用户信息（完整版提供）<font size="2"> </font><font size="2"></font> </span> </td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" height="28">
<tr bgcolor="#FFFAF6">
<td height="4" colspan="3"> </td>
</tr>
<tr>
<td width="17%" height="24" background="2s/2S/zhong3.gif"><img src="2s/2S/paihang.jpg" width="134" height="24"></td>
<td width="15%" valign="middle" background="2s/2S/zhong3.gif" height="24"> <div align="right"><font color="#D35A05" size="2">前10名用户：</font>
</div></td>
<td width="68%" valign="middle" background="2s/2S/zhong3.gif" height="24">
<% dim rs20,sql20
set rs20=server.createobject("adodb.recordset")
sql20="select * from user order by score desc"
rs20.open sql20,conn,1,1
dim i
i=0
do while not rs20.eof and i<10
i=i+1
response.write"<font color='#D35A05' size=2>"&rs20("username")&" "
rs20.movenext
loop
%>
<div align="center"></div>
<div align="center"></div>
<div align="center"></div>
<div align="center"></div>
<div align="center"></div></td>
</tr>
</table>
<p>
<% if request("boardid")=1 or request("boardid")=5 or request("boardid")=7 or request("boardid")=8 or request("boardid")=9 or request("boardid")=10 or request("boardid")=11 or request("boardid")=12 or request("boardid")=13 or request("boardid")=14 or request("boardid")=15 or request("boardid")=18 or request("boardid")=19 or request("boardid")=20 or request("boardid")=21 then%>
<% dim rs2,sql2
set rs2=server.createobject("adodb.recordset")
sql2="select * from bbs "
rs2.open sql2,conn,1,1
%>
<%if Request.Cookies("bookbaby")("username")="" or Request.Cookies("bookbaby")("userpwd")="" then%>
</p>
<%end if%>
<table width="100%" border="1" align="center" cellpadding="1" bordercolor="#CC6600" bgcolor="#FFFAF6">
<tr>
<td width="143" height="17">
<div align="center"><a href=add.asp?action=bbs&boardid=<%=boardid%>><font color=#CC6600><strong>发表新贴</strong></font></a>
</div></td>
<td width="123"> <div align="center"><a href=Userreg.asp><font color="#CC6600"><strong>用户注册</strong></font></a></div></td>
<td width="150"> <div align="center"><a href=useredit.asp ><font color="#CC6600"><strong>资料修改</strong></font></a>
</div></td>
<td width="149"> <div align="center"><a href=javascript:window.location.reload()><font color="#CC6600"><strong>刷新论坛</strong></font></a></div></td>
<td width="152"> <div align="center"><a href="index.asp"><font color="#CC6600"><strong>返回首页</strong></font></a></div></td>
<td width="131"><div align="center"><a href="userlogout.asp"><font color="#CC6600"><strong>退出论坛</strong></font></a></div></td>
<td width="99"><div align="center"><a href="help.htm" target="_blank"><font color="#CC6600"><strong>帮 助</strong></font></a></div></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"> </td>
</tr>
<% if request("boardid")=1 then%>
<tr>
<td width="3%" height="23"><img src="images/ztop.gif" width="17" height="17"></td>
<td width="97%">
<% dim rs13,sql13
set rs13=server.createobject("adodb.recordset")
sql13="select * from bbs where boardid=2 "
rs13.open sql13,conn,1,1
response.write"<a href='list2.asp?boardid=2'>"&rs13("title")&""
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -