📄 к+

📁 我做的第一个学生管理系统
💻
字号:
<%
dim Pri
mkmc=request("mkmc")
Pri=CheckUrl(mkmc)
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<%
dim vserver
vServer="http://" & Request.ServerVariables("Server_name")
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>选择学生毕业管理 write by longZhiping</title>
<meta name="Microsoft Theme" content="sumipntg 011">
<meta name="Microsoft Border" content="tlb, default">
</head>

<BODY aLink=#990099 background=../../images/di2001.jpg bgColor=#ffffff link=#3333cc 
text=#808080 vLink=#666699>
<p><font face="隶书" size="7" color="#ff0000"><strong>选择学生毕业管理</strong></font> <br>
<IMG alt="Stripe1.gif (4224 字节)" height=2 src ="../../images/Stripe1.gif" width=744 ></p>
<object id="rds1" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" width="3"
height="3">
</object>
<!--mstheme-->
            <P><FONT color=indigo face="" 
            size=5><STRONG> (<FONT color=crimson 
face="">重要提示：</FONT>在运行本模块之前，确保其它用户没有使用学生管理系统，同时在处理中间不能断电！如能确信请输入毕业年级后按处理按钮。）</STRONG></FONT> 
            </P>
            <P><FONT color=indigo face="" 
            size=5><STRONG></STRONG></FONT>&nbsp; 
            </P>

            <P><FONT color=indigo face="" 
            size=5><STRONG>请输入要毕业学生的年级：
            <INPUT id=gradeno name=gradeno 
            style="HEIGHT: 27px; WIDTH: 108px"></STRONG></FONT>&nbsp;&nbsp;&nbsp;
            <FONT color=indigo face="" size=5><STRONG><input type="button" value="进行毕业处理" onclick="BeginGraduate()"
        style="BACKGROUND-COLOR: rgb(192,192,192); COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: medium; HEIGHT: 30px; WIDTH: 120px" height = 20 width = 30 id=button1 name=button1></STRONG></FONT> 
            </P>
<P> 
  
  
<P>&nbsp;</P>
<P><FONT color=indigo face="" size=5><STRONG>学生毕业处理状态：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp<INPUT id=graduate_status name=graduate_status 
style="HEIGHT: 27px; WIDTH: 262px"></STRONG></FONT></P>
  
  <script language="VBScript" > 
	'rds1.Server ="http://127.0.0.1/school"

    RDS1.Server = "http://<%=REQUEST.SERVERVARIABLES("SERVER_NAME")%>"
    RDS1.Connect="database=school;uid=sa;pwd=;dsn=school"
 '   RDS1.SQL =   "select  *    from     class" 
 '   RDS1.Refresh
   
</script>
<script language="VBScript">
sub BeginGraduate()

	if len(trim(gradeno.value))=0 then
		msgbox "请先输入学生要毕业的年级!"
		exit sub
	end if
	graduate_status.value= " 正在进行学生毕业合法性处理......!"
	if IsGraduated() then
		msgbox trim(gradeno.value)+"级学生已经毕业了!请另输入年级!"
		exit sub
	end if
	
	if not IsFindGrade() then
		msgbox "没有"+trim(gradeno.value)+"级学生的信息!请另输入年级!"
		exit sub
	end if
	
	if not IsCanGraduate() then
		msgbox trim(gradeno.value)+"级学生没有到达毕业时间不能毕业!请另输入年级!"
		exit sub
	end if
	
	graduate_status.value= " 正在进行学生学号库毕业处理......!"
	  if not xh_graduate() then
		 msgbox "进行学生学号库处理时出现错误!不能继续处理!请与系统管理员联系!"
		 exit sub
	  end if
    
    graduate_status.value= " 正在进行学生资料库毕业处理......!"
	  if not zb_graduate() then
	  	 msgbox "进行学生资料库处理时出现错误!不能继续处理!请与系统管理员联系!"
		 exit sub
	  end if
    	
     graduate_status.value= " 正在进行学生成绩库毕业处理......!"
	  if not cj_graduate() then 
		 msgbox "进行学生成绩库处理时出现错误!不能继续处理!请与系统管理员联系!"
		 exit sub
	  end if
	  
    graduate_status.value= " 正在对基本资料库删除毕业学生信息......!"
	  if not del_baseinfo() then 
		 msgbox "删除基本资料库毕业学生时出现错误!不能继续处理!请与系统管理员联系!"
		 exit sub
	  end if
	  
	graduate_status.value= " 正在对学号库删除毕业学生信息......!"
	if not del_student() then 
		 msgbox "删除学号库毕业学生时出现错误!不能继续处理!请与系统管理员联系!"
		 exit sub
	  end if
	  
	graduate_status.value= " 正在对成绩库删除毕业学生信息......!"
	if not del_score() then 
		 msgbox "删除成绩库毕业学生时出现错误!不能继续处理!请与系统管理员联系!"
		 exit sub
	  end if
	
    graduate_status.value= " 正在进行学生其它最后处理......!"
	
	if not other_graduate() then
		 msgbox "对毕业班级和毕业年级库处理时出现错误!不能继续处理!请与系统管理员联系!"
		 exit sub
	end if
    graduate_status.value= "祝贺您! 学生毕业全部成功处理完毕!"
    
    
end sub 


function IsGraduated() '检查此年级的学生是否已经毕业
	rds1.SQL = " select * from graduate_grade where  入学年度 = '"+trim(gradeno.value)+"'"
	rds1.ExecuteOptions = 1
	rds1.Refresh
	if rds1.Recordset.recordcount > 0 then
		IsGraduated = true
	else
		IsGraduated = FAlse
	end if
end function

function IsFindGrade() '检查有没有此年级的学生
	rds1.sql = "select * from class where year(入学年度)='"+trim(gradeno.value)+"'"
	rds1.ExecuteOptions = 1
	rds1.Refresh
	if rds1.Recordset.recordcount > 0 then
		IsFindGrade = true
	else
		IsFindGrade = FAlse
	end if
end function

function IsCanGraduate() '检查此年级的学生是否达到毕业的年限
	rds1.sql = "select * from class where year(getdate())-year('01/01/"+gradeno.value+"')>=学制"
	rds1.ExecuteOptions = 1
	rds1.Refresh
	if rds1.Recordset.recordcount > 0 then
		IsCanGraduate = true
	else
		IsCanGraduate = FAlse
	end if
end function

	
function xh_graduate() '把学号库即STUDENT表相应的信息转入毕业库中
	rds1.SQL = " select * into student"+trim(gradeno.value)+" from student "&_
			   " where 班号 in (select 班号 from class where year(入学年度)="+trim(gradeno.value)+")"		
	'msgbox rds1.sql
	rds1.ExecuteOptions = 1
	rds1.Refresh
	If Err.Number <> 0 Then
		xh_graduate =false
	else
		xh_graduate = true
	end if 
end function

function zb_graduate()'把基本资料库即BASEinfo表中相应的信息转入毕业库中
	rds1.SQL = " select * into baseinfo"+trim(gradeno.value)+" from baseinfo "&_
			   " where 班号 in (select 班号 from class where year(入学年度)='"+trim(gradeno.value)+"')"		
	rds1.ExecuteOptions = 1
	rds1.Refresh
	If Err.Number <> 0 Then
		zb_graduate =false
	else
		zb_graduate = true
	end if 

end function

function cj_graduate()'把成绩库即score表中相应的信息转入毕业库中
	rds1.SQL = " select * into score"+trim(gradeno.value)+" from score "&_
			   " where 学号 in (select 学号 from student "&_	
			   " where 班号 in (select 班号 from class where year(入学年度)='"+trim(gradeno.value)+"'))"		
	rds1.ExecuteOptions = 1
	rds1.Refresh
	If Err.Number <> 0 Then
		cj_graduate =false
	else
		cj_graduate = true
	end if 
end function

function del_baseinfo() '删除基本资料库的毕业学生信息
	rds1.SQL = " delete baseinfo "&_
			   " where 班号 in (select 班号 from class where year(入学年度)='"+trim(gradeno.value)+"')"	
	rds1.ExecuteOptions = 1
	rds1.Refresh
	If Err.Number <> 0 Then
		del_baseinfo =false
	else
		del_baseinfo = true
	end if 
end function

function del_student() '删除学号库毕业学生信息
	rds1.SQL = " delete student "&_
			   " where 班号 in (select 班号 from class where year(入学年度)='"+trim(gradeno.value)+"')"	
	rds1.ExecuteOptions = 1
	rds1.Refresh
	If Err.Number <> 0 Then
		del_student =false
	else
		del_student = true
	end if 
end function

function del_score() '删除成绩库中毕业学生信息
	rds1.SQL = " delete baseinfo "&_
	" where 学号 in (select 学号 from student "&_	
	" where 班号 in (select 班号 from class where year(入学年度)='"+trim(gradeno.value)+"'))"		
	rds1.ExecuteOptions = 1
	rds1.Refresh
	If Err.Number <> 0 Then
		del_score =false
	else
		del_score = true
	end if 
end function


function other_graduate() '在毕业班级库中增加毕业班级信息,同时毕业年级库中增加年级信息
	rds1.SQL=" insert graduate_class select * from class " &_
			 " where  year(入学年度)='"+trim(gradeno.value)+"'"
	rds1.ExecuteOptions = 1
	rds1.Refresh
	If Err.Number <> 0 Then
		other_graduate =false
		exit function
	end if
	
	'在班级库中删除已毕业的班级信息
	rds1.SQL=" delete class " &_
			 " where  year(入学年度)='"+trim(gradeno.value)+"'"
	rds1.ExecuteOptions = 1
	rds1.Refresh
	If Err.Number <> 0 Then
		other_graduate =false
		exit function
	end if
	
	'在毕业年级库中增加已毕业年级信息
	rds1.SQL=" insert graduate_grade values('"+cstr(year(now()))+"','"+trim(gradeno.value)+"')"
	'msgbox rds1.sql
	rds1.ExecuteOptions = 1
	rds1.Refresh
	If Err.Number <> 0 Then
		other_graduate =false
		exit function
	end if
	other_graduate = true

end function
	 
</script>
<p align="right"><a href="../毕业生管理.asp"><img src="../../images/fh1.gif" border="0" alt="返回毕业生管理"></a></p>
</BODY>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -