📄 search.asp
字号:
<!--#include file="conn.asp"-->
<SCRIPT language=JavaScript1.2>
<!--
function validate(theform)
{
if (theform.keyword.value=="" )
{
alert("请输入查询关键字！");
document.search.keyword.focus();
return false;
}
}
-->
</SCRIPT>
<%
dim keyword,condition,page,con
dim i,rowcount
i=1
rowcount=0
page=request.querystring("page")
if page="" then
keyword=request.form("keyword"):condition=request.form("condition")
else
keword=requst.querystring("keyword"):condition=request.querystring("condition")
end if
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>查询留言</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<link href="style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
function MM_openBrWindow(theURL,winName,features)
{ //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</HEAD>
<BODY background="image/bg01.gif" onLoad="MM_preloadImages('image/addDown.gif','image/browseDown.gif');document.search.keyword.focus() ">
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="0">
<tr>
<td><div align="center">
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><div align="center"></div></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="5">
<tr>
<td><div align="center">
<table bordercolordark="#FFFFFF" bordercolorlight="#666666" width="500" border="1" cellpadding="4" cellspacing="0">
<tr>
<td background="image/top.gif"><div align="center"><font color="#FFFFFF"><strong>查询留言</strong></font></div></td>
</tr>
<tr>
<td bgcolor="#FFFFFF"><a href="edit.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('add','','image/addDown.gif',1)"><img src="image/add.gif" alt="签写留言" name="add" width="90" height="30" border="0"></a> <a href="index.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('browse','','image/browseDown.gif',1)"><img src="image/browse.gif" alt="浏览留言" name="browse" width="90" height="30" border="0"></a></td>
</tr>
<tr>
<td><p> </p>
<form action="search.asp" method="post" name="search" onsubmit='return validate(this)'>
<table width="100%" border="0" cellspacing="0" cellpadding="2">
<tr>
<td width="20%"><div align="center">请输入关键字：</div></td>
<td width="40%">
<input name="keyword" type="text" class="text" size="25" maxlength="30">
</td>
<td width="20%">
<select name="condition">
<option value="name">作者</option>
<option value="title">主题</option>
<option value="content">内容</option>
</select>
</td>
<td width="20%">
<input name="search" type="submit" class="button" value="给我搜">
</td>
</tr>
</table>
<%
if keyword<>"" and condition<>"" then
sql="select * from users where "&condition&" like '%"&keyword&"%' order by submittime desc"
' response.write sql
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 1,1
if page="" then page=1
page=int(page)
if page<1 then page=1
if page>rs.pagecount then page=rs.pagecount
if not (rs.EOF and rs.BOF) then
rs.AbsolutePage =page
end if
%>
</form>
<p> </p>
</td>
</tr>
</table>
<p>
<%
if rs.pagecount=0 then
response.write "抱歉，没有搜索到符合您需要的记录。"
else
select case condition
case "name"
con="作者"
case "title"
con="主题"
case "content"
con="内容"
end select
%>
共搜索到<font color="#FF3300"><%=rs.recordcount%></font>条 <b><%=con%></b>为<b><%=keyword%></b> 的留言</p>
<p>
<table width="500" border="1" cellpadding="2" cellspacing="0" bordercolor="#666666" style="border-collapse:collapse">
<tr>
<td width="10%"><div align="center">编 号</div></td>
<td width="20%"><div align="center">作 者</div></td>
<td width="30%"><div align="center">主 题</div></td>
<td width="28%"><div align="center">发表时间</div></td>
<td width="12%"><div align="center">已经回复</div></td>
</tr>
<%do while not rs.eof and rowcount<10%>
<tr>
<td width="10%"><div align="center"><%=i%></div></td>
<td width="20%"><div align="center"><a href="#" title='查看<%=rs("name")%>的所有留言' onClick="MM_openBrWindow('author.asp?name=<%=rs("name")%>','','scrollbars=yes,width=600,height=400')"><%=rs("name")%></a></div></td>
<td width="30%"><div align="center"><a href="#" title='查看详细内容' onClick="MM_openBrWindow('con_detail.asp?id=<%=rs("id")%>','','scrollbars=yes,width=600,height=300')"><%=rs("title")%></a></div></td>
<td width="28%"><div align="right"><%=rs("submittime")%></div></td>
<td width="12%"><div align="center"><a href='reply.asp?id=<%=rs("id")%>' title='回复该留言'><%if rs("reply")<>"" then%><%="是"%><%else%><%="否"%><%end if%></a></div></td>
</tr>
<%
i=i+1
rowcount=rowcount+1
rs.MoveNext
loop
%>
</table><br>
<%if page<>1 then%>
<a href="search.asp?keyword=<%=keyword%>&condition=<%=condition%>&page=1">第一页</a>
<a href="search.asp?sort=<%=sort%>&Keyword=<%=ListKeyword%>&shownum=<%=shownum%>&page=<%=page-1%>">上一页</a>
<%end if%>
<%if page<>rs.pagecount then%>
<a href="search.asp?sort=<%=sort%>&Keyword=<%=ListKeyword%>&shownum=<%=shownum%>&page=<%=page+1%>">下一页</a>
<a href="search.asp?sort=<%=sort%>&Keyword=<%=ListKeyword%>&shownum=<%=shownum%>&page=<%=rs.pagecount%>">最后一页</a>
<%end if%>
第<font color=#FF3300><%=page%></font>页/共<font color=#FF3300><%=rs.pagecount%></font>页
<%end if%>
<%else%></form>
</p>
<p> </p>
</td>
</tr>
</table><br>
<%end if%>
</div>
</td>
</tr>
</table>
</div></td>
</tr>
</table>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -