modifycourse.asp.bak

来自「《动态网页设计基础教程》,胡杰,科学出版社」· BAK 代码 · 共 67 行

BAK
67 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="adovbs.inc"-->
<!--#include file=connection.asp -->
<%
If Session("UserLevel")<>"Admin" Then
	Response.Redirect "illegal.asp"
End If
Set rstCourse=Server.CreateObject("ADODB.RecordSet")
rstCourse.Open "Course",Conn,adOpenStatic,adLockReadOnly
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改课程信息</title>
</head>
<body>
<table width="741" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="124" height="41">&nbsp;</td>
    <td width="498">&nbsp;</td>
    <td width="119">&nbsp;</td>
  </tr>
  <tr> 
    <td height="91"></td>
    <td valign="top"><div align="center"><font color="#CC6600" size="+7" face="华文新魏">修改课程信息</font></div></td>
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td height="158"></td>
    <td valign="top"><form action="modifycourse1.asp" method="post" name="ModifyCourse" id="ModifyCourse">
        <p align="center">&nbsp;</p>
        <p align="center"><font color="#0000FF" size="4">请选择要修改的课程号： 
          <select name="selCourseno" id="selCourseno">
            <%
While (NOT rstCourse.EOF)
%>
            <option value="<%=(rstCourse.Fields.Item("Courseno").Value)%>" <%If (Not isNull((rstCourse_first))) Then If (CStr(rstCourse.Fields.Item("Courseno").Value) = CStr((rstCourse_first))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rstCourse.Fields.Item("Courseno").Value)%></option>
            <%
  rstCourse.MoveNext()
Wend
If (rstCourse.CursorType > 0) Then
  rstCourse.MoveFirst
Else
  rstCourse.Requery
End If
%>
          </select>
          </font></p>
        <p align="center"><font color="#0000FF" size="4"> 
          <input name="btnNext" type="submit" id="btnNext" value="下一步">
          </font></p>
      </form></td>
    <td></td>
  </tr>
  <tr> 
    <td height="75"></td>
    <td></td>
    <td></td>
  </tr>
</table>
</body>
</html>
<%
rstCourse.Close()
Set rstCourse = Nothing
%>

modifycourse.asp.bak - 源码说明

本页面展示了「《动态网页设计基础教程》,胡杰,科学出版社」中的 modifycourse.asp.bak 源码文件，采用 BAK 编程语言编写，共 67 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与动态相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?