<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
If request.Form("submit") = "确认添加" Then
If request.Form("mj_photo_category_name") = "" Then
Call infoback("请输入分类名称！")
End If
If request.Form("mj_photo_category_order") = "" or not isnumeric(request.Form("mj_photo_category_order")) Then
Call infoback("请输入排序数字，且必须为数字！")
End If
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from mj_photo_category"
rs.Open sql, conn, 1, 3
rs.addnew
rs("mj_photo_category_name") = request.Form("mj_photo_category_name")
rs("mj_photo_category_order") = request.Form("mj_photo_category_order")
rs("mj_photo_category_keywords") = request.Form("mj_photo_category_keywords")
rs("mj_photo_category_description") = request.Form("mj_photo_category_description")
rs("mj_photo_category_content") = request.Form("mj_photo_category_content")
rs("mj_uploadfile") = request.Form("mj_uploadfile")
rs("mj_photo_category_about") = request.Form("mj_photo_category_about")
rs("mj_photo_category_password") = request.Form("mj_photo_category_password")
rs.update
call close_rs
call close_conn
call infohref("相册分类添加成功！","mj_photo_category.asp")
End If
%>
相册分类
当前位置：相册分类
在这里，您可以管理您的相册分类！
管理相册分类
ID
分类名称
排序
导航调用地址
操作
<%
Set rs = server.CreateObject("adodb.recordset")
sql = "select * from mj_photo_category order by mj_photo_category_order asc"
rs.Open sql, conn, 1, 1
Do While Not rs.EOF
%>
