www.gusucode.com > 25175 学生同学录管理系统 2007 build 1231D源码程序 > inc/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>学 期 <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> "&_ "<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""> 当前总分:"&my_temp_nowres&" 当前平均分:"&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 %>