delsub.asp

来自「这是我在大三的《asp程序设计教程》的课程设计」· ASP 代码 · 共 45 行

ASP
45 行
字号 
<!-- #include file="conn.asp" -->
<html>
<head>
</head>
<body>
<%
Sub delsub
	Set conn=Server.CreateObject("ADODB.Connection")
	sql="select * from t_student"
	'rs.Open sql,con,adOpenKeySet,adlockOptimistic,adcmdtext
	rs.Open sql,con,1,3
	'获取用户选择的记录数
	decount=Request.Form("delid").count
	if decount=0 then
		Response.Write"请选择被删除的记录！"
		Response.end
	end if
	while not rs.eof
		for i=1 to decount
			'查找与用户选择相同的记录
			str=Request.form("delid")(i)
			pos=InStr(str,"s")
			if pos <> 0 then
				cl=Left(str,pos-1)
				no=mid(str,pos+1)
			end if
			if cl=rs("d_class") and no=rs("d_no") then
				rs.delete
				'执行更新操作
				rs.Update
				Exit for
			end if
		next
		rs.MoveNext
	Wend
	rs.close
	Set conn=nothing
	Response.Write"已删除所选记录！"
end Sub
%>

</body>
</html>

delsub.asp - 源码说明

本页面展示了「这是我在大三的《asp程序设计教程》的课程设计」中的 delsub.asp 源码文件，采用 ASP 编程语言编写，共 45 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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