<!--#include file="../../fy.Function.asp"-->
<%
		Dim modeid,id,rs
		id=ChkNumeric(fycms.s("id"))
		modeid=ChkNumeric(fycms.s("modeid"))
 		Set rs=fycms.actexe("Select * from syspic Where id=" & ID & " ")
 		
 		
		If Not rs.eof  Then
 			Call  fycms.DeleteFile(Rs("picurl"))
			Conn.execute("Delete from Upload_fy  Where UpfileDir= '"&Rs("picurl")&"'")
			Conn.execute("Delete from syspic  Where id= "&Rs("id"))
		End If 
%>