smallclassdown.asp

来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 32 行

<!--#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"
%>