📄 deletescore2.asp
字号:
<% @ LANGUAGE = "VBScript" %>
<HTML>
<HEAD>
<TITLE>删除成绩成功</TITLE>
<STYLE>
P{FONT-SIZE: 9pt}
</STYLE>
</HEAD>
<BODY>
<P><A HREF = "index.asp">返回首页</A>|
<A HREF = "addscore.asp">录入成绩</A>|
<A HREF ="editscore.asp">修改成绩</A>|
<A HREF = "deletescore1.asp">删除成绩</A>|
<A HREF = "browsescore.asp">查询成绩</A></P>
<HR SIZE = "1" COLOR = "red" NOSHADE>
<%
Dim cnn, rst, sSQL
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=g6;" & _
"UID=sa;;DATABASE=test"
cnn.Open
StudentID = CInt(Request.Form("txtStudentID"))
CourseID = CInt(Request.Form("txtCourseID"))
sSQL = "DELETE scores WHERE student_id = " & StudentID & _
" AND course_id = " & CourseID
cnn.Execute sSQL, , adCmdText
%>
<P ALIGN = "center"><B>指定的成绩记录已被删除！</B></P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -