实现搜索功能
来源：互联网 发布：程序员到底要学什么 编辑：程序博客网 时间：2024/04/30 09:10
有字段时 //关健词与字段是一起用
{
是否选择了关健词。没有时默认以姓名.
}
by的是 //
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Response.Buffer =True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache" %>
<!--#include file="conn.asp" -->
<%
ziduan=request("ziduan") //字段，下拉列表的选项 <select name="ziduan"><option value="name">姓名</option>
by=trim(request("by")) //选择中
key=trim(request("key")) //关健字
set rs=server.createobject("adodb.recordset") //创建记录集.
if key="" then //没有关健字时
sql="select * from jg where ischeck like 0 and isdeletetozhan = '否'"
if by="" then
sql=sql & " Order by name desc" //如果没有默认以姓名查找
end If
if by<>"" then
Select case by
case ""
sql=sql & " Order by name asc"
case "nameasc"
sql=sql & " Order by name asc"
case "namedesc"
sql=sql & " Order by name desc"
case "sexasc"
sql=sql & " Order by sex asc"
case "sexdesc"
sql=sql & " Order by sex desc"
case "birthdayasc"
sql=sql & " Order by birthday asc"
case "birthdaydesc"
sql=sql & " Order by birthday desc"
End Select
end if
rs.open sql,conn,1,1
Else //有关健字时，有字段时，
sql="select * from jg where ischeck like 0 and isdeletetozhan = '否' and "&ziduan&" like '%"&key&"%' "
if by="" Then
sql=sql & " Order by name desc"
end if
if by<>"" then
Select case by
case "nameasc"
sql=sql & " Order by name asc"
case "namedesc"
sql=sql & " Order by name desc"
case "sexasc"
sql=sql & " Order by sex asc"
case "sexdesc"
sql=sql & " Order by sex desc"
case "birthdayasc"
sql=sql & " Order by birthday asc"
case "birthdaydesc"
sql=sql & " Order by birthday desc"
End Select
end if
rs.open sql,conn,1,1
end If
if rs.eof then
response.write"没有相关记录！"
response.end
end if
size=request.QueryString ("size")
if size="" then
rs.PageSize=15
end if
if size="all" then
rs.PageSize=rs.recordcount
end if
pagecount=rs.PageCount
page=int(request.QueryString ("page"))
if page<=0 then page=1
if request.QueryString("page")="" then page=1
rs.AbsolutePage=page
%>
<form name="form1" action="index2.asp">
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#33CCFF">
<tr align="left" valign="middle" bordercolor="#FFFFFF" bgcolor="#C9E3FA" class="cssresult">
<td height="41" colspan="8"><div align="center" class="style3">关键字：<b>
<input name="key" type="text" value="<%=key%>" size="20">
</b>按<b> <font class="search">
<select name="ziduan">
<option value="name">姓名</option>
<option value="sex">性别</option>
<option value="shenfenzheng">QQ号</option>
<option value="jiguan">籍贯</option>
<option value="mianmao">政治面貌</option>
</select>
</font></b>
</tr>
</table>
</form>
<%
if rs.eof and rs.bof then
response.write("没找到记录，或者记录被删除到回收站中，或者没有通过审核")
response.end
end if %>
<form name="form2" method="post" action="">
<table width="100%" border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
<tr align="center" bgcolor="#75B7F2">
<td width="66" align="center" bgcolor="#75B7F2" ><div align="center"> 姓名</div></td>
<td width="52" align="center" bgcolor="#75B7F2"><div align="center"><span class="style6">性别</span></div></td>
<td width="68" align="center" bgcolor="#75B7F2"><div align="center"><span class="style6">出生</span></div></td>
<td width="36" align="center" bgcolor="#75B7F2"><div align="center">年龄</div></td>
<td width="67" align="center"><div align="center"><span class="style6">籍贯</span></div></td>
<td width="67" align="center"><div align="center"><span class="style6">QQ号</span></div></td>
<td width="67" align="center"><div align="center"><span class="style6">政治面貌</span></div></td>
</tr>
<%count=0
do while not rs.eof and count<rs.pagesize %>
<%if count Mod 2=0 then%>
<TR bgcolor="#E2EEFC" onMouseOver="this.style.backgroundColor='#FFE8E8'" onMouseOut="this.style.backgroundColor='#E2EEFC'">
<%end if%>
<td valign="middle"><div align="center"><a href="showup.asp?id=<%=rs("id")%>"><%=rs("name")%></a></div></td>
<td><div align="center"><%=rs("sex")%></div></td>
<td ><div align="center"><%=rs("birthday")%></div></td>
<% if rs("birthday")<>"" and isdate(rs("birthday")) then
bir=rs("birthday")
age=datediff("yyyy",bir,date)
else age=""
end if
if rs("workstart")<>"" and isdate(rs("workstart")) then
workdate=rs("workstart")
jiaolin=datediff("yyyy",workdate,date)
else jiaolin=""
end if
%>
<td ><div align="center"><%=age%></div></td>
<td ><div align="center"><%=rs("jiguan")%></div></td>
<td ><div align="center"><%=rs("shenfenzheng")%></div></td>
<td ><div align="center"><%=rs("mianmao")%></div></td>
</tr>
<% count=count+1
rs.movenext
loop %>
</table>
<table width="100%" height="37" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="28"><div align="center" style="font-size: 12px">
<span class="style1">
性别
<a title="按性别升序排列" <%if by="sexasc" then%> style="color:#FF00FF;"<%end if%> href="index2.asp?by=sexasc&size=all" >↑</a>
<a title="按性别降序排列" <%if by="sexdesc" then%> style="color:#FF00FF;"<%end if%> href="index2.asp?by=sexdesc&size=all" >↓ </a>
出生
<a title="按出生升序排列" <%if by="birthdayasc" then%> style="color:#FF00FF;"<%end if%> href="index2.asp?by=birthdayasc&size=all" >↑</a>
<a title="按出生降序排列" <%if by="birthdaydesc" then%> style="color:#FF00FF;"<%end if%> href="index2.asp?by=birthdaydesc&size=all" >↓</a> </span>
共<%=rs.recordcount%>条记录,每页显示<%=rs.pagesize%>条，第<%=page%>/<%=rs.pagecount%>页
<%if page>1 then%>
<a Href="index2.asp?Page=<% = 1%>">首页</a> <a Href="index2.asp?Page=<% =page -1 %>">上一页</a>
<%end if %>
<%if page<>rs.pagecount then %>
<a Href="index2.asp?Page=<% =page + 1%>">下一页</a> <a Href="index2.asp?Page=<% = rs.PageCount%>">尾页</a>
<% end if %>
<select name="page" id="page" onChange="javascript:window.location.href('index2.asp?page='+this.options[this.selectedIndex].value+'')">
<% for i=1 to rs.pagecount%>
<option value="<%=i%>" <%if i=page then response.Write("selected") end if%> ><%=i%> </option>
<% next%>
</select>
<% if size<>"all" then%>
<a href="index2.asp?size=all">显示全部记录</a>
<% end if%>
<% if size="all" then%>
<a href="index2.asp">分页显示记录</a>
<% end if%>
</div></td>
</tr>
</table>
