stumenu.asp

这是个用ASP写的学生成绩管理系统! 个人感觉还可以!希望大家多提意见!

<table width="768" height="25" align="center" cellpadding="0" cellspacing="0" class="unnamed_rld2">
  <tr bgcolor="#EEEEEE">
    <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%>
    onMouseOut="this.bgColor='#eeeeee';"  onMouseOver="this.bgColor='#ffffff';"
    <%end if%>
    >
<%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" onMouseOut="this.bgColor='#eeeeee';"  onMouseOver="this.bgColor='#ffffff';"><a href="stusearch.asp">成绩分类查询</a></td>
    <td width="100" align="center" onMouseOut="this.bgColor='#eeeeee';"  onMouseOver="this.bgColor='#ffffff';"><a href="liuyan_student.asp?xh=<%= session("user") %>">留言板</a></td>
    <td width="100" align="center" onMouseOut="this.bgColor='#eeeeee';"  onMouseOver="this.bgColor='#ffffff';"><a href="logout.asp">退出</a></td>
  </tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>当前学号：[<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("#sp25175_class.asp")
sql="select * from user where xh='"&xh&"' and mm='"&mm&"'"
set rs=conn.execute(sql)
%>
</td><td align="right">


</td><td width="25">　</td></tr>
<tr><td colspan="3">
<table height="25" width= 100% border=1 align=left cellpadding="0" cellspacing="0" class="unnamed_rld2" bordercolor="#eeeeee">
<tr>
  <td height="25"><strong>学生相关信息：</strong></td>
  <td height="20">&nbsp;</td>
  <td>&nbsp;</td>
  <td>地址：<%=rs("addr")%></td>
  <td>&nbsp;</td>
  <td rowspan="3" align=center width=60 height=60></td>
</tr>
<tr><td width=15% height="25"></td>
<td height="20">班级：<%=rs("bj")%>&nbsp;&nbsp;</td>
<td>姓名：<%=rs("xm")%>&nbsp;&nbsp;</td>
<td>性别：<%=rs("sex")%>&nbsp;&nbsp;</td>
<td>邮编：<%=rs("yb")%>&nbsp;&nbsp;</td>
</tr>

<tr><td>

<table border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
  <table border="0" cellpadding="0" cellspacing="0">
    <form action="stulook.asp" method="post" name="form1">
    <tr><td>
              <input type="hidden" name="xh" value="<%=request("xh")%>">
              <input name="submit" type="submit" value="查询全部成绩">
              <input name="al" type=hidden value="1"></td>
    </tr></form>
  </table></td>
  </tr>
</table>

</td><td colspan="4">
<%
response.write "<a href='stupuser.asp?id="&rs("id")&"'><font color=red>[</font>&nbsp;修改资料&nbsp;<font color=red>]</font></a>"
%>
</td></tr></table>
<%
end if
%>
</td></tr>
</table>