📄 editcourse2.asp

📁 (1)开发学生成绩管理系统的总体任务是实现企学生管理的系统化和自动化.学生管理为学校提供学生质料管理,课程设置管理,成绩数据管理,访问权限管理等,为学生提供了方便的个人信息查询等. (2)本系统的主

💻 ASP

字号:

<% @ LANGUAGE = "VBScript" %>
<HTML>
<HEAD>
<TITLE>保存课程设置更改</TITLE>
<STYLE>
  P{FONT-SIZE: 9pt}
</STYLE>  
</HEAD>
<BODY>
<P><A HREF = "index.asp">返回首页</A>|
<A HREF = "addcourse.asp">添加课程</A>|
<A HREF = "editcourse1.asp">修改课程</A>|
<A HREF = "deletecourse.asp">删除课程</A>|
<A HREF = "browsecourse.asp">查询课程</A></P>
<DIV ALIGN = "center">
<%
Dim cnn, rst, sSQL, i
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=g6;" & _
  "UID=sa;;DATABASE=test"
cnn.Open
Set rst = cnn.Execute("courses", , adCmdTable)
i = 0
For Each k In Request.Form
  If InStr(1, k, "Text") <> 0 Then
    CourseName = Request.Form(k)
    If CourseName <> rst("course_name") Then
      sSQL = "UPDATE courses SET course_name = '" & CourseName & _
        "' WHERE course_id = " & rst("course_id")
      cnn.Execute sSQL, , adCmdText
      i = i + 1
    End If
    rst.MoveNext
  End If
Next
If i <> 0 Then
%>
<HR NOSHADE SIZE = "1" COLOR = "red">
<P><B><% = i %>条记录修改成功！</B><P>
<% Else %>
<P><B>当前课程设置没有被修改！</B><P>
<% End If %>  
</DIV>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -