<% dim scid,bcid,id id=trim(request("id")) scid=trim(request("scid")) bclassid=trim(request("bcid")) if bclassid<>"" then Set pro_b = Server.CreateObject("ADODB.Recordset") sqlb="select BigClassName from BigClass where BigClassID="&bclassid pro_b.open sqlb,conn,1,1 bclass=pro_b("BigClassName") pro_b.close set pro_b=nothing else bclass="" end if if scid<>"" then Set pro_c = Server.CreateObject("ADODB.Recordset") sql="select SmallClassName,BigClassName,sclassimg from SmallClass where SmallClassID="&scid pro_c.open sql,conn,1,1 sname=pro_c("SmallClassName") bname=pro_c("BigClassName") simg=pro_c("sclassimg") pro_c.close set pro_c=nothing else sname="" bname="" end if sql="select * from Product where id="&id set rs=Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %>
    <% Set proxl = Server.CreateObject("ADODB.Recordset") sql="select SmallClassName,SmallClassID from SmallClass order by SmallClassID" proxl.open sql,conn,1,1 do while not proxl.eof %> <% if proxl("SmallClassName")=rs("SmallClassName") then %>
  • <%=proxl("SmallClassName")%>
  • <% else %>
  • " class="ny_smenu"><%=proxl("SmallClassName")%>
  • <% end if %> <%proxl.movenext loop proxl.close set proxl=nothing %>
<%=rs("Content")%>