selectcourse1-1.asp

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

ASP
118 行
字号 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'Option Explicit
'Response.Expires=0
%>
<!--#include file=adovbs.inc -->
<!--#include file=connection.asp -->
<%
Dim rsTest,StrSQL
StrSQL="Select * From Course Where Courseno='"&Session("Courseno")&"' And Maximumnum>Currentnum"  
Set rsTest=Server.CreateObject("ADODB.RecordSet")
rsTest.Open StrSQL,Conn,adOpenStatic,adLockReadOnly,adCmdText
If rsTest.RecordCount=0 Then
	Response.Redirect "selecterror1-1.asp"
End If	
If Request.ServerVariables("CONTENT_LENGTH")<>0 Then
	If Request.Form("Submit")="确认选择" Then
		Session("checkbox")=Request.Form("checkbox")
		Response.Redirect "selected.asp"	
	ElseIf Request.Form("Submit")="放弃返回" Then
		Response.Redirect "select.asp"	
	End If
End If%>
<Html>
<Head>
<Meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<Title>浏览课程信息</Title>
</Head>
<Body>
<P>&nbsp;</P>
<form name="form1" method="post" action="<% =Request.ServerVariables("SCRIPT_NAME") %>">
<Table width="99%" border="0">
  <Tr> 
    <Td height="49"> 
      <Div align="center"><Font color="#009900" size="7" face="华文新魏">课 程 信 息 一 览 表</Font></Div></Td>
  </Tr>
  <Tr> 
    <Td height="100"> 
      <Table width="100%" height="90" border="1" bordercolor="#0000FF">
        <Tr> 
          <Td width="8%" height="38"> 
			 <Div align="center">
				<Font color="#CC6600" size="4" face="华文隶书">课程号</Font>
			</Div>
		 </Td>
          <Td width="27%">
			<Div align="center">
				<Font color="#CC6600" size="4" face="华文隶书">课程名称</Font>
			</Div>
		  </Td>
          <Td width="7%">
			<Div align="center">
				<Font color="#CC6600" size="4" face="华文隶书">学分</Font>
			</Div>
		  </Td>
          <Td width="9%">
			<Div align="center">
				<Font color="#CC6600" size="4" face="华文隶书">最大选课人数</Font>
			</Div>
		  </Td>
          <Td width="9%">
			<Div align="center">
				<Font color="#CC6600" size="4" face="华文隶书">目前选课人数</Font>
			</Div>
		  </Td>
          <Td width="8%">
			<Div align="center">
				<Font color="#CC6600" size="4" face="华文隶书">教师号</Font>
			</Div>
		  </Td>
          <Td width="41%">
			 <Div align="center">
				<Font color="#CC6600" size="4" face="华文隶书">课 程 描 述</Font>
			 </Div>
		  </Td>
                  <Td width="8%">
			<Div align="center">
				<Font color="#CC6600" size="4" face="华文隶书">选择</Font>
			</Div>
		  </Td>
</Tr>
<%
For absRecordNum=1 to rsTest.PageSize
	Response.Write "<Tr valign=middle>"
	'将每条记录的各个字段输出
	Response.Write "<Td>"&rsTest("Courseno").Value&"</Td>"
	Response.Write "<Td>"&rsTest("Name").Value&"</Td>"
	Response.Write "<Td>"&rsTest("Credit").Value&"</Td>"
	Response.Write "<Td>"&rsTest("Maximumnum").Value&"</Td>"
	Response.Write "<Td>"&rsTest("Currentnum").Value&"</Td>"
	Response.Write "<Td>"&rsTest("Teacherno").Value&"</Td>"
	Response.Write "<Td>"&rsTest("Description").Value&"</Td>"
    Response.Write "<Td><input type=checkbox name= checkbox value="&rsTest("Courseno").Value&"></Td>"
	Response.Write "</Tr>"
	rsTest.MoveNext
	If rsTest.EOF Then
		Exit For '若到记录尾，退出－如当最后一页数据不满页时。
	End If
Next
Response.Write "</Table><Br>"
%>
  <tr> 
              <td height="60"> <div align="center"> 
                  <input name="Submit" type="submit" id="Submit" value="确认选择">
                  &nbsp;&nbsp;&nbsp;&nbsp;
				  <input name="Submit" type="submit" id="Submit" value="放弃返回">
                </div></td>
            </tr>
</form>
<%
rsTest.Close
Conn.Close
Set rsTest=Nothing
Set Conn=Nothing
%>
</Body>
</Html>

selectcourse1-1.asp - 源码说明

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

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

⌨️ 快捷键说明

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