📄 zhuanyedelete.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../check.asp"-->
<%
Dim radio,record_count,alert_flag,i,l,filter_list,sql,alert_str
radio = request("radio")
record_count = request("record_count")
alert_flag=false
for i=1 to cint(record_count)
if request("del_flag" & i)="on" then
filter_list = filter_list & request("record_id" & i)
if i<>cint(record_count) then filter_list = filter_list & ","
end if
next
if right(filter_list,1)="," then
l=len(filter_list)
filter_list=left(filter_list,l-1)
end if
if filter_list<>"" then
sql = "DELETE FROM zhuanye WHERE zid IN (" & filter_list & ")"
call LinkData()
conn.execute sql,0
alert_flag="true"
response.write "删除完成，5秒后返回"
call CloseData()
'call Timenum()
end if
%>
<HTML>
<HEAD>
<title>学生心理测试管理界面</title>
<link href="../teacher.css" rel="stylesheet" type="text/css">
<meta http-equiv="refresh" content="5;URL=zhuanye.asp">
</HEAD>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -