%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write ""
response.End
end if
call flagstr("产品管理","../error.htm")
%>
产品类别管理
类别管理
分类名称
分类排序
模板路径
确定操作
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from category2 order by categoryorder",conn,1,1
dim follows
if rs.EOF and rs.BOF then
response.Write "
还没有分类"
follows=0
else
do while not rs.EOF
%>
<%rs.MoveNext
loop
follows=rs.RecordCount
end if%>