www.gusucode.com > 中网景企业网站管理系统 2008源码程序 > admin/upload_del_file.asp
<% function del_img(path,filename) whichfile=server.mappath(path&filename) Set fs = CreateObject("Scripting.FileSystemObject") If fs.FileExists(whichfile) Then Set thisfile = fs.GetFile(whichfile) thisfile.Delete True End If end function '给行id,路径,字段名,表 function del_image(id,path,filename,table) set delrs=server.createobject("ADODB.Recordset") delrs.open "select "&filename&" from "&table&" where id="&id,conn,1,3 if delrs(""&filename&"")<>"" then del_img path,delrs(""&filename&"") '删除图片文件 end if delrs(""&filename&"")="" '设置表字段为空 delrs.update set delrs=nothing end function %>