admin_pinglunlistdel.asp

来自「功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹」· ASP 代码 · 共 16 行

<!-- #include file="../conn.asp" -->
<!-- #include file="session.asp" --><!--#include file="../inc/config.asp"-->
<%
id=trim(request("checked"))
If ID="" Then
	Response.Write ("<SCRIPT language=JavaScript>alert('错误!\n\n您至少需要选择一个');javascript:window.close();</SCRIPT>")
	Response.end
End If
viewArray=Split(ID, ",")
Num = UBound(viewArray)
For i=0 To Num
conn.execute "delete from [Comment] where CommentID in ("&viewArray(i)&") "
Next
response.write ("<script>opener.location.reload();</script><script language=javascript>window.alert('删除成功!');javascript:window.close();</script>")
%>