searchcourse.asp

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

ASP
83 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="adovbs.inc"-->
<!--#include file=connection.asp -->
<%
Set rstTeacher=Server.CreateObject("ADODB.RecordSet")
rstTeacher.Open "Teacher",Conn,adOpenStatic,adLockReadOnly
Dim Name,Description,Credit,Teacherno
If Request.ServerVariables("CONTENT_LENGTH")<>0 Then
	Session("Name")=Ltrim(Rtrim(CStr(Request.Form("TxtName"))))
	Session("Description")=Ltrim(Rtrim(Request.Form("TxtDescription")))
	Session("Credit")=Request.Form("selCredit")
	Session("Teacherno")=Request.Form("selTeacherno")
	Session("Checkbox")=Request.Form("Checkbox")
	Response.Redirect "searchshow.asp"
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>检索课程信息</title>
</head>
<body>
<table width="786" border="0" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="891" height="103" valign="top"><p>&nbsp;</p>
      <p align="center"><font color="#0000FF" size="7" face="华文新魏">搜 索 课 程 信 息</font></p></td>
  </tr>
  <tr> 
    <td height="257" valign="top"><div align="center"> 
        <p><font color="#FF0000" size="6" face="华文行楷">输入检索条件</font></p>
        <form action="<% =Request.ServerVariables("SCRIPT_NAME") %>" method="post" name="frmSearchCourse" id="frmSearchCourse">
          <p><font color="#0000FF" face="黑体">课程名称包含：</font> 
            <input name="txtName" type="text" id="txtName">
          </p>
          <p><font color="#0000FF" face="黑体">课程描述包含：</font> 
            <input name="txtDescription" type="text" id="txtDescription">
          </p>
          <p><font color="#0000FF" face="黑体">学分：</font> 
            <select name="selCredit" id="selCredit">
              <option value="0" selected>所有学分</option>
              <option value="1">一分</option>
              <option value="2">二分</option>
              <option value="3">三分</option>
              <option value="4" >四分</option>
              <option value="5">五分</option>
            </select>
            <font color="#0000FF" face="黑体">&nbsp;&nbsp;&nbsp;授课教师：</font> 
            <select name="selTeacherno" id="selTeacherno">
              <option value="所有教师">所有教师</option>
              <% While (NOT rstTeacher.EOF) %>
              <option value="<%=(rstTeacher.Fields.Item("Teacherno").Value)%>" > 
              <%=(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>
			&nbsp;&nbsp;&nbsp;
            <input type="checkbox" name="checkbox" value="on" checked>
            <font color="#0000FF" face="黑体">只列出尚未选满的课程</font> </p>
          <p> 
            <input type="submit" name="Submit" value="开始查找">
            &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
            <input type="reset" name="Submit2" value="清除重填">
          </p>
          <p>&nbsp;</p>
        </form>
        <p>&nbsp;</p>
      </div></td>
  </tr>
  <tr> 
    <td height="37">&nbsp;</td>
  </tr>
</table>
</body>
</html>

searchcourse.asp - 源码说明

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

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

⌨️ 快捷键说明

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