class2_ok.asp

狼道公司源码下载

<!--#include file="../Inc/Conn.asp" -->
<!--#include file="Check.asp" -->
<%
ID=Request("ID")
Title=Request("Title")
act=Trim(Request("act"))
OrderID=Request("OrderID")
ClassID1=Request("ClassID1")

select case lcase(act)
	case "mod"
		Set rs=server.CreateObject("adodb.recordset")
		rs.open "select * from Class2 where ID="&ID,Conn,3,3
		  rs("Title")=Title
		rs.update
		rs.close
		set rs=nothing  	
	case "add"
	    Set rs=Conn.Execute("select max(OrderID) from Class2 where ClassID1="&ClassID1)
		if not rs.eof and (not isnull(rs(0))) then
		  OrderID=Cint(rs(0))+1
		else
		  OrderID=1
		end if
	    rs.close

		rs.open "select * from Class2 where ID is null",Conn,3,3
		rs.addnew
		     rs("OrderID")=OrderID
		     rs("Title")=Title
			 rs("ClassID1")=ClassID1
		rs.update
		rs.close
		set rs=nothing  	
	case "order1"
	    Set rs=server.CreateObject("adodb.recordset")
		rs.open "select top 1 * from Class2 where OrderID<"&OrderID&" and ClassID1="&ClassID1&" order by OrderID desc",Conn,1,1
		ID1=rs("ID")
		OrderID1=rs("OrderID")
		rs.close
		set rs=nothing
		Conn.Execute("update Class2 set OrderID="&OrderID&" where ID="&ID1)
		Conn.Execute("update Class2 set OrderID="&OrderID1&" where ID="&ID)
	case "order2"
	    Set rs=server.CreateObject("adodb.recordset")
		rs.open "select top 1 * from Class2 where OrderID>"&OrderID&" and ClassID1="&ClassID1&" order by OrderID",Conn,1,1
		ID1=rs("ID")
		OrderID1=rs("OrderID")
		rs.close
		set rs=nothing
		Conn.Execute("update Class2 set OrderID="&OrderID&" where ID="&ID1)
		Conn.Execute("update Class2 set OrderID="&OrderID1&" where ID="&ID)
    case "del"
	   Conn.Execute("delete from Class2 where ID="&ID)
	   Set rs=server.CreateObject("adodb.recordset")
	   rs.open "select * from Class2 where ClassID1="&ClassID1&" order by orderID",Conn,3,3
	   cou=1
	   do while not rs.eof
	      rs("OrderID")=Cou
		  Cou=Cou+1
	   rs.movenext
	   loop
	   rs.close
	   set rs=nothing
end select
Conn.close
set Conn=nothing
Response.Redirect("Pro_Class.asp")
%>