rom cjxx order by cjxx_id desc"
set rs=db.execute(strsql)
%>
<table border="1" align="center" cellspacing="1">
<tr>
<td colspan="4"><div align="right">欢迎管理员的光临!</div></td>
<td colspan="5"><div align="center" class="style1">成绩信息在线</div> <div align="center"></div></td>
<td><a href="glyqx.asp">返回上一级</a></td>
<td><a href="index.htm">首页</a></td>
</tr>
<tr>
<td><div align="center">学号</div></td>
<td><div align="center">姓名</div></td>
<td><div align="center">性别</div></td>
<td><div align="center">所在系名</div></td>
<td><div align="center">所在班级</div></td>
<td><div align="center">课程名</div></td>
<td><div align="center">成绩</div></td>
<td><div align="center">若有补考科目可填下表</div></td>
<td>课程名</td>
<td><div align="center">成绩</div></td>
<td><div align="center">备注</div></td>
</tr>
<tr>
<%
do while not rs.eof
%>
<td><%=rs("xh")%></td>
<td><%=rs("xm")%></td>
<td><%=rs("xb")%></td>
<td><%=rs("szxm")%></td>
<td><%=rs("szbj")%></td>
<td><%=rs("kcm")%></td>
<td><%=rs("cj")%></td>
<td colspan="2"> <%=rs("kcm1")%></td>
<td><%=rs("cj1")%></td>
<td><%=rs("bz")%></td>
</tr>
<%
rs.movenext
loop
%>
</table>
</body>
2.信息修改代码
学生信息修改设计与代码
学生信息修改先接收数据库信息再修改
接收数据库信息设计与代码如下:
<body >
<%
Dim varid
varid=Request.QueryString("xsxx_id")
Session("xsxx_id")=varid ‘用接收的ID进行传值
Dim db
Set db=Server.CreateObject("ADODB.Connection")
db.open"driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("data.mdb") 连接数据库
Dim strSql,rs
strSql="Select * From xsxx Where xsxx_id=" &Session("xsxx_id")
Set rs=db.Execute(strSql) ‘从数据库中调用表的ID号
%>
<div align="center"><strong><font color="#FF0000" size="6">修改记录</font></strong><hr> ‘以下用表单进行数据的传递
<form action="update.asp" method="post" name="form"id="form">
‘以下用表格将数据显示出来
<table width="50%" height="506" border="0"><tr>
<td width="29%" height="40"&g
ASP原创信息管理系统(四)相关范文