📄 main.asp
字号:
<%
'==============================================================================
'软件名称：星空社区 VER 1.0.15
'当前版本：starcity club V1.0.15
'最新更新：2004.9
'==============================================================================
'Copyright (C) 2002-2004 Googln.com All rights reserved.
'商业注册联系：010-64410364
'技术支持QQ：6370639(限商业用户)
'程序开发：Googln Studio(BeiJing)
'Email:Avram@163.com
'论坛支持：星空社区(http://www.starcity.cn/bbs)
'官方网站：www.Googln.com 演示站点：www.starcity.cn/bbs 都市星空：www.starcity.cn 阳光商城:www.sunmall.com.cn
'==============================================================================
'免费版本请在首页保留版权信息，并做上本站LOGO友情连接
'都市星空在线保留此程序的法律追究权利
'==============================================================================
%>
<!--#include file="include/conn.asp"-->
<!-- #include file="inc.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="include/style_.css">
<table width="99%" border="0" align="right" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td height="28" background="images/bbs_4.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> 欢迎您访问星空社区！ <%if session("username")="" then %>
<span class="4">您还未登录</span><%else%>登录成功：<%=session("username")%><%end if %></td>
<form name="form1" method="post" action="search_result.asp"><td><div align="right">关键字
<input type="text" name="keywords" maxlength="10" size="6">
<select name="gate">
<option value="content" selected>全文</option>
<option value="author">作者</option>
</select>
范围
<select name="sboardid">
<%
rsboard.movefirst
do while not rsboard.eof
%>
<option value="<%=rsboard("boardid")%>"><%=left(rsboard("boardname"),6)%></option>
<%
rsboard.movenext
loop
%>
<option value="" selected>所有论坛</option>
</select>
发布时间
<select name="daterange">
<option value="" selected>不限</option>
<option value="1">1天内</option>
<option value="7">7天内</option>
<option value="30">30天内</option>
<option value="365">一年内</option>
</select>
<input type="submit" name="Submit" value="搜索">
</div></td></form>
</tr>
</table></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td bgcolor="#EFF7FF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> 当前位置：<a href="main.asp">论坛</a> >>最新主题 </td>
<td width="170"><table border="0" align="right" cellpadding="2" cellspacing="2">
<tr>
<td width="33%"><a href="reg.asp"><img src="images/05.gif" width="35" height="20" border="0"></a></td>
<td><a href="login.asp"><img src="images/06.gif" width="35" height="20" border="0"></a></td>
<td><a href="post_art.asp?boardid=<%=request("boardid")%>"><img src="images/07.gif" width="35" height="20" border="0"></a></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width=100% border=0 align=center cellpadding=3 cellspacing=1>
<tr bgcolor="#738AD6" class=7>
<td width="40" height="25"><div align="center"><strong>序号</strong></div></td>
<td width="60"><div align="center"><strong>点击</strong></div></td>
<td width="80"><div align="center"><strong>版面</strong></div></td>
<td><strong>标题</strong></td>
<td width="60"><div align="center"><strong>作者</strong></div></td>
<td width="60"><div align="center"><strong>回复</strong></div></td>
<td width="80"><div align="center"><strong>最后回复</strong></div></td>
</tr><%
set rsbbs=server.createobject("adodb.recordset")
sqltext="select db_board.boardid,db_board.boardname,db_bbs.bbsid,db_bbs.boardid,db_bbs.title,db_bbs.author,db_bbs.pic,db_bbs.putdate,db_bbs.replynum,db_bbs.clicknum,db_bbs.replydate,db_bbs.puttop,db_bbs.distillate,db_user.id,db_user.username,db_user.name from db_board,db_bbs,db_user where db_bbs.boardid=db_board.boardid and db_bbs.author=db_user.username and db_bbs.rootid=0 order by replydate desc"
'rsbbs.write sqltext
rsbbs.open sqltext,conn,1,1
pg=request("page")
if instr(pg,"'")<>0 or instr(pg,"=")<>0 or instr(pg,"&")<>0 or instr(pg,"%")<>0 or instr(pg,"or")<>0 then
show_error("出现非法字符,对不起!")
end if
page_size=20
rsbbs.PageSize=page_size
page=CLng(pg)
if page="" or page<1 then
page=1
elseif page>rsbbs.pagecount then
page=rsbbs.pagecount
end if
if not rsbbs.eof then rsbbs.absolutepage=page else page=0
i=0
for p=1 to rsbbs.PageSize
i=i+1
%>
<tr <% if i mod 2 =0 then response.write "bgcolor=#F7F3F7" %>>
<td width="40"><div align="center"><%=rsbbs("bbsID")%></div></td>
<td width="60"><div align="center"><%=rsbbs("clicknum")%></div></td>
<td><div align="center"><a href="read_art_sub.asp?boardid=<%=rsbbs("boardid")%>"><%=rsbbs("boardname")%></a></div></td>
<td><table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="19"><img src="ubb/<%=rsbbs("pic")%>"><a href="read_art_display.asp?boardid=<%=rsbbs("boardid")%>&bbsid=<%=rsbbs("bbsid")%>"></a></td>
<td><div align="left"><a href="read_art_display.asp?boardid=<%=rsbbs("boardid")%>&bbsid=<%=rsbbs("bbsid")%>"><%=left(rsbbs("title"),30)%></a></div></td>
<td width="40"><%if DateDiff("d", rsbbs("putdate"),Now )<1 then
response.write "<img src=images/new.gif>"
end if
%>
<% if rsbbs("puttop")="1" then %>
<%response.write "<img src=images/b09b.gif>"%>
<%end if%>
<% if rsbbs("distillate")="1" then %>
<%response.write "<img src=images/distillate.gif>"%>
<%end if%></td>
</tr>
</table> </td>
<td width="60"><div align="center"><%=rsbbs("author")%></div></td>
<td width="60"><div align="center"><%=rsbbs("replynum")%></div></td>
<td width="80"><div align="center">
<% if rsbbs("replydate")="" or isnull(rsbbs("replydate")) then
response.write "未回复"
else
response.write month(rsbbs("replydate"))&"-"&day(rsbbs("replydate"))&" "&hour(rsbbs("replydate"))&":"&minute(rsbbs("replydate"))
end if%>
</div></td>
</tr>
<%
rsbbs.movenext
if rsbbs.eof then exit for
next
%> </table></td>
</tr>
<tr>
<td><div align="right">共<%=rsbbs.recordcount%>条主题 第
<select name="select" onChange="window.navigate(this.value)" class="inpud">
<%for i=1 to rsbbs.PageCount
response.write "<option value=main.asp?page="&i
if i=page then response.write " selected"
response.write ">" & i & vbcrlf
next%>
</select>
页(每页<%=rsbbs.pagesize%>条) 共<%=rsbbs.PageCount%>页
<%
if page>1 then
response.write "<a href=""main.asp?page=1"">"
response.write "首页</a>"
else
response.write "首页"
end if
response.write " "
if page-1>=1 then
response.write "<a href=""main.asp?page="&(page-1)&""">"
response.write "上页</a>"
else
response.write "上页"
end if
response.write " "
if page+1<=rsbbs.pagecount then
response.write "<a href=""main.asp?page="&(page+1)&""">"
response.write "下页</a>"
else
response.write "下页"
end if
response.write " "
if page<rsbbs.pagecount then
response.write "<a href=""main.asp?page="&rsbbs.pagecount&""">"
response.write "末页</a>"
else
response.write "末页"
end if
rsbbs.close
%></td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><table border="0" align="center" cellpadding="4" cellspacing="2">
<tr>
<td><img src="images/b09b.gif" width="15" height="15"></td>
<td>固顶帖</td>
<td><img src="images/new.gif" width="15" height="15"></td>
<td>新帖子</td>
<td><img src="images/distillate.gif" width="15" height="15"></td>
<td>精华帖</td>
</tr>
</table></td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -