Chinaunix首页 | 论坛 | 博客
  • 博客访问: 29312508
  • 博文数量: 2065
  • 博客积分: 10377
  • 博客等级: 上将
  • 技术积分: 21525
  • 用 户 组: 普通用户
  • 注册时间: 2008-11-04 17:50
文章分类

全部博文(2065)

文章存档

2012年(2)

2011年(19)

2010年(1160)

2009年(969)

2008年(153)

分类: 系统运维

2009-01-01 20:29:16

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) |
给主人留下些什么吧!~~