bigclassview.asp

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

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

dim BigClassView
dim ID
ID=request("ID")
BigClassView=request("BigClassView")
if BigClassView<>1 then
BigClassView=0
end if


set rs=server.createobject("adodb.recordset")
sql="select * from BigClass where ID="&ID
rs.open sql,conn,3,3
rs("BigClassView")=BigClassView
rs.update
rs.close
set rs=nothing

conn.close
set conn=nothing

response.redirect "bigClass.asp"
%>