📄 delsub.asp
字号:
<!-- #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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -