ACTIVE SERVER PAGE

게시판의 글 삭제와 별반 차이가 없다. 단, 파일명을 취하여, 파일이 존재했을시엔 FSO 컴포넌트를 사용해 삭제해 주었다.
 

	
		<%	  
		tname=request("tname")
		dbname=request("dbname")
	    
		Set db = Server.CreateObject("ADODB.Connection")
		db.Open("dsn=xxx;uid=sa;pwd=;database="&dbname)
	
		SQL = "select * from " & tname & " where  num = " & request("num")  
		Set rs = Server.CreateObject("ADODB.RecordSet")
		rs.Open SQL,db
	     
		filename=trim(rs("file_name"))
		
		if filename<>"없음" then 
			filename="c:\inetpub\wwwroot\download\"&filename
			set fs=createobject("scripting.filesystemobject")
	        	fs.deletefile(filename)
	    	end if
	       
		SQL1 = " DELETE FROM databank where num = " & request("num")       
		db.execute SQL1
		%>