new.asp

与asp相关的技术 如数据库和网页设计 很有用的哦

<%
If Session("user_type")<>"T" Then
	Response.Redirect "../../../../index.asp"
End If
%>
	<%response.buffer=true%>
	<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
	<%
		dim sql,rs,lesson_id
		lesson_id=request("lesson_id")
		'将所有正式学生身份变成往届学生
		sql="update user_lesson set user_type='SP' where user_type='S' and lesson_id='" & lesson_id & "'"
		DB.Execute(sql)
		'将所有学生的身份确认改变
		sql="update user_lesson set permit=0 where lesson_id='" & lesson_id & "'"
		DB.Execute(sql)
		'将所有作业、练习、考试停止开放
		sql="update homework set open_flag=0 where lesson_id='" & lesson_id & "'"
		DB.Execute(sql)
		'将所有作业改成已批
		sql="update homework_answer set look_flag=1"
		DB.Execute(sql)
		db.close
		set db=nothing
		response.redirect "index.asp"
	%>