📄 list_stu.asp
字号:
<!--#include file="Stu_conn.asp"--> <%//包含连接数据库的文件%>
<HTML>
<HEAD>
<style type="text/css"> <%//定义字体和链接的样式%>
<!--
td{
FONT-SIZE: 12px;COLOR: #000000; FONT-FAMILY: verdana; line-height:14pt
}
-->
</style>
<TITLE>显示所有学生的分数信息</TITLE>
</HEAD>
<BODY>
<H3>学生分数信息浏览</H3>
<%
Action= request.QueryString("Action") //获取动作名称
DeleId= request.QueryString("id") //获得要删除或修改的记录ID号
Select Case Action
Case "Dele_Score" //删除选中的记录
conn.execute "Delete From student Where StuId="&DeleId
response.Redirect "List_Stu.asp"
Case "Save_Score" //保存修改的记录
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from student where StuId="&DeleId,conn,1,3
rs2("StuName") = request("StuName")
rs2("Chinese") = request("Chinese")
rs2("Maths") = request("Maths")
rs2("English") = request("English")
rs2("SumScore")= rs2("Chinese")+rs2("Maths")+rs2("English")
rs2.update
rs2.close
set rs2=nothing
response.Redirect "List_Stu.asp"
Case "" //浏览全部记录
%>
<table width="98%" border="1" align=center cellspacing="0" cellpadding="3" bordercolordark="#FFFFFF" bordercolorlight="#666666">
<tr>
<td bgcolor="#666666" align=center><font color="#ffffff">学号</td>
<td bgcolor="#666666" align=center><font color="#ffffff">姓名</td>
<td bgcolor="#666666" align=center><font color="#ffffff">语文</td>
<td bgcolor="#666666" align=center><font color="#ffffff">数学</td>
<td bgcolor="#666666" align=center><font color="#ffffff">英语</td>
<td bgcolor="#666666" align=center><font color="#ffffff">总分</td>
<td bgcolor="#666666" align=center><font color="#ffffff">操作</td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from student ",conn,1,1
If rs.bof and rs.eof then
response.write "<tr><td colspan=7 align=center>数据库中未找到相关记录！</td>" //记录为0时
Else
Do while not rs.eof //循环显示所有记录
%>
<tr>
<td bgcolor="#ffffff" align=center><%=rs("StuNum")%></td>
<td bgcolor="#ffffff" align=center><a href="Edit_Score.asp?id=<%=rs("StuId")%>"><%=rs("StuName")%></a></td> <%//提供修改记录的链接%>
<td bgcolor="#ffffff" align=center><%=rs("Chinese")%></td>
<td bgcolor="#ffffff" align=center><%=rs("Maths")%></td>
<td bgcolor="#ffffff" align=center><%=rs("English")%></td>
<td bgcolor="#ffffff" align=center><%=rs("SumScore")%></td>
<td bgcolor="#ffffff" align=center><a href="List_Stu.asp?action=Dele_Score&id=<%=rs("StuId")%>" onClick="return confirm('您确定进行删除操作吗？')"><font color="#FF0000">删除</a></td> <%//提供删除记录的链接%>
</tr>
<%
rs.movenext '//移动记录指针
Loop
End If
rs.close '//及时关闭数据库
set rs=nothing
End Select
%>
<tr>
<td colspan=7><input type="button" name="Add_Stu" value="增加新成绩" onClick="location.href='Add_Score.asp'"></td> <%//提供增记录的链接%>
</tr>
</table>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -