bigclassdown.asp

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

<!--#INCLUDE FILE="Conn.asp" -->
<%

IF Session("KEY")<>"super"THEN
response.redirect "login.asp"
response.end
END IF

dim BigClassID
dim ID
ID=request("ID")
BigClassID=request("BigClassID")

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


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


response.redirect "BigClass.asp"
%>