admin_del.asp

就是这样的一个源码

<%@ language=VBScript %>
<!--#include file="inc/conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="chk.asp"-->
<%
   id = Request("id")

sql_d="select top 1 times from article where id="&id&" order by id desc"
set rs_d=server.createobject("ADODB.Recordset")
rs_d.open sql_d,conn,1,1
ctime=rs_d("times")
    ctime = left(ctime,7)
    ctime = replace(ctime, "-", "")
fpath="\main\"&ctime&"\"&id&".htm"

set objfilesys=server.createobject("scripting.filesystemobject")
  fpath=server.mappath(fpath)
  if objfilesys.FILEExists(fpath) then
    objfilesys.deleteFILE fpath
  end if

   on error resume next
	sql = "delete * from article where id=" & id
	Set Rs = Server.CreateObject("ADODB.Recordset")
	Rs.open sql,conn,3,1
	Rs.close
  set Rs = nothing
  rconn.close
  set rconn = nothing
    response.redirect"admin_index.asp"
%>