www.gusucode.com > 25175 学生成绩管理查询系统码程序 > ADMIN/admin_bjb.asp

    <!-- #include file="../config.asp" -->
<!-- #include file="../conn.asp" -->
<!-- #include file="inc.asp" -->
<%
Call admin_log
'====================================================================
'25175成绩查询管理系统
'powered by 25175
'=-------------------------------------------------------------------
'= 文件名称：admin_bjb.asp
'= 摘    要：单信息添加文件
cj_webtit="后台管理首页 - 班级管理"
cj_webmap="<a href=admin.asp class=Class>后台管理首页</a> - 班级管理"

'= 最后日期：2006-3.1
'====================================================================
%>
<!-- #include file="admin_top.asp" -->
<BR>
			<table width="742" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#F0F0F0">
				<tr align="center">
					<td width="96">ID</td>
					<td width="96">年级</td>
					<td width="96">班级</td>
					<td width="96">主学号</td>.
					<td width="96">班主任</td>
					<td width="96">操作</td>
				</TR>
				<%
				sqlad="select xhf,lj,bj,ljb_id,bjb.id,admin_id from bjb,ljb where bjb.ljb_id=ljb.id order by bjb.id"
				rs.open sqlad,conn,1,1
				do while not (rs.EOF or rs.BOF)
				%>
				<tr align=center>
					<td><%=rs(4)%></td>.
					<td><%=rs(1)%></td>
					<td><%=rs(2)%></td>
					<td><%=rs(0)%>&nbsp;</td>
					<td>
					<%
					If rs(5)<>0 Then 
					set rsbj=server.createobject("adodb.recordset")
					sqlbj="select userxm,id from admin where id="&rs(5)
					rsbj.open sqlbj,conn,1,1
						If rsbj.eof Then
							admin_bj_xm="无管理员"	
						Else 
							admin_bj_xm=rsbj(0)
							admin_bj=rsbj(1)
						End If
					Else 
						admin_bj_xm="无管理员"
					End If 
					response.write admin_bj_xm
					%>
					</td>
					<td>
							<a href="updata.asp?kind=bj&id=<%=rs("id")%>&lj=<%=rs("lj")%>" title="<%=rs("xhf")%>">修改
							</a>
							<a href="admin_del.asp?type=user&id=<%=rs("id")%>&kind=bjb">删除
							</a>
					</td>
				</TR>
				<%
				rs.movenext
				loop
				rs.Close 
				set rs=nothing
				set conn=nothing
					%>
			</table>
			

<!-- #include file="../inc/copyright.asp" -->