📄 tchcoursedetail.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="tchpurview.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="function.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<%
cid=request.QueryString("cid")
action=request.QueryString("action")
if action="modify" then
'修改学生得分
set rs1=server.CreateObject("adodb.recordset")
sql="select * from choose where courseid=" & cid
'response.Write(sql)
rs1.open sql,conn,1,1
do while not rs1.eof
m=request.Form(Cstr(rs1("studentid")))
sql="update choose set mark=" & m & " where recid=" & rs1("recid")
'response.Write(sql)
conn.execute(sql)
rs1.movenext
loop
response.Write("修改成功")
end if
%>
<form id="form1" name="form1" method="post" action="tchcoursedetail.asp?action=modify&cid=<%=cid%>">
<table width="100%" border="0">
<tr>
<td colspan="5">课程详细信息：</td>
</tr>
<tr>
<td>学号</td>
<td>学生姓名</td>
<td>学生系别</td>
<td>学生专业</td>
<td>得分</td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
sql="SELECT Student.StuID, Student.StuNO, Student.StuName, Student.StuDepartment, Student.StuMajor, choose.mark FROM Student INNER JOIN choose ON Student.StuID = choose.StudentID where choose.CourseID=" & cid
'response.Write(sql)
'response.End()
rs.open sql,conn,1,1
do while not rs.eof
%>
<tr>
<td><%=rs("stuno")%></td>
<td><%=rs("stuname")%></td>
<td><%=rs("studepartment")%></td>
<td><%=rs("stumajor")%></td>
<td><input type="text" name="<%=rs("StuID")%>" value="<%=rs("mark")%>" /></td>
</tr>
<%
rs.movenext
loop
%>
<tr>
<td colspan="5"><input type="submit" name="Submit" value="修改学生得分" /></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -