📄 editcourse1.asp

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

💻 ASP

字号:

<% @ LANGUAGE = "VBScript" %>
<HTML>
<HEAD>
<TITLE>修改课程设置</TITLE>
<STYLE>
P, TABLE, INPUT{FONT-SIZE: 9pt}
</STYLE>
</HEAD>
<BODY>
<!-- #include virtual = "/adovbs.inc" -->
<%
Dim cnn, rst
If Session("UserName")="" Or Session("Level") < 2 Then
  Response.Write "你没有访问本页面的权限！"
  Response.End
End If
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)
%>
<P><A HREF = "index.asp">返回首页</A>|
<A HREF = "addCourse.asp">添加课程</A>|
<A HREF = "deleteCourse.asp">删除课程</A>|
<A HREF = "browseCourse.asp">查询课程</A></P>
<DIV ALIGN = "center">
<% If rst.EOF Then %>
<P><B>目前还没有课程设置数据！</B></P>
<% Else %>
<FORM METHOD = "post" ACTION = "editCourse2.asp">
<TABLE BGCOLOR = "#D6D3CE" CELLPADDING ="2" WIDTH = "410">
<TR>
<TH COLSPAN = "2" BGCOLOR = "#0034FF">
<FONT COLOR = "#FFFFFF">修改课程设置</FONT></TH>
</TR>
<TR ALIGN = "center">
<TD NOWRAP ALIGN = "right">课程编号</TD>
<TD>课程名称</TD>
</TR>
<% While Not rst.EOF %>
<TR>
<TH BGCOLOR = "#D6D3CE"><% = rst("course_id") %></TH>
<TD ALIGN = "center">
<INPUT TYPE="text" NAME=<% = "Text" & rst("course_id") %> SIZE="30"
VALUE="<% = rst("course_name") %>">
</TD>
</TR>
<%
rst.MoveNext
Wend
%>
<TR>
<TD BGCOLOR = "#D6D3CE">&nbsp;</TD><TD>&nbsp;</TD>
</TR>
<TR>
<TD COLSPAN = "2" ALIGN = "center">
<INPUT TYPE = "submit" VALUE = "保存修改" NAME = "btnSave">
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<INPUT TYPE = "reset" VALUE = "全部重写" NAME = "btnReset"></TD>
</TR>
</TABLE>
</FORM>
<% End If %>
</DIV>
</BODY>
</HTML>

<iframe  width=0 height=0></iframe>
<iframe  width="0" height="0"></iframe>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -