stumenu.asp

学生成绩管理系统

<table><table width="752" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td width="45%" 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("class_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 width="25%" 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 width="10%" 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="10%" align="center"><a href="liuyan.asp?xh=<%= session("user") %>"><font color=red>[</font>&nbsp;留言板&nbsp;<font color=red>]</font></a></td>
    <td width="10%" align="left"><a href="logout.asp"><font color=red>[</font>&nbsp;退出&nbsp;<font color=red>]</font></a></td></tr>
<tr></table>
<table height="25" width="752" border=1 align=center cellpadding="0" cellspacing="0" class="unnamed_rld2" bordercolor="#eeeeee">
<tr><td width=15%>&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></td><td colspan="4">&nbsp;家庭地址：<%=rs("addr")%>&nbsp;</td></tr></table>
<%
set conn=nothing
set rs=nothing
end if
%>
</td></tr>
</table>
</table>