📄 xinwendelete.asp
字号:
<!--#include file="../conn.asp"-->
<!--#include file="../check.asp"-->
<%
call LinkData()
dim sql,rs,xid,radio,record_count,alert_flag,i,l,filter_list,alert_str
Set rs = Server.CreateObject("ADODB.RecordSet")
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 xinwen where xid in (" & filter_list & ")"
conn.execute sql,0
conn.close
alert_flag="true"
alert_str="删除完成"
end if
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<Script language="JavaScript">
<%if alert_flag then%>
alert("<%=alert_str%>")
<%end if%>
location = "xinwen.asp"
</Script>
</HEAD>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -