<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Call iderror 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 where id="&request.QueryString("ID")&"" rs.Open sql, conn, 1, 3 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 %>
管理相册
 
 
当前位置：管理相册
在这里，您可以管理您的相册分类！
 
    添加图片
<% Set rs = server.CreateObject("adodb.recordset") sql = "select * from mj_photo_category where id="&request.QueryString("ID")&"" rs.Open sql, conn, 1, 1 If rs.EOF Then Call infoback("不存在此数据！") End If %> <% Call close_rs Call close_conn %>
分类名称： " size="40" /> 必填
分类排序： " size="10" /> 必填且必须为数字！
文章作者： checked="checked"<%end if%> />男主人 checked="checked" <%end if%>/>女主人
访问密码： " size="28" /> 留空则不需要密码直接可访问
相册墙纸： " size="40"/> 请输入照片图片地址，或直接上传。
关键字： " size="100" />
关键描述： " size="100" />
详细介绍： <% Dim oFCKeditor Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "fckeditor/" oFCKeditor.ToolbarSet = "Default" oFCKeditor.Width = "100%" oFCKeditor.Height = "200" oFCKeditor.Value = rs("mj_photo_category_content") oFCKeditor.Create "mj_photo_category_content" %>