您正在使用IPV4(54.161.98.96)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】云产品限时秒杀,爆款1核2G云服务器,首年74元      
[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
2022年 情人节 18
2022年 元宵节 19
2023年 元 旦 339
2022年 春 节 5
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP/ASP.net >> 内容
    asp删除数据并同时删除图片的代码
    内容摘要: 第一种方法:这个是删除单字段图片的代码。比较简单,因为图片字段已经预先存在数据库表的bookpic的字段里面了。复制代码代码如下:%fileid=trim(request('fileid'))'要删除的记录IDsetrs=server.createobject('adodb.recordset')sql='select*fromshop_bookswhere......
    第一种方法:这个是删除单字段图片的代码。比较简单,因为图片字段已经预先存在数据库表的bookpic的字段里面了。

    复制代码代码如下:

    <%

    fileid=trim(request("fileid"))'要删除的记录ID

    setrs=server.createobject("adodb.recordset")

    sql="select*fromshop_bookswherebookid=3090"

    rs.opensql,conn,3,2

    upfile=rs("bookpic")'带路径和文件名

    setfso=server.CreateObject("scripting.filesystemobject")

    fso.deletefile(server.MapPath(upfile))

    setfso=nothing

    rs.delete

    rs.update

    rs.close

    setrs=nothing

    %>

    第二种方法:对于多图片的

    asp程序下大家在添加信息的时候可以用ewebeditor,这个可以将文章种的图片提取后放到一个字段里面。

    复制代码代码如下:

    Id=Request("Id")

    IfId=""Then

    Response.Write("")

    Else

    Id=Split(Id,",")

    Fori=0toUBound(Id)

    setoRs=SerVer.CreateObject("Adodb.recordset")

    sSql="SELECTD_SavePathFileNameFROM"&data&"WHEREID="&id(i)&""

    oRs.OpensSql,Conn,0,1

    IfNotoRs.EofThen

    asSavePathFileName=oRs("D_SavePathFileName")

    Else

    asSavePathFileName=""

    EndIf

    oRs.Close

    SetoRs=Nothing

    DimaSavePathFileName

    iflen(aSavePathFileName)>0then

    aSavePathFileName=Split(asSavePathFileName,"|")

    Dimn

    Forn=0ToUBound(aSavePathFileName)

    '按路径文件名删除文件

    CallDoDelFile(aSavePathFileName(n))

    Next

    '删除文章

    Conn.Execute("deletefromArticlewhereid="&id(i)&"")

    Next

    endif

    SubDoDelFile(sPathFile)

    'OnErrorResumeNext

    DimoFSO

    SetoFSO=Server.CreateObject("Scripting.FileSystemObject")

    ifobjFSO.fileExists(Server.MapPath(sPathFile))then

    oFSO.DeleteFile(Server.MapPath(sPathFile))

    endif

    SetoFSO=Nothing

    EndSub

    上一篇:判断服务器Microsoft.XMLDOM 下一篇:asp下过滤非法的SQL字符的函数代码
    发布日期:2022/1/11
    手机扫二维码直达本页
    发布时间:13:46:41
    点击:189
    录入:哲哲
    相关文章
    Baidu
    YiJiaCMS 6.1.0.10988 Build 21.12.28(MSSQL) 闽ICP备05000814号-1
    本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护

    Copyright©2000-2022