stumenu.asp

功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除 4.直接修改 5.可以批量删除 6.可以直接GO到达你想到达的页

<style type="text/css">
<!--
.style1 {
	color: #FFFFFF;
	font-size: 12px;
}
-->
</style>


<table width="768" 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" then
response.write("<a id=history.back href='checklogin.asp'>成绩查询首页</a>")
else
response.write("&nbsp;")
end if
%></td>
    <td width="100" align="center">&nbsp;</td>
    <td width="100" align="center">&nbsp;</td>
    <td width="100" align="center">&nbsp;</td>
    <td width="100" align="center">&nbsp;</td>
    <td width="100" align="center">&nbsp;</td>
    <td width="100" align="center">&nbsp;    </td>
    <td width="100" align="center"><a href="logout.asp">退出</a></td>
  </tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="1">
<tr><td width="668" height="25" bgcolor="#A0A4AC">当前学号：[<span class="style1"><%= session("user") %></span>]&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.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from user where xh='"&xh&"' and mm='"&mm&"'"
rs.open sql,conn,3,3
%>
</td><td colspan="2" bgcolor="#A0A4AC">
  <div align="center">
      <%
response.write "<a href='stupuser.asp?id="&rs("id")&"'>修改资料</a>"
%>
  </div></td>
</tr>
<tr><td colspan="2">
<table width="600" height="25" border=1 align=left cellpadding="0" cellspacing="0" bordercolor="#EFEFEF">
<tr><td height="25" bgcolor="#A0A4AC">
&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">&nbsp;</td><td colspan="4">&nbsp;家庭地址：<%=rs("addr")%>&nbsp;</td></tr></table>
</td></tr>
</table>

<%
set conn=nothing
set rs=nothing
end if
%>