<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<!--#include file="../inc/setup.asp"-->
<!--#include file="../inc/sql.asp"-->
<%
	end if
	useflag=5
%>
<!--#include file="flag.asp"-->
<html>
<head>
<title>删除广告</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Include/Admin_Style.css" type=text/css rel=stylesheet>
</head>
<body topmargin="100">
<table width="90%" border="0" align="center" bgcolor="#FFFFFF" height="200">
  <tr>
    <td bgcolor="#FFFFFF"><table width="90%" border="0" align="center">
      <tr>
        <td>
          <div align="center">
            <%
dim filePath,ADID
filePath ="js"
IF request("deljs")="yes" THEN 
Set fso1 = CreateObject("Scripting.FileSystemObject")
fso1.DeleteFile(server.mappath("..\ad\" & filePath& "\" &  request("file")))
Set fso1 = nothing
%>
            恭喜您，已经成功删除<%=filePath& "\" &  request("file")%>了！！<a href="ad_list.asp">返回管理</a> 
          </div></td>
      </tr>
    </table></td>
  </tr>
</table>
<%
Response.end
END IF
if Request.QueryString("id")<> "" then
id = Request.QueryString("id")
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from [ad] where id=" & id
rs.Open sql,conn,1,3
ADID=rs("ADID")
rs.Delete 
set rs=nothing
conn.Close
set conn=nothing
%>恭喜您，已经成功删除编号为<%=id%>的广告了！！
<p>但其JS文件还在服务器上是否删除？？ （<a href="?deljs=yes&file=<%=adid%>.js" onClick="{if(confirm(&quot;您确定删除吗?本程序并不能清除放在网页中已放置的该广告代码，可能导致无法显示。&quot;)){return true;}return false;}">删除</a>   
<a href="list.asp" >不删除</a>）
<%
else
Response.Write "参数错误"
end if
%>
</td>
      </tr>
    </table></td>
  </tr>
</table>
</body>
</html>
