admin_del.asp

功能最强大的ASP网站

<!--#include file="conn.asp"-->
<!--#include file="setting.asp"-->
<%
dim bhx
bhx="1"
 if (request("bh")<>"")then
bhx=request("bh")
end if
%>
<%
sql = "Select * from news where bh="+ bhx
Set rs = Server.CreateObject ("ADODB.Recordset")
rs.Open sql,conn,2,3
FilePath=Server.MapPath("files/"&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=admin_info.asp&reason=成功删除")
%>