smallclassstart.asp

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

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

set rs=server.createobject("adodb.recordset")
sql="select * from SmallClass order by ID"
rs.open sql,conn,3,3
i=0
do while not rs.eof
i=i+1
rs("SmallClassID")=i
rs.update
rs.movenext
loop
rs.close
set rs=nothing

conn.close
set conn=nothing

response.redirect "SmallClass.asp"
%>