<% dim count set rs=server.createobject("adodb.recordset") rs.open "select * from sorts order by sortsorder ",conn,1,1%>
添加新商品
选择分类：
<% rs.open "select * from category order by categoryorder",conn,1,1 if rs.eof and rs.bof then response.write "请先添加商品大类。" response.end else %>
"><%=trim(rs("category"))%>
<% dim selclass selclass=rs("categoryid") rs.movenext do while not rs.eof %>
"><%=trim(rs("category"))%>
<% rs.movenext loop end if rs.close %>
小类：
<%rs.open "select * from sorts where categoryid="&selclass ,conn,1,1 if not(rs.eof and rs.bof) then %>
"><%=rs("sorts")%>
<% rs.movenext do while not rs.eof%>
"><%=rs("sorts")%>
<% rs.movenext loop end if rs.close rs.open "select * from TimesProList",conn,1,1 %>
商品名称
品牌
<% Call EnumTypeInfo ("tpp") %>
商品编号
商品价格
市场价1：
元， Cars51价：
元， 一钻价：
元， 二钻价:以此价为准
,三钻价:
, 四钻价:
, 赠送积分：
分
库存情况
共 上：
件， 库 存：
件
材质：
产地：
毛重：
尺寸：
商品介绍
商品类别
普通商品
推荐商品
特价商品
新品上架
推荐特价
推荐新品
新品特价
赠送礼品
<% rs.close set rs = nothing conn.Close set conn = nothing %>
汽车车型大全
全部车型
<% Call SetConn () sql9 = "Select * From small Order by classid,catalogid" Set objTemp9 = Conn.Execute (sql9) Do while not objTemp9.Eof %>
" type="checkbox" value="<% = objTemp9 ("sID") %>">
(<% = objTemp9 ("sID") %>)
<% = objtemp9("class") %>| <% = objTemp9 ("catalog") %>|<% = objTemp9 ("sname") %>
<% objTemp9.MoveNext Loop objTemp9.Close Set objTemp9 = Nothing 'Call ClearConn () %>