📄 search_result.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">
<%
'建立str语句
keywords=trim(request("keywords"))
if keywords="" then
show_error("请输入查询关键字!")
end if
if len(keywords)<1 then
show_error("关键字长度至少为1位!")
end if
gate=trim(request("gate"))
sboardid=trim(request("sboardid"))
daterange=trim(request("daterange"))
'添加验证输入信息合法性 2004/05/11
if instr(keywords,"'")<>0 or instr(keywords,"=")<>0 or instr(keywords,"&")<>0 or instr(keywords,"%")<>0 or instr(keywords,"or")<>0 then
show_error("出现非法字符,对不起!")
end if
str="where db_bbs.boardid=db_board.boardid and db_bbs.author=db_user.username and db_bbs.rootid=0 "
if keywords<>"" then
if gate="content" then
str=str&" and ( db_bbs.title like '%"&keywords&"%' or db_bbs.content like '%"&keywords&"%')"
else
str=str&" and db_bbs.author='"&keywords&"'"
end if
end if
if boardid<>"" then
str=str&" and db_bbs.boardid="& sboardid
end if
if daterange<>"" then
str=str&" and putdate>='"& dateadd("d", - daterange , now) &"'"
end if
str=str&" order by bbsid desc"
'response.write str
'完成str语句的生成
set rs=server.createobject("adodb.recordset")
sqltext="select db_board.boardid,db_board.boardname,db_bbs.bbsid,db_bbs.boardid,db_bbs.title,db_bbs.pic,db_bbs.author,db_bbs.putdate,db_bbs.replynum,db_bbs.replydate,db_bbs.clicknum,db_user.username,db_user.id,db_user.name from db_board,db_bbs,db_user "&str
'response.write sqltext
rs.open sqltext,conn,1,1
%>
<title>查询</title><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
<tr>
<td bgcolor="#EFF7FF"><table width="100%" border="0" cellspacing="2" cellpadding="5">
<tr>
<td width="200"> 当前位置：<a href="main.asp">论坛</a>>>搜索结果</td>
<td>关键字：<%=keywords%> 范围：<%
if sboardid<>"" then
set rstemp=server.createobject("adodb.recordset")
sqltemp="select boardid,boardname from db_board where boardid="&sboardid
rstemp.open sqltemp,conn,1,1
response.write rstemp("boardname")
rstemp.close
set rstemp=nothing
else
response.write "所有论坛"
end if
%>
发布日期：
<% if daterange<>"" then
response.write daterange&"天内"
else
response.write "不限"
end if%></td>
</tr>
</table></td>
</tr>
<tr>
<td><%
'添加验证输入信息合法性 2004/05/11
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=15
rs.PageSize=page_size
page=CLng(pg)
if page="" or page<1 then
page=1
elseif page>rs.pagecount then
page=rs.pagecount
end if
if not rs.eof then rs.absolutepage=page else page=0
%></td>
</tr>
<tr>
<td><div align="right">共<%=rs.recordcount%>条主题 第
<select name="select3" onChange="window.navigate(this.value)" class="inpud">
<%for i=1 to rs.PageCount
response.write "<option value=search_result.asp?keywords="&keywords&"&gate="&gate&"&sboardid="&sboardid&"&daterange="&daterange&"&page="&i
if i=page then response.write " selected"
response.write ">" & i & vbcrlf
next%>
</select>
页(每页<%=rs.pagesize%>条) 共<%=rs.PageCount%>页
<%
if page>1 then
response.write "<a href=""search_result.asp?keywords="&keywords&"&gate="&gate&"&sboardid="&sboardid&"&daterange="&daterange&"&page=1"">"
response.write "首页</a>"
else
response.write "首页"
end if
response.write " "
if page-1>=1 then
response.write "<a href=""search_result.asp?keywords="&keywords&"&gate="&gate&"&sboardid="&sboardid&"&daterange="&daterange&"&page="&(page-1)&""">"
response.write "上页</a>"
else
response.write "上页"
end if
response.write " "
if page+1<=rs.pagecount then
response.write "<a href=""search_result.asp?keywords="&keywords&"&gate="&gate&"&sboardid="&sboardid&"&daterange="&daterange&"&page="&(page+1)&""">"
response.write "下页</a>"
else
response.write "下页"
end if
response.write " "
if page<rs.pagecount then
response.write "<a href=""search_result.asp?keywords="&keywords&"&gate="&gate&"&sboardid="&sboardid&"&daterange="&daterange&"&page="&rs.pagecount&""">"
response.write "末页</a>"
else
response.write "末页"
end if
%>
</div></td>
</tr>
<tr>
<td><table cellspacing=1 cellpadding=3 width=100% align=center border=0>
<tr bgcolor="#738AD6" class=7>
<td width="40" height="25"><div align="center">状态</div></td>
<td> 标题</td>
<td width="60"><div align="center">作者</div></td>
<td width="60"><div align="center">点击</div></td>
<td width="60"><div align="center">回复</div></td>
<td width="80" bgcolor="#738AD6"><div align="center">最后回复</div></td>
</tr>
<%
if rs.recordcount=0 then
%>
<tr>
<td colspan="6" height="27" bgcolor="#FFFFFF">
<div align="center"><font color=red>没有找到符合条件的主题</font></div></td>
</tr>
<%
else
i=0
for p=1 to rs.PageSize
i=i+1
%>
<tr <% if i mod 2 =0 then response.write "bgcolor=#F7F3F7" %>>
<td width="40"><div align="center"><img src="ubb/<%=rs("pic")%>"></div></td>
<td><a href="read_art_display.asp?boardid=<%=rs("boardid")%>&bbsid=<%=rs("bbsid")%>"><%=rs("title")%></a>
<%if DateDiff("d", rs("putdate"),Now )<3 then
response.write "<img src=images/new.gif>"
end if
%></td>
<td width="60"><div align="center"><%=rs("author")%></div></td>
<td width="60"><%=rs("clicknum")%></td>
<td width="60"><div align="center"><%=rs("replynum")%></div></td>
<td width="80">
<div align="center">
<% if rs("replydate")="" or isnull(rs("replydate")) then
response.write "未回复"
else
response.write month(rs("replydate"))&"-"&day(rs("replydate"))&" "&hour(rs("replydate"))&":"&minute(rs("replydate"))
end if%>
</div></td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
end if
%>
</table></td>
</tr>
<tr>
<td><div align="right">共<%=rs.recordcount%>条主题 第
<select name="select" onChange="window.navigate(this.value)" class="inpud">
<%for i=1 to rs.PageCount
response.write "<option value=search_result.asp?keywords="&keywords&"&gate="&gate&"&sboardid="&sboardid&"&daterange="&daterange&"&page="&i
if i=page then response.write " selected"
response.write ">" & i & vbcrlf
next%>
</select>
页(每页<%=rs.pagesize%>条) 共<%=rs.PageCount%>页
<%
if page>1 then
response.write "<a href=""search_result.asp?keywords="&keywords&"&gate="&gate&"&sboardid="&sboardid&"&daterange="&daterange&"&page=1"">"
response.write "首页</a>"
else
response.write "首页"
end if
response.write " "
if page-1>=1 then
response.write "<a href=""search_result.asp?keywords="&keywords&"&gate="&gate&"&sboardid="&sboardid&"&daterange="&daterange&"&page="&(page-1)&""">"
response.write "上页</a>"
else
response.write "上页"
end if
response.write " "
if page+1<=rs.pagecount then
response.write "<a href=""search_result.asp?keywords="&keywords&"&gate="&gate&"&sboardid="&sboardid&"&daterange="&daterange&"&page="&(page+1)&""">"
response.write "下页</a>"
else
response.write "下页"
end if
response.write " "
if page<rs.pagecount then
response.write "<a href=""search_result.asp?keywords="&keywords&"&gate="&gate&"&sboardid="&sboardid&"&daterange="&daterange&"&page="&rs.pagecount&""">"
response.write "末页</a>"
else
response.write "末页"
end if
%>
</div></td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -