Question

asp，后台里删除数据条目时，不能同时删除相关的图片，求助。

代码：
if Request("Action")="del" Then
dim rs_apply,rs_apply1
set rs_apply=server.createobject("adodb.recordset")
sql="delete * from Ckk_ShangJia where id ="&Request("Id")
rs_apply.open sql,dsn,3,2
response.Redirect "ShangJia.asp"
response.End
end if

操作代码：
<td height="25"> <a href="?ID=<%=rstsj("ID")%>&Action=del" onClick="javascript:return confirm('请确认操作？')">删除</a> </td>

Answer 1

完毕！

Answer 2

if Request("Action")="del" Then
dim rs_apply,rs_apply1
set rs_apply=server.createobject("adodb.recordset")
sql="select * from Ckk_ShangJia where id ="&Request("Id")
rs_apply.open sql,dsn,1,2
If Not(rs_apply.Eof) Then
Dim oFSO
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
oFSO.DeleteFile(Server.MapPath(Rs("FilePath"))) '换成你要删除的文件对应的字段
Set oFSO = Nothing
End If
rs_apply.Delete
rs_apply.Close
response.Redirect "ShangJia.asp"
response.End
end if
SQL语句只是从数据库中删除记录,删除文件要用到FSO组件.

Answer 3

uy7yy