类别管理

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '**************************************************************** '** 版权所有：烈火工作室演示网站http://www.strongfire.cn ** '** QQ:839225572 邮箱：strongfire2008@163.com ** '** 非正版用户不得擅自非法修改用于商业用途！查出必究。 ** '**************************************************************** %> 类别管理 <% dim sql,rsClass,rsSmallClass,ErrMsg set rsClass=server.CreateObject("adodb.recordset") rsClass.open "Select * From Class",conn,1,3 %>

添加类别

<%do while not rsClass.eof%> <% rsClass.movenext loop %>

栏目名称	ID号	操作选项
<%=rsClass("ClassName")%>	<%=rsClass("ID")%>	\| ">修改 \| "onClick="return ConfirmDelBig();">删除

<% rsClass.close set rsClass=nothing %>