| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 699 人关注过本帖
标题:如何将“/”转换成“\“?
只看楼主 加入收藏
zsl5566
Rank: 1
来 自:泉州
等 级:新手上路
帖 子:163
专家分:0
注 册:2006-12-12
收藏
 问题点数:0 回复次数:10 
如何将“/”转换成“\“?
在ASP中,在删除产品的时候想将当时上传的图片一起删除掉,图片在数据库中的存储数据如下:
/xiefu/uploadfile/Certificate/2007-8/200783175840.jpg

想调用
Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filespec)
End Sub
来实现删除图片功能。。但FILESPEC的路径必须是\xiefu\uploadfile\Certificate\2007-8\200783175840.jpg这样的,哪位仁兄有什么办法将上面的“/”转换成“\”,谢谢!1?
搜索更多相关主题的帖子: 图片 数据库 如何 
2007-08-06 08:46
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.MapPath(filespec))
End Sub
存Url路径的话直接让服务器返回物理路径然后删除。
2007-08-06 09:41
zsl5566
Rank: 1
来 自:泉州
等 级:新手上路
帖 子:163
专家分:0
注 册:2006-12-12
收藏
得分:0 

不大明白也,,
改成:
Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.MapPath(filespec))
End Sub
测试后还是出错。

图片附件: 游客没有浏览图片的权限,请 登录注册


不要给准备要做的事寻找失败的理由~~
2007-08-06 09:51
zsl5566
Rank: 1
来 自:泉州
等 级:新手上路
帖 子:163
专家分:0
注 册:2006-12-12
收藏
得分:0 
老大!!帮帮忙!!

不要给准备要做的事寻找失败的理由~~
2007-08-06 11:11
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 

应该是图片的路径错误。

response.Write(Server.MapPath(filespec))

看看路径和实际路径是否相同


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-08-06 11:48
zsl5566
Rank: 1
来 自:泉州
等 级:新手上路
帖 子:163
专家分:0
注 册:2006-12-12
收藏
得分:0 
路径参数超过最允许长度

不要给准备要做的事寻找失败的理由~~
2007-08-06 11:54
zsl5566
Rank: 1
来 自:泉州
等 级:新手上路
帖 子:163
专家分:0
注 册:2006-12-12
收藏
得分:0 

不要给准备要做的事寻找失败的理由~~
2007-08-06 14:12
zsl5566
Rank: 1
来 自:泉州
等 级:新手上路
帖 子:163
专家分:0
注 册:2006-12-12
收藏
得分:0 

读取的路径是
F:\xiefu1\xiefu\uploadfile\certificate\2007-8\200787155631.jpg
这路径和实际路径是一样的,但是他还是出错,提示
文件找不到!!!


不要给准备要做的事寻找失败的理由~~
2007-08-07 16:12
愿望
Rank: 1
等 级:新手上路
威 望:1
帖 子:111
专家分:0
注 册:2007-7-28
收藏
得分:0 
这个~实在不行的话你看一下你的 IIS 虚拟目录,是不是设成独立应用了
有可能是权限的问题
另外可以用
fso.FileExists(Server.MapPath(filespec))
判断文件是否存在,你可以试一下这条语句

2007-08-08 09:06
zsl5566
Rank: 1
来 自:泉州
等 级:新手上路
帖 子:163
专家分:0
注 册:2006-12-12
收藏
得分:0 

先说明一下吧:
Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filespec)
End Sub
直接在代码中输入:
add="F:\xiefu1\xiefu\uploadfile\certificate\2007-8\200787155631.jpg"
call DeleteAFile(add)
这样是可以执行删除 F:\xiefu1\xiefu\uploadfile\certificate\2007-8\200787155631.jpg这个文件
因为我要删除的文件是动态的,地址是从数据库中读取出来的
读取的地址:add=rs("Pic") 路径是:/xiefu/uploadfile/certificate/2007-8/200787155631.jpg
然后调用:call DeleteAFile(add) 测试,提示无效路径
因为路径前面部分是一样的,所以我又换成这样写:
sql="select * from web_Certificate where ID="&id
call xf.creaters(rs,sql,1)
add=rs("pic")
add1=Split(add,"/",-1,1)
add2="F:\xiefu1\xiefu\uploadfile\certificate\"&add1(4)"\"&add1(5)
call DeleteAFile(add2)
测试后,错误提示是:文件未找到。
我有试过
response.Write(add2)
显示的路径是正确的 F:\xiefu1\xiefu\uploadfile\certificate\2007-8\200787155631.jpg
但是就是不知道为什么不能正确执行删除功能。

请斑竹帮忙看看如何解决,或者有没有其他方法!谢谢各位的答复1!



不要给准备要做的事寻找失败的理由~~
2007-08-08 09:55
快速回复:如何将“/”转换成“\“?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.018788 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved