<% dim cls if session("admin")="" then Response.Redirect("index.asp?err=4") else if session("flag")<>"0" then cls = Instr(session("flag"), "case") 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 CaseMain 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 cclass where parentid=0 and gb='"&gb&"' order by id asc" rs.open sql,conn,3,1 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 %> (*所属模块必须选择最底层目录分类) 名　　称  *不能使用特殊符号和空格比如：& % ? ' 型号 国家 方案缩略图 图片尺寸  宽  高 * 服务器安装aspjpeg组件，系统将自动获得图片的长宽。 产品简单说明 1.在以下编辑框要换行的话请按 Shift+Enter 组合键 日期 是否推荐 否 是