download_dell.asp

来自「功能最强大的ASP网站」· ASP 代码 · 共 28 行

<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
dim bhx
bhx="1"
 if (request("bh")<>"")then
bhx=request("bh")
end if
%>
<%
sql = "Select * from downloads where bh="+ bhx
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,2,3
FilePath=Server.MapPath("downloads/"&bhx&".html") 
Dim fso 
Set fso = CreateObject("Scripting.FileSystemObject") 
IF fso.FileExists(FilePath) Then 
fso.DeleteFile(FilePath) 
End IF 
Set fso = Nothing
%>
<%rs.delete%>
<%rs.close%>
<%set rs=nothing%>
<%
response.Redirect("admin_right.asp?url=manage_download.asp&reason=新闻删除成功,现在系统将转向管理下载页面!")
%>