欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

asp 站内的搜索有关问题

更新时间: 2014-01-05 00:56:52 责任编辑: Author_N1

 

asp 站内的搜索问题
遇到的问题是写了出来之后测试不可以使用,自己找不出来错误了,需要各位大大帮忙
代码如下:
<%
ProvinceID=Request("province")
%>
这是头部代码
主体代码在这
<form action="?" name="frm" method="post">
<input type="hidden" name="action" value="search" />
    <td width="258" height="60">&nbsp;</td>
    <td width="52" class="font14hui">区域:</td>
    <td width="3"></td>
    <td width="247"><select name="province">
<%
Sql="Select provinceID,province From T_Province"
SetRs Rs,Sql,conn,1,1
Do While Not Rs.eof
%>
<option value="<%=Rs("ProvinceID")%>" <%IF Cstr(Rs("provinceID"))=Cstr(provinceID) Then Response.Write("selected")%>><%=Rs("Province")%></option>
<%
Rs.movenext
Loop
DisRs Rs
%>
</select></td>
    <td width="1"></td>
    <td width="406"><input type="image" name="btnSearch" src="images/search.jpg" /></td>
    <td width="23">&nbsp;</td></form>


遇到的问题是,在选择完省之后,查询不反应,只是象征性的刷新一下,还是会出现所有的省的东西,上述代码为什么没有效果,求更正
--参考方法--
不久添加你省的过滤代码语句就行了
ProvinceID=Request("province")
response.write ProvinceID'输出看看有指没有
cd=""
if isnumeric(ProvinceID&"") then'''''''
 cd=" where ProvinceID="&ProvinceID
end if
sql="select * from table"&cd'''''''

--参考方法--


<%
Dim ProvinceID
ProvinceID=Int(Trim(Request.Form("province")))

%>
<form action="" name="frm" method="post">
<input type="hidden" name="action" value="search" />
    <td width="258" height="60">&nbsp;</td>
    <td width="52" class="font14hui">区域:</td>
    <td width="3"></td>
    <td width="247"><select name="province">
<%
Set Rs=Server.CreateOBject("ADODB.RecordSet")
Sql="Select provinceID,province From T_Province"
Rs,Sql,conn,1,1
Do While Not Rs.eof
%>
<option value="<%=Rs("ProvinceID")%>" <%IF Cstr(Rs("provinceID"))=Cstr(provinceID) Then Response.Write("selected")%>><%=Rs("Province")%></option>
<%
Rs.movenext
Loop
DisRs Rs
%>
</select></td>
    <td width="1"></td>
    <td width="406"><input type="image" name="btnSearch" src="images/search.jpg" /></td>
    <td width="23">&nbsp;</td></form>

--参考方法--
你是选择那个省就只显示那个省在select中?这样选择过后就无法再选了,你的要求应该是得到这个省的产品什么之类的信息吧。。

<%
Dim ProvinceID
ProvinceID=Int(Trim(Request.Form("province")))
 
%>
<form action="" name="frm" method="post">
        <input type="hidden" name="action" value="search" />
    <td width="258" height="60">&nbsp;</td>
    <td width="52" class="font14hui">区域:</td>
    <td width="3"></td>
    <td width="247"><select name="province">
            <%
            Set Rs=Server.CreateOBject("ADODB.RecordSet")
            Sql="Select provinceID,province From T_Province"
if isnumeric(ProvinceID&"") then'''''''加上过滤条件,都说了还没改过
 sql=sql&" where ProvinceID="&ProvinceID
end if

            Rs,Sql,conn,1,1
            Do While Not Rs.eof
            %>
            <option value="<%=Rs("ProvinceID")%>" <%IF Cstr(Rs("provinceID"))=Cstr(provinceID) Then Response.Write("selected")%>><%=Rs("Province")%></option>
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 00:56:52
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1712/
本文WWW.DOC100.NET DOC100.NET版权所有。