asp 데이터 삭제 및 그림 코드 삭제

 
<!--#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 
%> 

 
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