lrusa.asp

学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.

<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
}
body {
	background-image: url(../Image/bg.gif);
}
-->
</style><%
call RusPer("Lon")
sub RusPer(Lon)
Set hdobj = Server.CreateObject("HD.comOpen")
Connkaa=hdobj.WeekaaConn()
IDD=request.QueryString("ID")

Set rc = Server.CreateObject("ADODB.RecordSet")
sqlc = "Select * From [StuRus] where a='"&IDD&"' order by c,tim asc"
rc.Open Sqlc,Connkaa,1,3

response.write "<table width='500' align='center' border='1' cellspacing='0' cellpadding='0' bordercolor='#E8E8E8' bgcolor='#FFFFFF'>"
response.write "<tr align='center' height='25'><td>学期</td><td>课程</td><td>类别</td><td>成绩</td></tr>"

do while not rc.eof
rcID=rc("ID")
rca=rc("a")
rcb=rc("b")
rcc=rc("c")
rcd=rc("d")
rce=rc("e")
rcf=rc("f")
rcg=rc("g")
 
response.write "<tr align='center' height='25'><td width='100'>"&rcc
response.write "</td><td  width='200'>"&rcd
response.write "</td><td  width='100'>"&rcg
response.write "</td><td  width='100'>"&rcf
response.write "</td></tr>"
  



rc.movenext
loop
response.write "</table>"
end sub
%>