delsave.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 24 行

<!--#include file="passinc.asp" -->
<!-- #include file="OpenDB.inc" -->
 <%

dim i
dim id
pnum=Request.Form("deletetopic").count
Set rs = Server.CreateObject("ADODB.Recordset")
if pnum>0 then
for i=1 to pnum
id=Request.Form("deletetopic")(i)
sql="delete from webmail Where id="&id
rs.open sql,conn,1,1  
next
%>
 <script language=javascript>
alert("有<%=pnum%>条记录被删除！")
history.go(-1)
</script>
<%conn.close%>
<%else%>
      <p align="center">您没有选中删除条目，请<a href="index.asp"><font color="#FF0000">返回</font></a>再选！</p>

<%end if%>