%@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
%>
管理分类
当前位置:管理分类
在这里,您可以管理现有文章分类和添加新的分类!
管理文章分类
ID
分类名称
排序
导航调用地址
操作
<%
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
%>