遇到的问题是写了出来之后测试不可以使用,自己找不出来错误了,需要各位大大帮忙
代码如下:
<%这是头部代码
ProvinceID=Request("province")
%>
主体代码在这
<form action="?" name="frm" method="post">
<input type="hidden" name="action" value="search" />
<td width="258" height="60"> </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"> </td></form>
遇到的问题是,在选择完省之后,查询不反应,只是象征性的刷新一下,还是会出现所有的省的东西,上述代码为什么没有效果,求更正
asp
select
search
搜索
------解决方案--------------------
不久添加你省的过滤代码语句就行了
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"> </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"> </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"> </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>