📄 addcourse.asp
字号:
<% @ LANGUAGE = "VBScript" %>
<HTML>
<HEAD>
<TITLE>添加课程</TITLE>
<STYLE>
P, TABLE, INPUT{FONT-SIZE: 9pt}
</STYLE>
<!-- #include virtual = "/adovbs.inc" -->
<%
Dim cnn, rst, sSQL
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
If Request.Form("txtCourseName") <> "" Then
CourseName = Request.Form("txtCourseName")
sSQL = "INSERT courses(course_name) VALUES ('" & CourseName & "')"
cnn.Execute sSQL, , adCmdText
End If
Set rst = cnn.Execute("courses", , adCmdTable)
%>
</HEAD>
<BODY>
<P><A HREF = "index.asp">返回首页</A>|
<A HREF = "editcourse1.asp">修改课程</A>|
<A HREF = "deletecourse.asp">删除课程</A>|
<A HREF = "browsecourse.asp">查询课程</A></P>
<DIV ALIGN = "center">
<FORM METHOD = "post" ACTION = "addCourse.asp">
<TABLE BGCOLOR = "#D6D3CE" WIDTH = "410">
<TR>
<TH COLSPAN = "3" BGCOLOR = "#0034FF">
<FONT COLOR = "#FFFFFF">添加新课程</FONT></TH>
</TR>
<TR>
<TD NOWRAP ALIGN = "right">请输入课程名称：</TD>
<TD ALIGN = "center"><INPUT TYPE = "text" NAME = "txtCourseName"
SIZE = "20"></TD>
<TD><INPUT TYPE = "submit" VALUE = "保存" NAME = "btnSubmit"></TD>
</TR>
</TABLE>
</FORM>
<% If rst.EOF Then %>
<P><B>目前还没有课程设置数据！</B></P>
<% Else %>
<TABLE BORDER = "1" WIDTH = "410">
<CAPTION><B>当前课程设置</B></CAPTION>
<TR ALIGN = "center">
<TD>课程编号</TD><TD>课程名称</TD>
</TR>
<% While Not rst.EOF %>
<TR>
<TD ALIGN = "center"><% = rst("course_id") %></TD>
<TD><% = rst("course_name") %></TD>
</TR>
<% rst.MoveNext
Wend %>
</TABLE>
<% End If %>
</DIV>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -