<%
Dim GOODSITEMNAME,i,rs,sqlstr,totalrs,x
set rs=server.CreateObject("adodb.recordset") '(建立recordset对象)
sqlstr="select * from pinmu where GOODSITEMCODE like'%"&GOODSITEMcode&"%' and left(goodsitemcode,1)='A'
order by goodsitemcode"
rs.open sqlstr,conn,1,3
totalrs=rs.recordcount%>
<div class="CNLTreeMenu" id="CNLTreeMenu1">请选择类别
<%do while not rs.eof%>
<%=rs("GOODSITEMcode")%>
<a href="#this" onclick="javascript:test()"> <%=rs("GOODSITEMname")%> </a>
<%
rs.movenext
loop
%>