| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 699 人关注过本帖
标题:如何将“/”转换成“\“?
取消只看楼主 加入收藏
zsl5566
Rank: 1
来 自:泉州
等 级:新手上路
帖 子:163
专家分:0
注 册:2006-12-12
收藏
 问题点数:0 回复次数:7 
如何将“/”转换成“\“?
在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
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
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
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
zsl5566
Rank: 1
来 自:泉州
等 级:新手上路
帖 子:163
专家分:0
注 册:2006-12-12
收藏
得分:0 

问题解决了,原来是我数据库PIC字段的长度设太长了,导致出错。
正确做法:
Sub DeleteAFile(filespec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.MapPath(filespec))
End Sub
sql="select * from web_Certificate where ID="&id
call xf.creaters(rs,sql,1)
add=rs("pic")
call DeleteAFile(add)


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



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

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