我想把上面的表做成联动形式
黑体字做为大类,下面的选项做为二级分类
进行双循环,然后做出类似的列表,这点已可做到。
SearchStr = SearchStr &"&一级分类="&rs("一级分类")&"&二级分类="&rsc("二级分类")&"&checked="&true
然后想在下一步的链接中把SearchStr加入,但是这样的效果只是把最后一组传入,不能把选择的传入,请问应该如何调整?
不会在论坛里贴程序,所以只好以上传文件的形式插入了。
<!--#include file="conn.asp"-->
<style type="text/css">
<!--
.aa {
font-size: 14px;
font-weight: bold;
background-color: #00CCFF;
font-family: "宋体";
}
.bb {
font-family: "宋体";
font-size: 12px;
}
-->
</style>
<%
set rs=Server.CreateObject("adodb.recordset")
rs.open "select * from Area",conn,1,1
%>
<table width="838" border="1" align="center">
<tr>
<td width="411"><font color="red">第一步:请选择你需要查询的商品的种类</font><p>第二步:请选择你需要查询的房产商
<p>第三步:请选择你需要的商品
</td>
<td width="411"> </td>
</tr>
</table>
<table width="838" border="1" align="center">
<tr>
<%
dim selclass
do while not rs.eof
selclass=rs("cq")
cols =cols +1
if cols >1 and cols mod 5 =1 then response.write "</tr><tr>"
%>
<td height="21" width="168" class="aa"><%=rs("cq")%><br>
<%
set rsc=Server.CreateObject("adodb.recordset")
rsc.open "select * from Around where cq ='" & selclass & "'",conn,1,1
do while not rsc.eof
dim SearchStr
SearchStr=""
%>
<input type="radio" name="zb" value="<%=rsc("zb")%>" class="bb"><%=rsc("zb")%><br>
<%
SearchStr = SearchStr &"&cq="&rs("cq")&"&zb="&rsc("zb")&"&checked="&true
%>
<%
rsc.movenext
loop
%>
</td>
<%
rs.movenext
loop
%>
</tr>
<tr bgcolor="#00CCFF"><td height="25" colspan="5" align="center"><a href="search_guide2.asp?<%=SearchStr%>">
下一步</a></td>
</tr>
</table>
<%
rsc.close
set rsc=nothing
rs.close
set rs=nothing
%>
这是我自己想的写法,因为预览时格式不对,所以只好上传附件了。现在知道应该怎么在论坛里贴源码了
[此贴子已经被作者于2007-5-29 1:41:27编辑过]