📄 browsecourse.asp

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

💻 ASP

字号:

<% @ LANGUAGE = "VBScript" %>
<%
If Session("UserName") = "" Then
  Response.Redirect "login.htm"
End If
%>
<HTML>
<HEAD>
<TITLE>当前课程设置</TITLE>
<STYLE>
P, INPUT, TABLE{FONT-SIZE: 9pt}
</STYLE>
</HEAD>
<BODY>
<P><A HREF="index.asp">返回首页</A>|
<% If Session("Level") > 1 Then %>
<A HREF="addcourse.asp">添加课程</A>|
<A HREF="editcourse1.asp">修改课程</A>|
<A HREF="deletecourse1.asp">删除课程</A>
<% End If %></P>
<!-- #include virtual = "/adovbs.inc" -->
<%
Dim cnn, rst
Set cnn = Server.CreateObject("ADODB.Connection")
Set rst = Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString = "PROVIDER=SQLOLEDB;DATA SOURCE=g6;" & _
  "UID=sa;;DATABASE=test"
cnn.Open  
Set rst = cnn.Execute("courses", , adCmdTable)
%>
<DIV ALIGN = "center">
<% If rst.EOF Then %>
<P><FONT COLOR = "red">当前没有课程设置数据！</FONT></P>
<% Else %>
<TABLE CELLSPACING = "3" CELLPADDING = "3" WIDTH = "410">
<CAPTION><B>当前课程设置</B></CAPTION>
<TR ALIGN = "center" BGCOLOR = "#0080FF">
<TD><FONT COLOR = "#FFFFFF">课程编号</FONT></TD>
<TD><FONT COLOR = "#FFFFFF">课程名称</FONT></TD>
</TR>
<% While Not rst.EOF %>
<TR BGCOLOR = "#B5E6FF">
<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 + -