求助如何实现这一功能! - ASP技术论坛

rengangyi

等　级：新手上路
帖　子：22
专家分：0
注　册：2006-8-13

楼主

问题点数：0 回复次数：7

求助如何实现这一功能!

行业 \ 地区广东广西湖南湖北四川重庆
电脑
汽车
美容
广告
手机
服装
以上是设计的框架,当点击"行业"字段中的每一个行业时, 比如我点击"行业"字段中"服装"出现如下:
行业 \ 地区广东广西湖南湖北四川重庆
电脑 7匹狼 8皮狼 9皮狼 3皮猪
汽车 2皮猪 6皮猪 1皮狼 2皮狼
美容 3皮狼 4皮狼 5皮狼 6皮狼
广告 10皮狼 11皮狼12皮狼 13皮狼
手机
服装共3页首页上一页下一页末页
如果我再点击"地区"字段中的每一个地区时，比如我点击"地区"字段中"重庆"出现如下:
行业\ 地区广东广西湖南湖北四川重庆
电脑 7匹狼 8皮狼 9皮狼 3皮猪
汽车 3皮狼 4皮狼 5皮狼 6皮狼
美容 10皮狼 11皮狼12皮狼 13皮狼
广告
手机
服装共2页首页上一页下一页末页
反过来如果我先点击“地区”就出现该地区下所有的记录，如果再点击“行业” 就在该地区所以的记录下
搜索属于该行业的记录！
请问如何实现该功能？
我的数据库表如下：
id adname adprofession adplace (字段名)
1 1皮狼服装重庆
2 2皮主服装广东

代码如下:
<table width="783" height="516" border="0" align="center" bgcolor="#663333" >
<tr>
<td width="153" height="320" rowspan="3"align="center" valign="top" scope="row"><img src="pic/profession.jpg" width="153" height="28" />
<div style="width:150;height:560;overflow-x:hidden;overflow-y:scroll">
<script>
//使元素出现横向滚动条
document.write(new Array(20).join(""))
//使元素出现纵向滚动条
document.write(new Array(20).join(""))
</script>
<table width="75%" border="2" bordercolor="#ffffcc" bgcolor="#ffffcc">

<td scope="row">

<table width="130" height="305" align="left" >
<tr>
<th width="81" align="left" valign="top" bgcolor="#663333" scope="row">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from adprofession order by adprofession desc"
rs.open sql,conn,1,1
%>
<table width="130" align="left" bgcolor="#663333">

<%do while not rs.eof%>
<tr align="left" valign="top">
<th width="150" align="center" background="pic/littleprofession.jpg" bgcolor="#FFFFFF" class="style5" scope="row"><a href="view.asp?adprofession=<%=rs("adprofession")%>" class="STYLE6"><font color="#ffffff"><%=rs("adprofessionname")%></font></a></th>
</tr>
<%
rs.movenext
loop
%>
</table> </th>
</tr>
</table></td>

</table>
</div></td>
<td width="620" height="37" valign="top" bgcolor="#663333"><table width="523" height="30" border="0" bgcolor="#790000">
<tr bordercolor="#FFFFFF">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from adinplace order by adinplace asc"
rs.open sql,conn,1,1
%>
<%do while not rs.eof%>

<td width="486" align="center" valign="middle" bordercolor="#FFFFFF" background="pic/place.jpg" bgcolor="#FFFFCC" class="central"><a href="adview.asp?adinplace=<%=rs("adinplace")%>" class="STYLE6"><%=rs("adinplacename")%></a></td>
<%
rs.movenext
loop
%>
</tr>
</table> </td>

</tr>
<tr>
<td align="center" valign="top" bgcolor="#663333" class="y"><table width="100%" border="0" cellspacing="0" cellpadding="8">
<tr>
<td align="center" valign="top"bgcolor="#663333" >
<%
Dim ipagecount
Dim ipagecurrent
Dim strorderBy
Dim irecordsshown
if request.querystring("page")="" then
ipagecurrent=1
else
ipagecurrent=cint(request.querystring("page"))
end if
if request.QueryString("adinplace")="" then
sql="select * from adtable where adprofession="&int(request("adprofession"))
else
sql="select * from adtable where adprofession="&int(request("adprofession"))&"and adinplace="&int(request("adinplace"))
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.pagesize = 20
rs.cachesize = 20
rs.open sql,conn,1,1
ipagecount = rs.pagecount
If ipagecurrent > ipagecount Then ipagecurrent = ipagecount
If ipagecurrent < 1 Then ipagecurrent = 1
if ipagecount=0 then
response.write "<tr><td align='center'>企业信息正在收集中</tr></td>"
else
rs.absolutepage = ipagecurrent
irecordsshown = 0
do while irecordsshown<20 and NOT rs.EOF
Response.Write"<tr align='center'>"
Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write"<table align=center bgcolor='#e9e9e9' border=0 cellpadding=5 cellspacing=0 ><tbody><td>"
if rs("vip")="-1" then
response.write"<a href='viewad.asp?id="&rs("id")&"'target='_blank'><img src='"&rs("pic")&"'width='111' height='65' border='0' ></a>"
else
response.write"<img src='"&rs("pic")&"'width='111' height='65' border='0' >"
end if
Response.Write"</td></tbody></table><br><font color='#ffffff'>"&rs("adname")&"</font></a></td></td>"
irecordsshown = irecordsshown +1
rs.movenext
end if

Response.Write"<td width='25%'>"
if not rs.eof then
Response.Write"<table align=center bgcolor='#e9e9e9' border=0 cellpadding=5 cellspacing=0 ><tbody><td>"
if rs("vip")="-1" then
response.write"<a href='viewad.asp?id="&rs("id")&"'target='_blank'><img src='"&rs("pic")&"'width='111' height='65' border='0' ></a>"
else
response.write"<img src='"&rs("pic")&"'width='111' height='65' border='0' >"
end if
Response.Write"</td></tbody></table><br><font color='#ffffff'>"&rs("adname")&"</font></a></td></td>"
irecordsshown = irecordsshown +1
rs.movenext
end if

Response.Write"</tr>"
loop
end if
rs.Close
set rs=nothing
Response.Write"</table>"

Response.Write"<table width='100%' border='0' cellspacing='0' cellpadding='5' class='s' valign='bottom' ><form name='form1' method='get' action='search.asp'><tr><td height='20' align='center'> 每页显示 25 条企业信息共有 "&ipagecount&" 页当前为第 "&ipagecurrent&" 页 "
if ipagecurrent=1 then
Response.Write"首页 | "
else
Response.Write"<a href='view.asp?adprofession="&request.querystring("adprofession")&"&page=1'>首页</a> | "
end if
if ipagecurrent=1 then
Response.Write"上一页 | "
else
Response.Write"<a href='view.asp?adprofession="&request.querystring("adprofession")&"&page="&ipagecurrent-1&"'>上一页</a> | "
end if
if ipagecount>ipagecurrent then
Response.Write"<a href='view.asp?adprofession="&request.querystring("adprofession")&"&page="&ipagecurrent+1&"'>下一页</a> "
else
Response.Write"下一页"
end if
if ipagecount>ipagecurrent then
Response.Write"| <a href='view.asp?adprofession="&request.querystring("adprofession")&"&page="&ipagecount&"'>末页</a> "
else
Response.Write"| 末页 "
end if
Response.Write"</td></tr></form></table>"
%></td>
</tr>
</table>
</td>
</tr>
</table>
'以上红色的部分,是不知道该怎样实现的部分,希望高手补充 ,谢谢