stumenu.asp

学生成绩管理系统 :功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页 7.分页显示 后台

<table width="100%" height="25" border="0" align="center" cellpadding="0" cellspacing="1" class="unnamed_rld2">
  <tr bgcolor="#A0A4AC">
    <td width="100" height="25" align="center"><%
if right(request.ServerVariables("SCRIPT_NAME"),14)<>"checklogin.asp" and right(request.ServerVariables("SCRIPT_NAME"),12)<>"register.asp" then
response.write("<a id=history.back href='checklogin.asp'>成绩查询首页</a>")
else
response.write("")
end if
%>
</td>
    <td width="100" align="center"></td>
    <td width="100" align="center"></td>
    <td width="100" align="center"></td>
    <td width="100" align="center"></td>
    <td width="100" align="center"></td>
    <td width="100" align="center"><a href="liuyan.asp?xh=<%= session("user") %>">留言板</a></td>
    <td width="100" align="center"><a href="logout.asp">退出</a></td>
  </tr>
</table>

<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr bgcolor="#A0A4AC"><td height="25">当前学号：[<font color=red><%= session("user") %></font>]&nbsp;&nbsp;用户密码：
<%
for i=1 to len(session("pwd"))
response.write("*")
next
%>
<%if define="1" then%>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("#25175class_cj.asp")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from user where xh='"&xh&"' and mm='"&mm&"'"
rs.open sql,conn,3,3
%>
</td>
<td align="right">
<%
response.write "<a href='stupuser.asp?id="&rs("id")&"'><font color=red>[</font>&nbsp;修改资料&nbsp;<font color=red>]</font></a>"
%></td><td width="25">&nbsp;</td>
</tr>
<tr><td colspan="3">
<table width= 100% border=1 align=left cellpadding="0" cellspacing="0" class="unnamed_rld2" bordercolor="#eeeeee">
<tr><td width=15% height="25">&nbsp;学生相关信息：</td>
<td width=>&nbsp;班级：<%=rs("bj")%>&nbsp;&nbsp;</td>
<td width=>&nbsp;&nbsp;姓名：<%=rs("xm")%>&nbsp;&nbsp;</td>
<td width=>&nbsp;&nbsp;性别：<%=rs("sex")%>&nbsp;&nbsp;</td>
<td width=>&nbsp;&nbsp;邮编：<%=rs("yb")%>&nbsp;&nbsp;</td></tr>
<tr><td height="25"></td>
<td colspan="4">&nbsp;家庭地址：<%=rs("addr")%>&nbsp;</td></tr></table>
<%
set conn=nothing
set rs=nothing
end if
%>
</td>
</tr>
</table>