Foxtable(狐表)用户栏目专家坐堂 → 没有使用Uploader,已知服务器图片的路径,如何删除此图片?


  共有1963人关注过本帖树形打印复制链接

主题:没有使用Uploader,已知服务器图片的路径,如何删除此图片?

帅哥哟,离线,有人找我吗?
zhangjian222200
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:11003 威望:0 精华:0 注册:2016/9/12 11:18:00
没有使用Uploader,已知服务器图片的路径,如何删除此图片?  发帖心情 Post By:2017/7/20 12:08:00 [只看该作者]

如题:

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/20 12:25:00 [只看该作者]

 给服务器发送一个请求,如 delete.htm?file=abc.jpg

 

 然后服务器取出abc.jpg删除


 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:11003 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2017/7/20 14:20:00 [只看该作者]

Dim zs As String '定义,生活照删除,路径
For Each key As String In e.PostValues.Keys
    If key Like "shenghzsc*" Then
        zs = e.PostValues(key) '定义,生活照删除,路径
        msgbox(key)
        1.图片完整路径是:e:\web\zs.split("\")(1)\zs.split("\")(2) '如何删除此照片?
    End If
Next


[此贴子已经被作者于2017/7/20 14:30:12编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/20 14:22:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:11003 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2017/7/20 14:31:00 [只看该作者]

单元格内有多行图片路径,如何将其中一行路径删除?

        For Each zhaop As String In dr.Lines("生活照")
            'msgbox(zhaop) '即如何将zhaop,在单元格内删除?
        Next
[此贴子已经被作者于2017/7/20 14:45:24编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/20 14:52:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
zhangjian222200
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1553 积分:11003 威望:0 精华:0 注册:2016/9/12 11:18:00
  发帖心情 Post By:2017/7/21 16:22:00 [只看该作者]

删除某个单元格内,多行其中的一行,应该怎么写代码?
                        For Each zhaop As String In igl.Lines("展示照")
                            If zhaop = zhanszclwjj & "\" & zhanszclwjm Then
                                zhaop.Remove()
                                igl.save
                            End If
                        Next
保存提示错误:

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170721161940000.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2017/7/21 16:23:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/21 16:39:00 [只看该作者]

Dim ls = igl.Lines("展示照")
ls.Remove(zhanszclwjj & "\" & zhanszclwjm)
igl.Lines("展示照") = ls
 

 回到顶部