
<!--#include file="conn.asp" -->
<!--#include file="inc/IsLogin.asp" -->
<% 
dim curl :curl=Request.ServerVariables("Http_Referer")
dim action
action=request("action")

ID=trim(request("ID"))
 
if id="" then call OutAlertScript("请选中您要删除的记录")

if action="Del" then
set rs=server.createobject("adodb.recordset")

sql="delete from news where id in ("&id&")"
rs.open sql,conn,1,3
rs.delete
rs.update
rs.close
set rs=nothing
call closeconn()
response.write "<script language=JavaScript>" 
response.Write "alert('删除成功！');"
response.Write "location.href = '"&curl&"';"
response.Write "</script>"
Response.end()
end if
 
 %>