delnews.asp

XXX档案美女图片站适合给图片广告的站长下载使用

<% Option Explicit %>
<!--#include file="inc/Cls_DB.asp" -->
<!--#include file="Inc/Const.asp" -->
<%
Dim DBC,Conn,CollectConn
Set DBC = New DataBaseClass
Set CollectConn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(DataBaseConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
'判断权限
%>


<%
'判断权限结束
Dim NewsIDStr,DelSql
NewsIDStr = Request("NewsIDStr")
if NewsIDStr <> "" then
	On Error Resume Next
	NewsIDStr = Replace(NewsIDStr,"*",",")
	DelSql = "Delete from News where ID in (" & NewsIDStr & ")"
	CollectConn.Execute(DelSql)
	if Err.Number <> 0 then
		Response.Write("true")
	else
		Response.Write("false")
	end if
	Set CollectConn = Nothing
end if
%>