<!--#Include file="../Common/Inc_DatConn.asp"-->
<!--#Include file="Common/Inc_Config.asp"-->
<!--#Include file="Common/Inc_Function.asp"-->
<%
'┌─  風(fēng)云ASP在線  ────────────────────────┐
'│                                                                 │
'│  作者：趙振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系統(tǒng)開發(fā)，網(wǎng)站制作，提供高質(zhì)量的網(wǎng)絡(luò)產(chǎn)品、技術(shù)和服務(wù)！│
'│                                                                 │
'│【版權(quán)聲明】                                                     │
'│                                                                 │
'│     本程序版權(quán)歸坐看風(fēng)云所有，未經(jīng)授權(quán)擅自修改、復(fù)制或散布本程序│
'│                                                                 │
'│的部分或全部，將承受嚴(yán)厲的民事和刑事處罰，對已知的違反者將給予法 │
'│                                                                 │
'│律范圍內(nèi)的全面制裁。對非法使用此程序所造成的一切后果本人概不負(fù)責(zé)!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%if IsTimeOut(Session("strAccount"),Session("strPassWord")) then Response.Redirect "index.asp"%>
<%if Session("intUserLevel") > 2 then%>
<%
dim rcID,Action,sqlDel,rsDel,FoundErr,ErrMsg,ObjInstalled
rcID=trim(request("rcID"))
	if instr(rcID,",")>0 then
		dim idarr,i
		idArr=split(rcID)
		for i = 0 to ubound(idArr)
			call DelArticle(clng(idarr(i)))
		next
	else
		call DelArticle(clng(rcID))
	end if
	
	sub DelArticle(ID)
	sqlDel="select * from Dat_Information where InfoKey=" & CLng(ID)
	Set rsDel= Server.CreateObject("ADODB.Recordset")
	rsDel.open sqlDel,conn,1,3
		rsDel.delete
		rsDel.update
		set rsDel=nothing
'/刪除供求信息的留言/
if  is_sqldata=0  then
sqlDelgqInfohf1 = "Delete From Dat_hf Where xxid = "&CLng(ID)
else
sqlDelgqInfohf1 = "Delete Dat_hf Where xxid = "&CLng(ID)
end  if	
		Conn.Execute sqlDelgqInfohf1
end sub
conn.close
set conn=nothing
		Response.Write "信息刪除成功..."
		Response.Write "<script language=""javascript"">this.close();this.opener.location='InfoMgr.asp';</script>"
		else
		Response.Redirect "index.asp"
		end if
%>