ASP后台中如何调用产品类别代码(大类ID=anclassid 大类名称=anclass;小类ID=nclassid

maro · 发表于 2011-12-23 12:12:20

<td width="15%" align="right"  class=tdbg>选择商品的分类：</td>
      <td width="85%" height="28" align="left" class=tdbg>

            <p>大类：
  <%dim rs1

set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from products where bookid="&bookid,conn,1,1
rs.open "select * from bsort order by anclassidorder",conn,1,1
if rs.eof and rs.bof then
response.write "请先添加栏目。"
response.end
else
%>
            <select name="anclassid" size="1" id="anclassid" onChange="changelocation(document.myform.anclassid.options[document.myform.anclassid.selectedIndex].value)">
               <%
      do while not rs.eof
%>
               <option value="<%=rs("anclassid")%>" <%if rs1("anclassid")=rs("anclassid") then%>selected<%end if%>><%=trim(rs("anclass"))%></option>
               <%
      rs.movenext
      loop
end if
      rs.close
%>
                  </select>
            小类：
            <select name="Nclassid" id="Nclassid" onChange="changelocation1(document.myform.Nclassid.options[document.myform.Nclassid.selectedIndex].value)">
            <%rs.open "select * from ssort where anclassid="&rs1("anclassid") ,conn,1,1

dim selclassid
      selclassid=rs("nclassid")
do while not rs.eof%>
            <option value="<%=rs("NclassID")%>" <%if rs1("nclassid")=rs("nclassid") then%>selected<%end if%>><%=rs("Nclass")%></option>
            <% rs.movenext
loop
      rs.close
      set rs = nothing
%>
            </select>

      品牌：
            <select name="pinpaiid">
            <%
set rsa=server.createobject("adodb.recordset")

rsa.open "select * from pinpai where nclassid="&rs1("nclassid") ,conn,1,1
if not(rsa.eof and rsa.bof) then

do while not rsa.eof%>
   <option value="<%=rsa("pinpaiid")%>" <%if rs1("pinpaiid")=rsa("pinpaiid") then%>selected<%end if%>><%=rsa("Nclass")%></option>
<% rsa.movenext
loop
end if
      rsa.close
      set rsa = nothing
%>
            </select>                               </p></td>问题补充：

产品名称是这样的调用的:
<td width="266" STYLE='PADDING-LEFT: 10px'class=tdbg> <a href=editproducts.asp?id=<%=rs("bookid")%>>
<% if len(trim(rs("bookname")))>20 then
response.write left(trim(rs("bookname")),18)&".."
else
response.write trim(rs("bookname"))
end if%>
</a></td>

请高手协一下，谢谢

星云主机 · 发表于 2011-12-24 13:27:33

为了不扰乱会员对源码的测试，有问题咨询右侧客服不要直接回复，否则视为非法信息屏蔽会员ID！

帮你顶一下
【特惠倒数21天】万网G1星云主机 99元/年！高速稳定！易备案！免费试用！
www.xingyunzhuji.com

		自动登录	找回密码
密码			会员注册