书签 分享 收藏 举报 版权申诉 / 29

类型选课系统网页制作.docx

  • 文档编号:4783699
  • 上传时间:2022-12-08
  • 格式:DOCX
  • 页数:29
  • 大小:934.07KB
〈/td〉

〈tr〉

〈tdheight="504”valign="top”〉

〈formaction="insertCourse。

asp”method="POST”name="frmInsertCourse"id="frmInsertCourse"〉

〈divalign=”center"〉

〈pre>〈fontcolor="#0000FF"size=”4">

课程号:

〈/font>学分:

〈/font>〈optionvalue="1”>一分〈/option>〈optionvalue="2">二分〈optionvalue=”4”selected〉四分〈/pre>

〈divalign=”center”〉

课程名称:

〈prealign="center"〉〈fontcolor=”#0000FF"size=”4">课程描述:

〈divalign=”left"〉

〈prealign=”center">〈fontcolor="#0000FF”size="4">最大选课人数:

〈inputname="txtMaximumNum"type="text”id="txtMaximumNum">教师:

〈%While(NOTrsTest.EOF)%〉

Fields.Item(”Teacherno”).Value)%〉"〈%If(NotisNull((rsTest_first)))ThenIf(CStr(rsTest.Fields。

Item(”Teacherno”)。

Value)=CStr((rsTest_first)))ThenResponse.Write(”SELECTED”):

Response。

Write(”")%〉〉

<%=(rsTest.Fields.Item(”Name").Value)%〉

〈%

rsTest。

MoveNext()

Wend

If(rsTest.CursorType〉0)Then

rsTest。

MoveFirst

Else

rsTest。

Requery

EndIf

%>

〈/font〉〈/pre〉

〈pre〉〈fontcolor="#0000FF”size="4">〈inputname="btnInsert"type="submit”id=”btnInsert”value=”保存输入"〉

〈/div〉

〈palign=”center">〈ahref=”main.asp"〉返回〈/font>

〈/font>

〈/form>

〈p>&nbsp;〈/p>〈/td>

〈tr〉

〈tdheight=”42"〉 〈/td>

〈/tr>

〈/table>

〈%

rsTest.Close

Conn。

Close

SetrsTest=Nothing

SetConn=Nothing

%>

4.1。

3选择要修改课程页面(modifycourse.asp)

源文件代码

〈%@LANGUAGE=”VBSCRIPT”CODEPAGE="936”%>

〈!

--#includefile="adovbs.inc"-—>

〈!

—-#includefile=connection.asp--〉

<%

'判断是否具有教务员权限

IfSession("UserLevel”)<>"Admin”Then

Response。

Redirect”illegal。

asp”

EndIf

SetrstCourse=Server。

CreateObject(”ADODB。

RecordSet")

rstCourse。

Open"Course”,Conn,adOpenStatic,adLockReadOnly

%〉

〈head>

〈metahttp—equiv="Content-Type"content="text/html;charset=gb2312"〉

〈title>修改课程信息

〈tdwidth="124"height="41">&nbsp;

〈tdwidth=”119"〉&nbsp;

〈/tr〉

〈tr〉

〈tdheight=”91”〉〈/td>

修改课程信息

〈td〉&nbsp;

〈tdheight=”158"〉〈/td>

〈tdvalign=”top”〉〈formaction="modifycourse1.asp”method="post"name=”ModifyCourse”id=”ModifyCourse">

〈palign=”center"> ;〈/p>

〈palign=”center”>

<%

While(NOTrstCourse。

EOF)

%>

Value)%〉”<%If(NotisNull((rstCourse_first)))ThenIf(CStr(rstCourse.Fields。

Item("Courseno”).Value)=CStr((rstCourse_first)))ThenResponse.Write("SELECTED”):

Response.Write("”)%〉〉<%=(rstCourse.Fields.Item(”Courseno")。

Value)%>

<%

rstCourse.MoveNext()

Wend

If(rstCourse.CursorType>0)Then

rstCourse.MoveFi

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
选课 系统 网页 制作
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:选课系统网页制作.docx
链接地址:https://www.bdocx.com/doc/4783699.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2022 冰点文档网站版权所有

经营许可证编号:鄂ICP备2022015515号-1

收起
展开