selected.asp

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

ASP
57 行
字号 
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="adovbs.inc"-->
<!--#include file="connection.asp"-->
<%
Selected=Split(Session("checkbox"),",")
Set rsTest=Server.CreateObject("ADODB.RecordSet")
rsTest.Open "Course",Conn,adOpenkeySet,adLockOptimistic',adCmdText
Set rsStudent=Server.CreateObject("ADODB.RecordSet")
StrSQL="Select * From Selection Where Studentno='"&Session("Userno")&"' "
rsStudent.Open StrSQL,Conn,adOpenkeySet,adLockOptimistic,adCmdText
For i=0 To Ubound(Selected)
	Do While Not rsTest.EOF 
		If rsTest("Courseno").Value=Trim(Selected(i)) Then
    		rsTest("Currentnum")=rsTest("Currentnum").Value+1
			Test=0
			If rsStudent.RecordCount=0 Then
			Else
			Do while not rsStudent.EOF 	  			
				If Trim(rsStudent("Courseno").Value)=Trim(Selected(i)) Then
					Test=1
				End If
				rsStudent.MoveNext
			loop
			rsStudent.MoveFirst
			End If
			if Test=0 Then
				rsStudent.AddNew
				rsStudent("Studentno")=Session("Userno")
				rsStudent("Courseno")=Trim(Selected(i))
				rsTest.UpdateBatch	
			Else
				Response.Redirect "SelectedError.asp"
			End If
			rsStudent.UpdateBatch
		End If
		rsTest.MoveNext
	Loop
	rsTest.MoveFirst
Next
rsTest.Close		
rsStudent.Close
Conn.Close
Set rsTest=Nothing
Set rsStudent=Nothing
Set Conn=Nothing
%>
<html>
<body>
<div align="center">
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p><font color="#FF0000" size="+7" face="华文新魏">所选课程信息已保存！</font></p>
<p align="center"><a href="main.asp">返回</a></p>
</div>	
</body>

selected.asp - 源码说明

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

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

⌨️ 快捷键说明

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