sub DelArticle(ID)
sqlDel="select * from Product where ArticleID=" & CLng(ID)
Set rsDel= Server.CreateObject("ADODB.Recordset")
rsDel.open sqlDel,conn,1,3
if FoundErr=False then
if DelUpFiles="Yes" and ObjInstalled=True then
response.Write("Test")
dim fso,strUploadFiles,arrUploadFiles
strUploadFiles=rsDel("goodsPic") & "" '我只上传图片的
response.Write(strUploadFiles) '看看效果
if strUploadFiles<>"" then
Set fso = CreateObject("Scripting.FileSystemObject") '用的是FSO上传的
if fso.FileExists(server.MapPath("../UploadFiles/" & strUploadFiles)) then
fso.DeleteFile(server.MapPath("../UploadFiles/" & strUploadFiles))
end if
end if
Set fso = nothing
end if
end if
rsDel.delete '删除数据库记录
rsDel.update
set rsDel=nothing
end sub
FSO方式 进行操作处理的呢!
好好研究一下ASP中对文件的操作处理吧!
阅读(618) | 评论(0) | 转发(0) |