海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
实现删除记录同时删除图片，一般的情况为了性能都是用编辑器的同时将文章中的图片，保存在一个字段里面，多个图片用逗号分开，方便后期的删除处理。

第一种方法:这个是删除单字段图片的代码。比较简单，因为图片字段已经预先存在数据库表的bookpic的字段里面了。

<!--#include file="conn.asp"--> 
<% 
fileid=trim(request("fileid"))'要删除的记录ID 
set rs=server.createobject("adodb.recordset") 
sql="select * from shop_books where bookid=3090" 
rs.open sql,conn,3,2 
upfile=rs("bookpic") '带路径和文件名 
set fso=server.CreateObject("scripting.filesystemobject") 
fso.deletefile(server.MapPath(upfile)) 
set fso=nothing 
rs.delete 
rs.update 
rs.close 
set rs=nothing 
%> 

第二种方法：对于多图片的
asp程序下大家在添加信息的时候可以用ewebeditor，这个可以将文章种的图片提取后放到一个字段里面。

Id=Request("Id") 
If Id="" Then 
Response.Write("<script>alert('删除操作失败：请选择需要删除的信息！');hitory.go(-1);</script>") 
Else 
Id=Split(Id,",") 
For i=0 to UBound(Id) 
set oRs=SerVer.CreateObject("Adodb.recordset") 
sSql = "SELECT D_SavePathFileName FROM "&data&" WHERE ID="&id(i)&"" 
oRs.Open sSql, Conn, 0, 1 
If Not oRs.Eof Then 
asSavePathFileName = oRs("D_SavePathFileName") 
Else 
asSavePathFileName="" 
End If 
oRs.Close 
Set oRs=Nothing 
Dim aSavePathFileName 
if len(aSavePathFileName)>0 then 
aSavePathFileName = Split(asSavePathFileName, "|") 
Dim n 
For n = 0 To UBound(aSavePathFileName) 
' 按路径文件名删除文件 
Call DoDelFile(aSavePathFileName(n)) 
Next 
'删除文章 www.jb51.net 
Conn.Execute("delete from Article where id="&id(i)&"") 
Next 
end if 
Sub DoDelFile(sPathFile) 
'On Error Resume Next 
Dim oFSO 
Set oFSO = Server.CreateObject("Scripting.FileSystemObject") 
if objFSO.fileExists(Server.MapPath(sPathFile)) then 
oFSO.DeleteFile(Server.MapPath(sPathFile)) 
end if 
Set oFSO = Nothing 
End Sub 

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!