📄 insert.asp.bak
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="adovbs.inc"-->
<!--#include file=connection.asp -->
<%
'判断师父具有教务员权限
If Session("UserLevel")<>"Admin" Then
Response.Redirect "illegal.asp"
End If
Set rsTest=Server.CreateObject("ADODB.RecordSet")
rsTest.Open "Teacher",Conn,adOpenStatic,adLockReadOnly
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>输入课程信息</title>
</head>
<body>
<table >
<tr>
<td width="804" height="55" valign="top"><div align="center"><font color="#990033" size="7" face="华文新魏">输入课程信息</font></div></td>
</tr>
<tr>
<td height="504" valign="top">
<form action="insertCourse.asp" method="POST" name="frmInsertCourse" id="frmInsertCourse">
<div align="center">
<pre><font color="#0000FF" size="4">
课 程 号：</font><input name="txtCourseno" type="text" id="txtCourseno"> <font color="#0000FF" size="4"> 学 分：</font><select name="selCredit" id="selCredit"> <option value="1">一分</option> <option value="2">二分</option> <option value="3">三分</option> <option value="4" selected>四分</option> <option value="5">五分</option> </select> </pre>
</div>
<div align="center">
<pre align="center"><font color="#0000FF" size="4">课程名称：<input name="txtName" type="text" id="txtName" size="60"> </font></pre>
<pre align="center"><font color="#0000FF" size="4">课程描述：
<textarea name="txtDescription" cols="80" id="txtDescription"></textarea> </font></pre>
<div align="left">
<pre align="center"><font color="#0000FF" size="4"> 最大选课人数：<input name="txtMaximumNum" type="text" id="txtMaximumNum"> 教 师：<select name="selTeacherno" id="selTeacherno">
<% While (NOT rsTest.EOF) %>
<option value="<%=(rsTest.Fields.Item("Teacherno").Value)%>" <%If (Not isNull((rsTest_first))) Then If (CStr(rsTest.Fields.Item("Teacherno").Value) = CStr((rsTest_first))) Then Response.Write("SELECTED") : Response.Write("")%> >
<%=(rsTest.Fields.Item("Name").Value)%>
</option>
<%
rsTest.MoveNext()
Wend
If (rsTest.CursorType > 0) Then
rsTest.MoveFirst
Else
rsTest.Requery
End If
%>
</select></font></pre>
</div>
<pre><font color="#0000FF" size="4"><input name="btnInsert" type="submit" id="btnInsert" value="保存输入"> <input name="btnClear" type="reset" id="btnClear" value="清除重填"></font></pre>
</div>
<p align="center"><a href="main.asp"><font size="5" face="华文新魏">返 回</font></a></p>
<font color="#0000FF" size="4"></font>
<pre><font color="#0000FF" size="4">
</font></pre>
</form>
<p> </p></td>
</tr>
<tr>
<td height="42"> </td>
</tr>
</table>
<%
rsTest.Close
Conn.Close
Set rsTest = Nothing
Set Conn=Nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -