<% Sub Head() Response.Write ""&_ "

相册分类
分类管理 | 添加分类

" End Sub action=Request("action") Select Case action Case "add" Call add() Case "save" Call save() Case "edit" Call edit() Case "editsave" Call editSave() Case "del" Call del() Case else Call show() End Select %> <% Sub save() category=RequestFormStr("category") cindex=RequestFormNum("cindex") If category="" Then Call MessageBox("请输入分类名称!","") Response.End End If set rs=Server.CreateObject("ADODB.Recordset") sql="select * from photocategory" rs.open sql,conn,1,3 rs.addnew rs("category")=category rs("cindex")=cindex rs.update rs.close Call MessageBox("添加相册分类成功!","photocategory.asp") End Sub Sub editSave() id=RequestFormNum("id") If id<>0 then category=RequestFormStr("category") cindex=RequestFormNum("cindex") set rs=Server.CreateObject("ADODB.Recordset") sql="select * from photocategory Where id="& id &"" rs.open sql,conn,2,3 If Not rs.eof then rs("category")=category rs("cindex")=cindex rs.update End If rs.close Call MessageBox("修改相册分类成功!","photocategory.asp") End If End Sub 'del Sub del() id=RequestQueryNum("id") If id<>0 Then conn.Execute("delete From photo Where categoryid="& id &"") conn.Execute("delete From photocategory Where id="& id &"") Call MessageBox("删除成功!","photocategory.asp") End If End Sub Sub show() sql="Select * From photocategory Order by id desc" Set mypage=new xdownpage '创建对象 mypage.getconn=conn '得到数据库连接 mypage.getsql=sql mypage.pagesize=20 '设置每一页的记录条数据为5条 set rs=mypage.getrs() '返回Recordset 'Set rs=conn.Execute("Select * From photocategory Order by id desc") %> <% for i=1 to mypage.pagesize If rs.eof Then Exit for End If %> <% rs.MoveNext Next %>

相册分类
编号	类名	排序	操作
<%=rs("id")%>	"><%=rs("category")%>	<%=rs("cindex")%>	">编辑 )">删除
<%mypage.showpage() %>

<% End Sub Sub add() %>

添加相册分类
分类名称：

<% End Sub Sub edit() id=RequestQueryNum("id") Set rs=conn.Execute("Select * From photocategory Where id="& id &"") If Not rs.eof Then %>

修改相册分类
分类名：	" size=20 style="width:150">
密码：	" size=20 style="width:150">(设置密码后,只有输入密码才能在您主页上查看此分类的照片 )
排序：	" style="width:150">(0表示系统默认排序)

<% End If End Sub %>