delefile.asp

关于网络渗透技术的详细讲解

<%
	if session("flag")>2 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
%>
<!--#include file="conn.asp"-->
<%
fn=request("delfn")
delid=request("delid")
set rs=server.createobject("adodb.recordset")
sql="delete from wj where id="&delid
conn.execute sql
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(Server.MapPath("upfiles/"&fn))
rs.close
conn.close
set rs=nothing
set conn=nothing
set objfso=nothing
response.redirect "filemanage.asp"
%>