📄 replysearch.asp
字号:
<!--#include file="pass.asp "-->
<!--#include file="conn.asp"-->
<!--#include file="format.asp"-->
<head>
<title>网络教学平台</title>
<LINK href="image/css.css" type=text/css rel=stylesheet>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"><style type="text/css">
<!--
body,td,th {
font-size: 12px;
}
body {
margin-left: 122px;
}
-->
</style></head>
<body bgcolor="#FFFFFF" >
<div align=center>
<table border="0" width="820" id="table1" cellpadding=0 cellspacing=0 height="621">
<tr>
<td bgcolor="#FFFFFF">
<div align="center">
<table width="770" height="603" border="0" cellpadding="0" cellspacing="0">
<tr >
<td width="25%" height="20" bgcolor="#FFFFFF" >
<b>访客留言</b></td>
<td width="75%" height="20" align="left" background="xxj1.gif" bgcolor="#FFFFFF"> <a href="zxly.asp" target="mainFrame">撰写留言</a>
<a href="ckly.asp" target="mainFrame">查看留言</a> </td>
</tr>
<tr >
<td width="25%" height="573" bgcolor="#FFFFFF" valign=top>
·尊重网上道德，遵守中华人民共和国的各项有关法律法规 <br>
·本系统管理人员有权保留或删除任意内容 <br>
·本系统有权在网站内转载或引用您的留言<br>
<form method=post action=replysearch.asp><table width="183"><tr><td height="25" align="center" ><span class="STYLE1">留言搜索</span></td>
</tr><tr><td><hr color="#689EE0" height="1"></td></tr><tr><td align="left">
关键字：<input type=text name="keyword" size=12></td></tr>
<tr>
<td align="left">搜索类别：
<select size=1 name="condition">
<option value="标题">标题</option>
<option value="内容">内容</option>
</select></td>
</tr>
<tr>
<td align="center"><input type=submit value="搜 索" name="sub" /></td>
</tr>
</table>
</form></td>
<% dim key1
key1=request("keyword")
%>
<td bgcolor="#FFFFFF" valign=top>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
if request("condition")="标题" then
sql="select * from guest_topic where title like '%"&request("keyword")&"%' order by time desc,id desc"
elseif request("condition")="内容" then
sql="select * from guest_topic where Content like '%"&request("keyword")&"%' order by time desc,id desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
End if
rs.open sql,conn,3,3
%>
<table border=0 width="75%">
<tr><td colspan=4 bgcolor="#FFCC99">
<p align="center"><b>搜索结果为:</b></td></tr>
<tr><td bgcolor="#FFCC99" background="image/dj_bg.gif">回复</td>
<td bgcolor="#FFCC99" background="image/dj_bg.gif">标题</td>
<td bgcolor="#FFCC99" background="image/dj_bg.gif">大名</td>
<td bgcolor="#FFCC99" background="image/dj_bg.gif">时间</td></tr>
<%
if rs.eof then%>
<tr><td colspan=4 bgcolor="#FFFFFF">暂时没有留言！</td></tr>
<% response.end
end if%>
<%
rs.pagesize=15
page=CLng(request("page"))
if page<1 then page=1
rs.absolutepage=page
for i=1 to rs.pagesize
id=rs("user_id")%>
<tr><td bgcolor="#FFFFFF"><%=rs("replyNum")%></td><td bgcolor="#FFFFFF"><a href=reply.asp?id=<%=rs("id")%>><%=rs("title")%></a></td>
<td bgcolor="#FFFFFF"><%=conn.execute("select * from [user] where id="&id)("name")%></td><td bgcolor="#FFFFFF"><%=rs("time")%></td></tr>
<% rs.movenext
if rs.eof then exit for
next %>
<tr><td colspan=4 bgcolor="#FFFFFF" height=20>
<% if page<>1 then %>
<a href=ckly.asp?page=1>第一页</a>
<a hrefckly.asp?page=<%=(page-1)%>>上一页</a>
<% end if
if page<>rs.pagecount then %>
<a href=ckly.asp?page=<%=(page+1)%>>下一页</a>
<a href=ckly.asp?page=<%=rs.pagecount%>>最后一页</a>
<% end if%>
</td></tr>
</table> </td>
</tr>
</table>
</div></td>
</tr>
</table>
</div>
</body>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -