smallclassup.asp

一个不错的代码 一个不错的代码 一个不错的代码

<!--#include file="Conn.ASP"-->
<%
IF Session("KEY")<>"super"THEN
response.redirect "login.asp"
response.end
END IF

dim SmallClassID
dim ID
ID=request("ID")
SmallClassID=request("SmallClassID")

set rs=server.createobject("adodb.recordset")
sql="select * from SmallClass where SmallClassID="&SmallClassID
rs.open sql,conn,3,3
rs("SmallClassID")=rs("SmallClassID")-1
rs.update
rs.close
set rs=nothing


set rs=server.createobject("adodb.recordset")
sql="select * from SmallClass where SmallClassID="&SmallClassID-1&" and ID<>"&ID
rs.open sql,conn,3,3
rs("SmallClassID")=rs("SmallClassID")+1
rs.update
rs.close
set rs=nothing


response.redirect "SmallClass.asp"
%>