File Manager

<head>
<body>
	  <%

dim ors
id=request("id")
id_n=request("id_n")
id_attach=request("ida")

set ors=server.createobject("adodb.recordset")
	 sqlmark="Delete from attachment_res  where id_contact= '"&id&"' and id_attach='"&id_attach&"'"

sqlch="select id_contact,file_name from attachment_res where id_attach='"&id_attach&"'"
set orsch=server.createobject("adodb.recordset")
orsch.open sqlch,conn,1,3

if not orsch.eof then '�͹�á��������ͧ cfile �դ���� 0
		chf=orsch("file_name")
		response.write chf
		dim fs
		Set fs=Server.CreateObject("Scripting.FileSystemObject")
		if fs.FileExists(server.mappath("upload/"&chf&"")) then
		fs.DeleteFile(server.mappath("upload/"&chf&""))
		end if
			
		end if
		ors.Open sqlmark, conn, 1, 3
	%>
<SCRIPT LANGUAGE="JavaScript">
<%

response.write"alert('ź���������º���¤��');"

%>
		-->
		</SCRIPT>
		<%
		response.write "<meta http-equiv='refresh' content ='0;url=attachment_file.asp?id="&id&"'>"

Conn.Close

'end if
%>
</FORM>
</body>
</head>
 <%	'else '���Է�
	'response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
'response.write "<meta http-equiv=refresh content =4;url=javascript:history.back();>" '���Է�
	'end if '���Է�
%>

File Manager

Editing: del_attach_res.asp