smallclassstart.asp

来自「综合信息管理系统」· ASP 代码 · 共 25 行

<!--#INCLUDE FILE="Conn.asp" -->
<%
IF Session("KEY")="input" THEN
response.write "<script>alert('您无权执行该项操作！');history.go(-1);</Script>"
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"
%>