userdelsub.asp

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

<!-- #include file="conn.asp" -->
<%
Sub delsub
	Set conn=Server.CreateObject("ADODB.Connection")
	sql="select * from t_user"
	'rs.Open sql,con,adOpenKeySet,adlockOptimistic,adcmdtext
	rs.Open sql,con,1,3
	'获取用户选择的记录数
	decount=Request.Form("delid").count
	if decount=0 then
		Response.Write"<font color=red>请选择被删除的记录！<font>"
		Response.end
	end if
	while not rs.eof
		for i=1 to decount
			'查找与用户选择相同的记录
			str=Request.form("delid")(i)
			if str=rs("d_user") then
				rs.delete
				'执行更新操作
				rs.Update
				Exit for
			end if
		next
		rs.MoveNext
	Wend
	rs.close
	Set conn=nothing
	Response.Write"<font color=red>已删除所选记录！<font>"
end Sub
%>