[求助]我求助了5天了，都没有人会吗？ - ASP技术论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → WEB开发 → 『 ASP技术论坛』 → [求助]我求助了5天了，都没有人会吗？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 541 人关注过本帖

标题：[求助]我求助了5天了，都没有人会吗？

只看楼主加入收藏

diana

等　级：新手上路
帖　子：7
专家分：0
注　册：2006-3-23

楼主

问题点数：0 回复次数：6

[求助]我求助了5天了，都没有人会吗？

大家好：请帮忙看看我错在了什么地方？非常非常感谢哦~~`````````

我想要通过点击“删除文件”的超级连接，删除images文件夹下的1.jpg和2.jpg两个图象文件，可是总是执行出问题，提示说：“Microsoft VBScript 运行时错误 (0x800A0035)文件未找到”请大家帮忙看看，问题出在什么地方？？代码如下：

<%
if request("action")="del" then
dim objfso,imgg ,imgg2
imgg=request("photo")
imgg2=request("photo2")
set objfso=server.createobject("scripting.filesystemobject")
objfso.deletefile(server.mappath("\images\imgg"))
objfso.deletefile(server.mappath("\images\imgg2"))
set objfso=nothing
end if
%>

[a href="1.asp?photo=1.jpg&photo2=2.jpg&action=del"] 删除图片 [/a]

搜索更多相关主题的帖子: 文件夹　 Microsoft　request　images　

2006-03-25 12:38

diana

等　级：新手上路
帖　子：7
专家分：0
注　册：2006-3-23

第 2 楼

得分:0

该为：
("/images/imgg"))
("/images/imgg2"))
也没有成功，~~``好郁闷哦~~~~~~~```帮帮我吧```

2006-03-25 12:40

luchao

等　级：新手上路
帖　子：110
专家分：0
注　册：2005-11-30

第 3 楼

得分:0

有者两个文件吗？有的话输出一下server.mappath()看看地址是否正确

2006-03-25 13:03

本刚

等　级：新手上路
威　望：1
帖　子：192
专家分：0
注　册：2005-12-3

第 4 楼

得分:0

<a href="1.asp?photo=1.jpg&photo2=2.jpg&action=del"> 删除图片 </a>
<%
if request("action")="del" then
dim objfso
set objfso=server.createobject("scripting.filesystemobject")
objfso.deletefile(server.mappath("1.jpg"))
objfso.deletefile(server.mappath("2.jpg"))
set objfso=nothing
end if
%>
当然如果你不想判断文件是否存在的话
必须要有这两个图片在
不然会出错

我的网站 http://6asp. 欢迎指教。

2006-03-25 13:29

无根泉

等　级：新手上路
威　望：4
帖　子：853
专家分：0
注　册：2004-11-4

第 5 楼

得分:0

先判断
imgg=server.mappath("imgg")
imgg2=server.mappath("img")
if objfso.fileexists(imgg)=true and objfso.fileexists(imgg2)=true then
objfso.deletefile(imgg)

objfso.deletefile(imgg2)

end if

我很菜，但我很努力！

2006-03-25 14:08

本刚

等　级：新手上路
威　望：1
帖　子：192
专家分：0
注　册：2005-12-3

第 6 楼

得分:0

同意楼上说的

我的网站 http://6asp. 欢迎指教。

2006-03-25 15:32

diana

等　级：新手上路
帖　子：7
专家分：0
注　册：2006-3-23

第 7 楼

得分:0

已经发现问题的了，
是语法的错误：
<%
if request("action")="del" then
dim objfso,imgg ,imgg2
imgg=request("photo")
imgg2=request("photo2")
set objfso=server.createobject("scripting.filesystemobject")
objfso.deletefile(server.mappath("\images\imgg"))
objfso.deletefile(server.mappath("\images\imgg2"))
set objfso=nothing
end if
%>

改为：
objfso.deletefile(server.mappath("\images")&imgg")
就可以了哦，呵呵，谢谢楼上朋友的意见，

[此贴子已经被作者于2006-3-25 17:11:52编辑过]

2006-03-25 17:08

快速回复：[求助]我求助了5天了，都没有人会吗？