📄 index.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<!--#include file=function.asp-->
<!--#include file="char.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>重庆二手信息网论坛-首页</title>
<link href="3.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-color: #FFFFFF;
}
.style1 {color: #0000B7}
.style14 {color: #FF0000}
.style3 {color: #D35A05}
.style7 {font-size: 10.3pt}
-->
</style></head>
<% dim rs,sql,banzhu,i,top,top1,top2
set rs=server.createobject("adodb.recordset")
sql="select * from board order by BoardId "
rs.open sql,conn,1,1
i=0
top1=0
top2=0
%>
<body background="images/lvbgcolor.gif">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="35%" rowspan="3"><img src="logo.gif" width="199" height="53"></td>
<td width="8%" rowspan="3"> </td>
<td width="57%" height="23"><div align="right"><span class="style14"><a href="userlogin.asp" class="style14">登陆论坛</a> <a href="userlogout.asp">退出论坛</a><img src="images/inf1.gif"> </span><a href="messanger.asp?action=inbox" target="_blank">短消息中心</a><span class="style14"> <a href="userreg.asp">新用户注册</a> <a href="useredit.asp">资料修改</a> <a href="paihang.asp">用户排行</a> <span class="style1"><a href="help.htm">帮助</a></span> </span></div></td>
</tr>
<tr>
<td height="13"><div align="right"></div></td>
</tr>
<tr>
<td><div align="right" class="style14">
<% dim name1
name1=Request.Cookies("bookbaby")("username")
if name1<>"" then
response.write name1
response.write":"
end if
%>
<%
dim membername
set rs30=server.createobject("adodb.recordset")
membername=Request.Cookies("bookbaby")("username")
sql30="select * from message where (flag=0) and incept='"&trim(membername)&"' order by flag,sendtime desc"
rs30.open sql30,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 rs30.eof and rs30.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
rs30.close
%>
</div></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
</table>
<table width=100% border=0 align=center cellpadding=0 cellspacing=0 background="images/lvbgcolor.gif">
<tr>
<td height="363"> <div align="center">
<center>
<table width=100% border=1 cellpadding=0 cellspacing=0 bordercolor="#009900" background="images/lvbgcolor.gif" height="360" style="border-collapse: collapse">
<tr>
<td height="33" colspan=6 align=center><div align="left"><font color="#D35A05" size="2">
<% dim rs5,sql5,rs6,rs7,sql7
set rs5=server.createobject("adodb.recordset")
sql5="select * from bbs where dateandtime > date() "
rs5.open sql5,conn,1,1
set rs7=server.createobject("adodb.recordset")
sql7="select * from reply where dateandtime > date() "
rs7.open sql7,conn,1,1
rs6=rs5.recordcount+rs7.recordcount
%>
今日新帖子数<b><font color="#CC6600" face="宋体">：</font></b> </font><font face="宋体" color="#FF0000"><a ><%=rs6%></a> </font><font face="宋体"><span class="style3"> </span></font><span class="style3"></span></div></td>
</tr>
<tr bgcolor="#E3F1D1">
<td width="59" height="23" align=center valign=middle> <strong><font face="宋体" color=#333333 style="font-size: 10.3pt">序号</font></strong></td>
<td width="268" height="23" align=center valign=middle> <strong><font face="宋体" color=#333333 style="font-size: 10.3pt">论坛名称</font></strong></td>
<td width="206" height="23" align=center valign=middle><strong>论坛帖子数<font face="宋体" color=#333333>
</font></strong></td>
<td width="156" align=center valign=middle><strong>版主</strong></td>
<td width="202" align=center valign=middle><strong>最后发言</strong></td>
<td width="68" align=center valign=middle><strong>收藏</strong></td>
</tr>
<%
if rs.eof and rs.bof then
%>
<tr>
<td align=center valign=middle colspan=6 height="12"> <font face="宋体" color=#333333 style="font-size: 10.3pt">还没有开设论坛噢：）</font></td>
</tr>
<%else%>
<font size="2">
<%do while not rs.eof
banzhu=rs("BoardMaster")
banzhu=replace(banzhu,"cqtv|","")
banzhu=replace(banzhu,"|",",")
if rs("boardid")=2 or rs("boardid")=4 or rs("boardid")=5 or rs("boardid")=6 or rs("boardid")=17 or rs("boardid")=16 then
else
i=i+1
top=rs("count")
top1=top1+top
top2=top2+rs("topiccount")
dim rs2,sql2,r3,rs4,sql4,rs10,sql10,r41
set rs2=server.createobject("adodb.recordset")
sql2="select * from bbs where boardid="&rs("boardid")& " and dateandtime > date() "
rs2.open sql2,conn,1,1
set rs10=server.createobject("adodb.recordset")
sql10="select top 1 * from bbs where boardid="&rs("boardid")& " and not del order by lastreply desc "
rs10.open sql10,conn,1,1
if rs10("dateandtime")=rs10("lastreply") then
r10=rs10("title")
else
set rs101=server.createobject("adodb.recordset")
sql101="select title from reply where bbsid="&rs10("bbsid")& " order by dateandtime desc "
rs101.open sql101,conn,1,1
r10=rs101("title")
end if
set rs4=server.createobject("adodb.recordset")
sql4="select * from reply where dateandtime > date() "
rs4.open sql4,conn,1,1
r41=0
do while not rs4.eof
set rs41=server.createobject("adodb.recordset")
sql41="select boardid from bbs where bbsid="&rs4("bbsid")&" "
rs41.open sql41,conn,1,1
if rs41.eof then
rs41=rs41
else
if rs41("boardid")=rs("boardid") then
r41=r41+1
else
r41=r41
end if
end if
rs41.close
rs4.movenext
loop
r3=rs2.recordcount+r41
%>
</font>
<tr>
<td width="59" height="70" align=center valign=middle bgcolor="#F2F9EC"><strong><font face="宋体" color=#333333><%=i%></font></strong></td>
<td width="268" align=center valign=middle><table width="100%" border="0">
<tr>
<td><font face="宋体" color=#333333>『<a href="list.asp?boardid=<%=rs("boardid")%>"><%=rs("BoardTitle")%></a>』</font></td>
</tr>
<tr>
<td><span class="style7"><font face="宋体" color="#333333"><a ><%=rs("BoardIntro")%></a> </font></span></td>
</tr>
</table> </td>
<td width="206" height="70" align=center valign=middle bgcolor="#F2F9EC"><font face="宋体" color="#333333">
</font>
<table width="100%" border="0">
<tr>
<td><font color="#333333">本分论坛共有帖子<font face="宋体"><a ><%=rs("count")%></a>,其中主题贴子：<font face="宋体"><a><%=rs("topiccount")%></a></font></font></font> </td>
</tr>
<tr>
<td><font color="#333333" face="宋体">今日帖子数：<a ><font color="#FF0000"><%=r3%></font></a></font> <font size="2"> </font></td>
</tr>
</table>
</td>
<td width="156" height="70" align=center valign=middle><div align="left"><font face="宋体" color=#333333><a ><%=banzhu%></a></font></div></td>
<td height="70" align=center valign=middle bgcolor="#F2F9EC"><div align="left"></div>
<table width="200" border="0">
<tr>
<td><font face="宋体" color=#333333><a >主题：
<% if len(r10)<20 then
response.write ""&r10&""
else
response.write left(r10,20-n*2)
response.write "..."
end if
%></a></font></td>
</tr>
<tr>
<td>作者：<font face="宋体" color=#333333><a ><%=rs("Lastreplyuser")%></a></font></td>
</tr>
<tr>
<td>时间：<font face="宋体" color=#333333><a ><%=rs("LastreplyTime")%></a></font></td>
</tr>
</table> </td>
<td height="70" align=center valign=middle bgcolor="#F2F9EC">
<SPAN
style="CURSOR: hand"
onclick="window.external.AddFavorite('http://www.cq2s.net/bbs/list.asp?boardid=<%=rs("boardid")%>', '<%=rs("BoardTitle")%>')"><IMG
alt="将<%=rs("BoardTitle")%>添加到收藏夹" src="images/fav_add.gif" border=0></SPAN></TD>
<%
rs2.close
rs4.close
end if
rs.movenext
loop
end if
rs.close
%>
<tr>
<td height="12" colspan=6 align=center valign=middle><p> <font color=#f20000 style="font-size: 10.3pt"></font></p></td>
</tr>
<tr>
<td height="29" colspan=6 align=center><div align="left">
<p align="center"><font color="#CCCCCC"><font color="#000000"><%if Request.Cookies("bookbaby")("username")="" or Request.Cookies("bookbaby")("userpwd")="" then%>
</font></font><font color="#000000">您还没有登陆，请您登陆 (如果您没有注册，请先注册：<a href="userreg.asp"><font color="#0000CC">新用户注册</font><font color="#000000">)</font></a></font></p>
</div></td>
</tr>
<tr>
<td colspan=6 align=center><table width="100%" border="1" align="center" cellpadding="1" cellspacing="1" bordercolor="#009900">
<tr>
<form action="userchklogin.asp" method="post">
<td height="23" colspan="2"><div align="center"><font color="#000000">用户名：</font> <font color="#000000">
<input type="text" name="username" size="8" maxlength="16">
</font></div></td>
<td width="296" valign="middle"><div align="center"><font color="#000000">密码： </font> <font color="#000000">
<input type="password" name="password" size="10" maxlength="16">
<select name="cookietype" id="cookietype">
<option value="0" selected>保留三天</option>
<option value="1">保留一周</option>
<option value="2">保留一月</option>
<option value="3">保留一年</option>
<option value="4">永久保留</option>
</select>
</font></div>
<div align="center"> </div></td>
<td width="328" valign="middle"><div align="center"> <font color="#000000">
<input type="submit" name="Submit22" value=" 登 陆 ">
</font></div></td>
</form>
</tr>
</table> <font color="#000000">
<% else %>
</font><span class="style14">
<% dim name
name=Request.Cookies("bookbaby")("username")
response.write name
%>
，您已经登陆<font size="2">，欢迎您的光临，感谢您对我们的支持！</font></span> <span class="style14">
<% end if %>
</span><font color="#000000"> </font></td>
</tr>
<tr bgcolor="#E3F1D1">
<td height="22" colspan=6 align=center> <div align="left"><font color="#000000">论坛信息<font size="2">:</font></font></div></td>
</tr>
<tr>
<td height="70" colspan=6 align=center><div align="left">
完整版本提供
<p> </p>
</div>
<font color="#000000" style="font-size: 10.3pt"> </font></td>
</tr>
</table>
</center>
</div></td>
</tr>
</table>
<p align="center"> <font color="#000000" style="font-size: 10.3pt">本论坛由【<a href="http://www.cq2s.net">重庆二手信息网</a>】制作维护 </font> </p>
<p align="center">本论坛内所有言论内容纯属发表者个人意见，并不反映本论坛任何意见及观点。<br>
<script>var tc_user="cq2s";var tc_class="10";</script>
<script src="http://stat.t2t2.com/stat.js"></script>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -