initsysaction.asp

来自「一套完整的学生课程管理系统」· ASP 代码 · 共 34 行

<!-- #include file="utility/checkAdmin.asp" -->

<%
	'****************************************
	'目的：			初始化系统
	'开始时间：		2005-6-3 18:24
	'最后修改时间：	22005-6-3 18:24
	'编写人：		某某某
	'****************************************
	
	'定义相关变量
	dim sql				
	dim rs
	
	'删除教师信息
	sql = "delete from teacher where tFlag <> '管理员' "
	ExecuteNonquery(sql)
	
	'删除学生信息
	sql = "delete from student"
	ExecuteNonQuery(sql)
	
	'删除学生间的消息
	sql = "delete from message"
	ExecuteNonQuery(sql)
	
	'删除公告信息
	sql = "delete from notice"
	ExecuteNonQuery(sql)
	
	Alert("信息初始化完毕，请继续操作！")
	Go("welcome.htm")
	
%>