modifycourse1.asp

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

ASP
79 行
字号 
<%@LANGUAGE="VBSCRIPT"%> 
<!--#include file="adovbs.inc"-->
<!--#include file=connection.asp -->
<%
If Session("UserLevel")<>"Admin" Then
	Response.Redirect "illegal.asp"
End If
Courseno=Request.Form("selCourseno")
Session("selCourseno")=Request.Form("selCourseno")
strSQL = "Select * From Course Where Courseno = '"&Courseno&"'"
Set rstCourse=Server.CreateObject("ADODB.RecordSet")
rstCourse.Open strSQL,Conn,adOpenForwardOnly,adLockReadOnly,adCmdText
Set rstTeacher=Server.CreateObject("ADODB.RecordSet")
rstTeacher.Open "Teacher",Conn,adOpenStatic,adLockReadOnly
%>
<body>
<table width="798" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="796" height="76" valign="top"><div align="center"><font color="#990033" size="7" face="华文新魏">修改课程信息</font></div></td>
    <td width="2">&nbsp;</td>
  </tr>
  <tr> 
    <td height="483" valign="top"><p>&nbsp;</p>
      <form Action="modifycourse2.asp" Method="POST" name="ModifyCourse" id="ModifyCourse">
        <div align="center"> 
          <pre><font color="#0000FF" size="4">课 程 号：</font><input name="txtCourseno" type="text" id="txtCourseno" value="<%=(rstCourse.Fields.Item("Courseno").Value)%>">     <font color="#0000FF" size="4">                 学 分：</font><select name="selCredit" id="selCredit"><option value="1" <%If (Not isNull((rstCourse.Fields.Item("Credit").Value))) Then If ("1" = CStr((rstCourse.Fields.Item("Credit").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>一分</option><option value="2" <%If (Not isNull((rstCourse.Fields.Item("Credit").Value))) Then If ("2" = CStr((rstCourse.Fields.Item("Credit").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>二分</option><option value="3" <%If (Not isNull((rstCourse.Fields.Item("Credit").Value))) Then If ("3" = CStr((rstCourse.Fields.Item("Credit").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>三分</option><option value="4" selected <%If (Not isNull((rstCourse.Fields.Item("Credit").Value))) Then If ("4" = CStr((rstCourse.Fields.Item("Credit").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>四分</option><option value="5" <%If (Not isNull((rstCourse.Fields.Item("Credit").Value))) Then If ("5" = CStr((rstCourse.Fields.Item("Credit").Value))) Then Response.Write("SELECTED") : Response.Write("")%>>五分</option><%
While (NOT rstCourse.EOF)
%><option value="<%=(rstCourse.Fields.Item("Credit").Value)%>" <%If (Not isNull((rstCourse.Fields.Item("Credit").Value))) Then If (CStr(rstCourse.Fields.Item("Credit").Value) = CStr((rstCourse.Fields.Item("Credit").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rstCourse.Fields.Item("Credit").Value)%></option><%
  rstCourse.MoveNext()
Wend
If (rstCourse.CursorType > 0) Then
  rstCourse.MoveFirst
Else
  rstCourse.Requery
End If
%>         </select>         </pre>
        </div>
        <div align="center"> 
          <pre align="center"><font color="#0000FF" size="4">课程名称：<input name="txtName" type="text" id="txtName" value="<%=(rstCourse.Fields.Item("Name").Value)%>" size="60">          
</font><font color="#0000FF" size="4">课程描述：                                                          
      <textarea name="txtDescription" cols="80" id="txtDescription"><%=(rstCourse.Fields.Item("Description").Value)%></textarea>           </font></pre>
          <div align="left"> 
            <pre align="center"><font color="#0000FF" size="4">          最大选课人数：<input name="txtMaximumNum" type="text" id="txtMaximumNum" value="<%=(rstCourse.Fields.Item("Maximumnum").Value)%>">         教师号：<select name="selTeacherno" id="selTeacherno"><%
While (NOT rstTeacher.EOF)
%><option value="<%=(rstTeacher.Fields.Item("Teacherno").Value)%>" <%If (Not isNull((rstCourse.Fields.Item("Teacherno").Value))) Then If (CStr(rstTeacher.Fields.Item("Teacherno").Value) = CStr((rstCourse.Fields.Item("Teacherno").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(rstTeacher.Fields.Item("Name").Value+rstTeacher.Fields.Item("Title").Value)%></option><%
  rstTeacher.MoveNext()
Wend
If (rstTeacher.CursorType > 0) Then
  rstTeacher.MoveFirst
Else
  rstTeacher.Requery
End If
%></select></font></pre>
          </div>
          <font color="#0000FF" size="4"></font> 
          <pre><font color="#0000FF" size="4"><input name="btnSave" type="submit" id="btnSave" value="保存信息">          <input name="btnReset" type="reset" id="btnReset" value="还原重改"></font></pre>
        </div>
        <font color="#0000FF" size="4"></font> 
        <pre><font color="#0000FF" size="4">
</font></pre>
        <input type="hidden" name="MM_update" value="frmModifyCourse">
        <input type="hidden" name="MM_recordId" value="<%= rstCourse.Fields.Item("Courseno").Value %>">
      </form>
      <p>&nbsp;</p></td>
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td height="42">&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
</table>

<%
rstTeacher.Close()
Set rstTeacher = Nothing
rstCourse.Close()
Set rstCourse = Nothing
%>

modifycourse1.asp - 源码说明

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

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

⌨️ 快捷键说明

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