<% dim cls if session("admin")="" then Response.Redirect("index.asp?err=4") else if session("flag")<>"0" then cls = Instr(session("flag"), "prod") if cls <= 0 then %> <% end if end if end if %>

当前位置: 网站管理中心--产品管理

产品列表 | 类别管理 <% if v<>1 then %>| 批量复制<%end if%>

<% '默认自动编号，查出序号最大的+1即可 'Powered By SEEK at 9:35 2006-2-14 dim sql,rs,cid sql = "select top 1 xuhao from ProdMain where gb='"& request("gb") &"' order by xuhao desc" set rs = conn.execute(sql) if rs.eof then cid = 1 else cid = cint(rs(0))+1 end if rs.close set rs = nothing %> 排序号 (排序，只能输入数字) 选择语言 <% if request("gb")="en" then select2="selected" else select1="selected" end if %> value="ch"><%= lang_1 %> value="en"><%= lang_2 %> 选择类别 <% dim first dim i set rs=server.CreateObject("adodb.recordset") sql="select * from pclass where parentid=0 and gb='"&gb&"' order by id asc" rs.open sql,conn,3,1 if rs.bof then response.Write("") %> 暂时没有分类 <% else first=rs.GetRows() rs.close set rs=nothing if(ubound(first,1)<0) then %> 暂时没有分类 <%end if for i=0 to ubound(first,2) %> ><%=first(1,i)%> <% response.Write(Downasp.getDownlist(first(0,i),"")) next end if %> (*所属模块必须选择最底层目录分类) 名　　称  *不能使用特殊符号和空格比如：& % ? ' 型 号 价 格 缩略图 大图 产品大图2 产品大图3 产品大图4 产品大图5 产品大图6 上传资料： 新品(仅会员可见) 否 是 推荐(首页) 否 是 摘要 1.在以下编辑框要换行的话请按 Shift+Enter 组合键 2.如果您的文字内容是从别的地方复制过来，最好先将其复制到windows的记事本中，这样可以清除别人网站上的格式。 3.将鼠标移到编辑框的工具按钮上时，会显示这个按钮的功能，如：第三行的第一个按钮就是添加图片到文本中的功能。 标题文字 关键字 描述文字