?? replysearch.asp
字號:
<!--#include file="pass.asp "-->
<!--#include file="conn.asp"-->
<!--#include file="format.asp"-->
<head>
<title>網(wǎng)絡(luò)教學(xué)平臺</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>
·尊重網(wǎng)上道德，遵守中華人民共和國的各項有關(guān)法律法規(guī) <br>
·本系統(tǒng)管理人員有權(quán)保留或刪除任意內(nèi)容 <br>
·本系統(tǒng)有權(quán)在網(wǎng)站內(nèi)轉(zhuǎn)載或引用您的留言<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">
關(guān)鍵字：<input type=text name="keyword" size=12></td></tr>
<tr>
<td align="left">搜索類別：
<select size=1 name="condition">
<option value="標題">標題</option>
<option value="內(nèi)容">內(nèi)容</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")="內(nèi)容" 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>搜索結(jié)果為:</b></td></tr>
<tr><td bgcolor="#FFCC99" background="image/dj_bg.gif">回復(fù)</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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -