downclass_ok.asp

狼道公司源码下载

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

select case act    
   case "mod"
      Set rs=server.CreateObject("adodb.recordset")
	  rs.open "select * from DownClass where ID="&ID,Conn,3,3
	    rs("Title")=Title
		rs("EnTitle")=EnTitle
	  rs.update
	  rs.close
	  set rs=nothing
   case "del"
      Conn.Execute("Delete from DownClass where ID="&ID)
	  set rs=server.CreateObject("adodb.recordset")
	  rs.open "select * from DownClass order by orderid",Conn,3,3
	  i=1
	  do while not rs.eof
	     rs("OrderID")=i
		 i=i+1
		 rs.movenext
	  loop
	  rs.close
	  set rs=nothing
   case "add"
      Set rs=server.CreateObject("adodb.recordset")
	  rs.open "select * from DownClass Where ID is null",Conn,3,3
	  
	  rs.addnew
	    rs("Title")=Title
		rs("EnTitle")=EnTitle
		rs("OrderID")=-100
	  rs.update
	  rs.close
	  set rs=nothing
	  
	  set rs=server.CreateObject("adodb.recordset")
	  rs.open "select * from DownClass order by orderid",Conn,3,3
	  i=1
	  do while not rs.eof
	     rs("OrderID")=i
		 i=i+1
		 rs.movenext
	  loop
	  rs.close
	  set rs=nothing	  
   Case "order1"
      Set rs=server.CreateObject("adodb.recordset")
	  rs.open "select top 1 ID,OrderID from DownClass Where OrderID<"&OrderID&"  Order by OrderID desc",Conn,1,1
	  if not rs.eof then
		  OrderID1=rs("OrderID")
		  ID1=rs("ID")
		  rs.close
		  set rs=nothing
		  Conn.execute("Update DownClass  Set OrderID="&OrderID1&" where ID="&ID)
		  Conn.execute("Update DownClass  Set OrderID="&OrderID&" where ID="&ID1)   	 
	  end if
   Case "order2"
      Set rs=server.CreateObject("adodb.recordset")
	  rs.open "select top 1 ID,OrderID from DownClass Where OrderID>"&OrderID&" Order by OrderID",Conn,1,1
	  if not rs.eof then
		  OrderID1=rs("OrderID")
		  ID1=rs("ID")
		  rs.close
		  set rs=nothing
		  Conn.execute("Update DownClass  Set OrderID="&OrderID1&" where ID="&ID)
		  Conn.execute("Update DownClass  Set OrderID="&OrderID&" where ID="&ID1)   	
	  end if
end select   

Response.Redirect("DownClass.asp")
%>