📄 editscore.asp
字号:
<% @ LANGUAGE = "VBScript" %>
<HTML>
<HEAD>
<TITLE>修改成绩</TITLE>
<STYLE>
P, TABLE, INPUT, SELECT{FONT-SIZE: 9pt}
</STYLE>
</HEAD>
<BODY>
<%
If Session("UserName") = "" Or Session("Level") < 2 Then
Response.Write "你没有访问本页面的权限！"
Response.End
End If
%>
<P><A HREF = "index.asp">返回首页</A>|
<A HREF = "addScore.asp">录入成绩</A>|
<A HREF = "deleteScore.asp">删除成绩</A>|
<A HREF = "browseScore.asp">查询成绩</A></P>
<DIV ALIGN = "center">
<!-- #include virtual = "/adovbs.inc" -->
<%
Dim cnn, rstSt, rstCo, rstSc, sSQL
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=g6;" & _
"UID=sa;;DATABASE=test"
cnn.Open
Set rstSt = cnn.Execute("students", , adCmdTable)
Set rstCo = cnn.Execute("courses", , adCmdTable)
%>
<% If rstSt.EOF Or rstCo.EOF Then %>
<P><FONT COLOR = "red">学生表或课程表为空，请先录入学生资料和课程设置数据！
</FONT></P>
<% Else %>
<FORM METHOD = "post" ACTION = "editScore.asp">
<P>学号：<INPUT TYPE = "text" NAME = "txtStudentNum" SIZE = "10">
课程：<SELECT SIZE = "1" NAME = "lstCourseID">
<% While Not rstCo.EOF %>
<OPTION VALUE = <% = rstCo("course_id") %>>
<% = rstCo("course_name") %></OPTION>
<%
rstCo.MoveNext
Wend
%>
</SELECT> <INPUT TYPE = "submit" VALUE = "提交" NAME = "查询"></P>
</FORM>
<% End If %>
<%
StudentNum = Trim(Request.Form("txtStudentNum"))
CourseID = Request.Form("lstCourseID")
If StudentNum <> "" Then
sSQL = "SELECT st.student_name, sc.student_id, co.course_name, " & _
"sc.course_id, sc.score FROM scores sc "
sSQL = sSQL & "INNER JOIN courses co ON co.course_id = sc.course_id "
sSQL = sSQL & "INNER JOIN students st ON sc.student_id = st.student_id "
sSQL = sSQL & "WHERE st.student_num = '" & StudentNum & "'"
sSQL = sSQL & " AND sc.course_id = " & cint(CourseID)
' 执行多表查询，返回一个记录集
Set rst = cnn.Execute(sSQL, , adCmdText)
If rst.EOF Then
%>
<P><FONT COLOR = "red">没有找到符合条件的记录！</FONT></P>
<% Else %>
<FORM METHOD="post" ACTION="saveScore.asp">
<TABLE BGCOLOR = "#D6D3CE" CELLSPACING = "3" CELLPADDING = "3" WIDTH = "436">
<CAPTION><B>查询结果：</B>学号：<% = StudentNum %>；
姓名：<% = rst(0) %></CAPTION>
<TR>
<TH COLSPAN = "2" BGCOLOR = "#0034FF"><FONT COLOR = "#FFFFFF">成绩表
</FONT></TH>
</TR>
<TR>
<TD></TD><TD></TD>
</TR>
<TR>
<TD ALIGN = "right"><% = rst(2) %>：
<INPUT TYPE = "hidden" NAME = "txtStudentID" SIZE = "20"
VALUE = <% = rst(1) %>>
<INPUT TYPE = "hidden" NAME = "txtCourseID" SIZE = "20"
VALUE = "<% = rst(3) %>">
</TD>
<TD ALIGN = "center"><INPUT TYPE = "text" NAME = "txtScore" SIZE = "20"
VALUE = <% = rst(4) %> STYLE = "text-align: center"></TD>
</TR>
<TR>
<TD></TD><TD></TD>
</TR>
<TR>
<TD COLSPAN = "2" ALIGN = "center">
<INPUT TYPE = "submit" VALUE = "保存修改" NAME = "btnSubmit">
<INPUT TYPE = "reset" VALUE = "全部重写" NAME = "btnReset"></TD>
</TR>
</TABLE>
</FORM>
<% End If %>
<% End If %>
</DIV>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -