dele.asp

来自「实现一定上传功能」· ASP 代码 · 共 28 行

<%@ LANGUAGE="VBSCRIPT" %>
<!--#include file="articleconn.asp"-->
<%
IF Session("KEY")<>"super"THEN
	response.redirect "mymanage.asp"
	response.end
END IF
%>
<%
   dim sql 
   dim rs
   path=request("path")
   file=request("file")
   
   set rs=server.createobject("adodb.recordset")
   sql="delete from article where newsid="&request("ID")
   rs.open sql,conn,1,1
   rs.close
   set rs=nothing  
   conn.close
   set conn=nothing
    FiLePaTh = Server.MapPath(".")& "\" & path& "\" &file
 Set fso = CreateObject("Scripting.FileSystemObject")
 fso.DeleteFile(filepath)
    Set fso = nothing
   response.redirect "newschk.asp"
%>