行业 \ 地区 广东 广西 湖南 湖北 四川 重庆
电脑
汽车
美容
广告
手机
服装
以上是设计的框架,当点击"行业"字段中的每一个行业时, 比如我点击"行业"字段中"服装"出现如下:
行业 \ 地区 广东 广西 湖南 湖北 四川 重庆
电脑 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"<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>
'以上红色的部分,是不知道该怎样实现的部分,希望高手补充 ,谢谢
[此贴子已经被作者于2006-8-22 0:08:32编辑过]
