cancelresult.asp

来自「该资料包含大量网络开发的案例和源代码」· ASP 代码 · 共 42 行

ASP
42 行
字号 
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>退课结果</title>
<meta name="Microsoft Border" content="b, default">
</head>

<body><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top">
<%
	dim adoConn
    dim adoRS
	dim sConnection
    dim sSQL
    dim Cancel,i
    
    cancel=split(request.form("cancel")&", ",",")
  	
    set adoConn=server.createobject("ADODB.Connection")
    sConnection="Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.mappath("student.mdb")
    adoConn.open sConnection
    
    i=0
    
    do while trim(cancel(i))<>""     
    	sSQL="delete from sc where sc.sno="&session("user")&" and sc.cno="& cancel(i)
		adoconn.execute(sSQL) 
		i=i+1		  	
	loop
	
	adoConn.close
    set adoConn=nothing
	response.write "</p><p align='center'>退课成功！<br><br><p align='center'><a href='CancelClass.asp'>返回退课</a></p>"
%>	
<p align="center"><a href="index.asp">返回主页</a></p>
<!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td>

<p align="center"><font color="#333333" size="2">版权所有|关于我们</font>

</td></tr><!--msnavigation--></table></body>

</html>

cancelresult.asp - 源码说明

本页面展示了「该资料包含大量网络开发的案例和源代码」中的 cancelresult.asp 源码文件，采用 ASP 编程语言编写，共 42 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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