<%id=request("corp_producttype.id")
set rs = server.CreateObject("adodb.recordset")
if len(id)=2 then
sql = "SELECT corp_producttype.id,corp_producttype.corp_producttype,corp_producttype.gunlian,corpuser_info.jobFunction1,corpuser_info.jobFunction2,corpuser_info.jobFunction3,corpuser_info.username FROM corp_producttype,corpuser_info WHERE corp_producttype.id like'"&id&"%'and corp_producttype.guanlian in(corpuser_info.jobFunction1,corpuser_info.jobFunction2,corpuser_info.jobFunction2) groupy by corp_producttype.id='"&left(id,2)&"'"
end if
if len(id)=4 then
sql="SELECT corp_producttype.id,corp_producttype.corp_producttype,corp_producttype.gunlian,corpuser_info.jobFunction1,corpuser_info.jobFunction2,corpuser_info.jobFunction3,corpuser_info.username FROM corp_producttype,corpuser_info WHERE corp_producttype.id like'"&id&"%'and corp_producttype.guanlian in(corpuser_info.jobFunction1,corpuser_info.jobFunction2,corpuser_info.jobFunction2) groupy by corp_producttype.id='"&left(id,4)&"'"
end if
if len(id)=6 then
sql="SELECT corp_producttype.id,corp_producttype.corp_producttype,corp_producttype.gunlian,corpuser_info.jobFunction1,corpuser_info.jobFunction2,corpuser_info.jobFunction3,corpuser_info.username FROM corp_producttype,corpuser_info WHERE corp_producttype.id like'"&id&"%'and corp_producttype.guanlian in(corpuser_info.jobFunction1,corpuser_info.jobFunction2,corpuser_info.jobFunction2) groupy by corp_producttype.id='"&left(id,6)&"'"
end if
rs.open sql,conn,1,3
%>
<%if not rs.eof then%> <table width="778" border="0" cellspacing="0" cellpadding="0" align="center">

<tr>
<td height="30" align="left"><span class="font4">&gt;&gt;<a href="changping.asp?id=<%=rs("corp_producttype.id")%>&username=<%rs("corpuser_info.username")%>" class="link1"><%response.write("选取了")%><%=rs("corp_producttype")%><%=rs.recordcount%><%response.write("家公司")%><%response.write("公司名为")%><%=rs("corpuser_info.username")%></a></span></td>
</tr>
<%rs.movenext%>

<% end if %>
</table>

<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
<td class=LEADERAD align=middle><img src="../../img/framework/blank_spacer.gif" width="8" height="6"><br>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="728" height="90">
<param name="movie" value="../../img/2006-8-316-41-24_1.swf">
<param name="quality" value="high">
<embed src="../../img/2006-8-316-41-24_1.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="728" height="90"></embed>
</object></td>
</tr>
</table></td>
</tr>
</table>

<% set rb=server.createobject("adodb.recordset")
id=request("id")
sql="select * from corp_producttype,corpuser_info where corp_producttype.id='"&id&"' and corp_producttype.guanlian in(corpuser_info.jobFunction1,corpuser_info.jobFunction2,corpuser_info.jobFunction3)"
rb.open sql,conn,1,1
if rb.recordcount="" then
rb.recordcount=0
end if

%> 这是分类部分实现了
还有一个关联查询表问题代码如上所示不能得到想要的结果
<%
id=request("id")
if len(id)=6 then%>
<%set rs = server.CreateObject("adodb.recordset")
sql = "SELECT * FROM corp_producttype where parent="&id&""
rs.open sql,conn,1,3
%>