funoutput.asp

做的一个毕业设计（学生档案管理系统）

<%
Function fun_resinfo()
Dim sem_id,type_id
sem_id = che(request("sem_id"))
If Not IsNumeric(sem_id) Then sem_id=0
type_id = che(request("type_id"))
If Not IsNumeric(type_id) Then sem_id=0
action = che(request("action"))
fun_resinfo = "<SCRIPT LANGUAGE=""JavaScript"">" &_
"	function check_listinfo(){" &_
"	var check_sem=$sel(""sem_id"").value;" &_
"	var check_type=$sel(""type_id"").value;" &_
"	var gotourl=""?action=check"";" &_
"	gotourl+=""&sem_id=""+check_sem+""&type_id=""+check_type;" &_
"	window.location.href=gotourl;}" &_
"</SCRIPT>" &_
"	<h5>成绩查询</h5>"&_
"	<div class='sma_tit'>"&_
"	<B>分类列表：</B>学&nbsp;&nbsp;&nbsp;&nbsp;期 <SELECT NAME='sem_id'>"&sem_select(sem_id)&_
"</SELECT> <SPAN id=""sem_id_txt""></SPAN> "&_
"	考试类别 <SELECT NAME='type_id'></SELECT> "&_
"<SPAN id='type_id_txt'></SPAN>&nbsp;"&_
"<INPUT TYPE='button' value=' 切 换 ' onclick='check_listinfo();' class='buttons'></div>"&_
"		<table cellspacing='1' cellpadding='0' width='95%' align='center' border=0 class='tab'>"&_
"	  <tr align='center'> "&_
"			<td width='15%' class='art_tit'>课程</td>"&_
"			<td width='15%' class='art_tit'>成绩</td>"&_
"			<td width='15%' class='art_tit'>备注</td>"&_
"			<td width='15%' class='art_tit'>名次</td>"&_
"	  </tr>"
If action="check" Then 
Dim rs_resinfo
	Dim rs_i
	Sql_Conditions="a.cla_id="&user25175(7)&" and a.sem_id="&sem_id&" and a.type_id="&type_id&" and a.stu_id="&user25175(0)&" and a.cou_id=b.id"
	sql=Sqlinfo("a.id,res_in,a.res_con,a.mc,b.cou","res_info as a ,res_cou as b",Sql_Conditions,"","","")
	rs_resinfo = connopen(sql)
		If IsArray(rs_resinfo) Then
			Dim my_temp_nowres
			my_temp_nowres=0
			For rs_i=0 To UBound(rs_resinfo,2)
			fun_resinfo = fun_resinfo & "<tr align=""center"">"&_
				"<td class=""art_info2"">"&rs_resinfo(4,rs_i)&"</td>"&_
				"<td class=""art_info2"">"&rs_resinfo(1,rs_i)&"</td>"&_
				"<td class=""art_info2"">"&rs_resinfo(2,rs_i)&"</td>"&_
				"<td class=""art_info2"">"&rs_resinfo(3,rs_i)&"</td>"&_
				"</tr>"
			my_temp_nowres=CSng(my_temp_nowres)+CSng(rs_resinfo(1,rs_i))
			Next
			fun_resinfo = fun_resinfo & "<tr><td width='100%' height='100' colspan='4' align='center' class=""art_info2"">&nbsp;&nbsp;当前总分："&my_temp_nowres&"&nbsp;&nbsp;当前平均分："&Round(my_temp_nowres/(rs_i),2)&"</td></tr>"
		Else 
			fun_resinfo = fun_resinfo & "<tr><td width='100%' height='100' align='center' colspan='4' class=""art_info2"">当前列表为空</td></tr>"
	End If
Else 
	fun_resinfo = fun_resinfo & "<tr><td width='100%' height='100' align='center' colspan='4' class=""main_info"">请切换学期与考试类别！</td></tr>"
End If
fun_resinfo = fun_resinfo & "</table>"&_
"<script language=""JavaScript"">"&_
"postinfos(""actions=res_type&lj_id="&user25175(4)&""",""admin/admin_res_check.asp"","""",""type_id"");"&_
"	function checkdef(strtypes){"&_
"	if (strtypes==""type_id""){"&_
"		setSel2("""&type_id&""",$val(""type_id""));"&_
"	}}"&_
"</script>"
End Function




%>