<!--#include file="../Inc/global.asp"-->

<%
response.charset="gb2312"
Chk_Admin_Login()
Action=zhcx.CheckRequest(request("Action"))

Select Case lcase(Action)
Case "del"
Call Del()
Case else
zhcx.ErrAlert("非法操作")
end select

Sub Del()
Dim Id,pathhtml,class_Id
Id=zhcx.checkstr(request("Id"))
if Id="" then
zhcx.ErrAlert("参数错误")
end if
For i=0 to ubound(split(Id,","))
Sql="Select Id  From Z_Fk_Msg where Id="&zhcx.checknumeric(split(Id,",")(i))
Set rs=zhcx.conn(sql)
if not rs.eof then
rs.delete
end if
rs.close
set rs=nothing
'删除文件

Next
Call zhcx.SuccHref("删除成功","Dir.asp","self")
End Sub


%>