<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% If request.Form("submit") = "确认添加" Then If request.Form("mj_article_category_name") = "" Then Call infoback("请输入分类名称!") End If If request.Form("mj_article_category_order") = "" or not isnumeric(request.Form("mj_article_category_order")) Then Call infoback("请输入排序数字,且必须为数字!") End If Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_article_category" rs.Open sql, conn, 1, 3 rs.addnew rs("mj_article_category_name") = request.Form("mj_article_category_name") rs("mj_article_category_parent") = request.Form("mj_article_category_parent") rs("mj_article_category_order") = request.Form("mj_article_category_order") rs("mj_article_category_keywords") = request.Form("mj_article_category_keywords") rs("mj_article_category_description") = request.Form("mj_article_category_description") rs("mj_article_category_content") = request.Form("mj_article_category_content") rs.update call close_rs call close_conn call infohref("文章分类添加成功!","mj_article_category.asp") End If %>
管理分类
 
 
当前位置:管理分类
在这里,您可以管理现有文章分类和添加新的分类
 
    管理文章分类
<% Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_article_category where mj_article_category_parent = 0 order by mj_article_category_order asc" rs.Open sql, conn, 1, 1 Do While Not rs.EOF %> <% Set rss = server.CreateObject("adodb.recordset") sql = "select * from mj_article_category where mj_article_category_parent = "&rs("ID")&" order by mj_article_category_order asc" rss.Open sql, conn, 1, 1 Do While Not rss.EOF %> <% rss.movenext Loop rss.close set rss = nothing rs.movenext Loop Call close_rs %>
ID 分类名称 排序 导航调用地址 操作
<%=rs("ID")%> <%=rs("mj_article_category_name")%> <%=rs("mj_article_category_order")%> ">class.asp?id=<%=rs("ID")%> [">修改] [" onclick="return confirm('确定要删除此分类吗?并且此分类下的所有文章也将会被删除!删除后将不可恢复!')">删除]
    管理文章分类
分类名称: 必填
分类排序: 必填且必须为数字!
关键字:
关键描述:
详细介绍: <% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "fckeditor/" oFCKeditor.ToolbarSet = "Default" oFCKeditor.Width = "100%" oFCKeditor.Height = "260" oFCKeditor.Value = "" oFCKeditor.Create "mj_article_category_content" %>