asp多条件搜索查询

推事爬 2011-11-08 05:15:14

</head>
<body>
<hr align="right" width="100%" size="0" noshade="noshade" />
<table width="977" border="1">
<tr>
<td width="361"><form action="/sopc.asp" method="get" name="add">

<select name="title" id="title"style="width:100px;height:18px; ">
<option value="" selected="selected" name="title">选择拼车方式</option>
<option value="上下班拼车" name="title">上下班拼车</option>
<option value="临时拼车" name="title">临时拼车</option>
<option value="周末拼车" name="title">周末拼车</option>
<option value="城际拼车" name="title">城际拼车</option>
<option value="旅游拼车" name="title">旅游拼车</option>
<option value="节假日拼车" name="title">节假日拼车</option>
<option value="长途拼车" name="title">长途拼车</option>
<option value="其它拼车" name="title">其它拼车</option>
</select>
<select name="titlee" id="titlee"style="width:60px;height:18px; ">
<option value="车主" selected="selected">车主</option>
<option value="乘客" >乘客</option>
</select>
</br>
出发点：<select name="province"value="四川省">
</select>
<select name="city">
</select>
<select name="area">
</select>
<input name="chufadi" type="text" value="" size="20" />
</br> 到达地： <select name="province1"value="四川省">
</select>
<select name="city1">
</select>
<select name="area1">
</select>
<input name="daodadi" type="text" value="" size="20" />
<input type="submit" name="button" id="button" value="搜索" />
</form> <script language="javascript" defer>
new PCAS("province","city","area");
new PCAS("province1","city1","area1");
</script></td>
</tr>
</table>

<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><div class="right_title">站内搜索</div>
<div class="right_body">
<%

title=request.QueryString("title")
titlee=request.QueryString("titlee")
province=request.QueryString("province")
city=request.QueryString("city")
area=request.QueryString("area")
chufadi=request.QueryString("chufadi")
province1=request.QueryString("province1")
city1=request.QueryString("city1")
area1=request.QueryString("area1")
daodadi=request.QueryString("daodadi")
if title="" then
Response.Write("")
Response.End()
end if
set rs=server.createobject("adodb.recordset")
exec="select * from [aa] where title='"&title&"'or titlee='"&titlee&"' or biglocation='"&province&"' or smalllocation='"&city&"' or dlmc0='"&area&"' or chufadi='"&chufadi&"'or biglocation='"&province1&"' or smalllocation='"&city1&"' or dlmc0='"&area1&"' or chufadi='"&daodadi&"' order by title desc "
rs.open exec,conn,1,1
if rs.eof then
response.Write " 没有搜索到相关内容！"
else
rs.PageSize =10 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if
For i=1 To x%>
<%if t=1 then%>

谁能帮我看下这个查询功能不听我的使唤选好查出来的是全部信息

...全文