主题:急急~~~~~如何利用Asp语句删除己上传到Web服务器上的图片与文件夹?
同上。。。懂得起的兄弟 请加我QQ 360947808 加QQ时请注明原因
在线等你回。。。。谢谢
回复人:Fanxr(ZhangFan) 二级(初级) 信誉:100 2005-3-16 20:49:19 得分:0
|
|
需要FSO的支持才行，看MS的帮助就OK了。
| | TOP |
回复人:hotlion(数码狂人) 三级(初级) 信誉:97 2005-3-16 20:57:33 得分:0
|
|
删除文件的代码我就有，不过删除文件夹我就没有试过。
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(filepath)
Set fso = nothing
其中，filepath为要删除文件的绝对路径及文件名，如果不知道服务器上的绝对路径，可使用server.mapPath("filename")来获取。
| | TOP |
回复人:Aspclass(Asp初学者) 一级(初级) 信誉:100 2005-3-16 21:10:00 得分:0
|
|
我也是这样写的。。客观存在说我在传递iD号时操作符丢失了，我明明是传递了的。为什么读不出来
| | TOP |
回复人:hotlion(数码狂人) 三级(初级) 信誉:97 2005-3-17 9:09:53 得分:0
|
回复人:yxhzj(余华[学习J2EE中]) 一星(中级) 信誉:90 2005-3-17 9:20:53 得分:0
|
回复人:Aspclass(Asp初学者) 一级(初级) 信誉:100 2005-3-17 9:22:20 得分:0
|
|
我是在前面一个页面读取出了它存在数据库的路径 。可是我在传递它的ID号时出现了：
icrosoft JET Database Engine 错误 '80040e14'
语法错误 (操作符丢失) 在查询表达式 'Logo_id=' 中。
/DelLogo.asp，行12
我是这样写的
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Link.asp" -->
<%
Dim filename,id,msg
filename=Trim(Request.QueryString("Logo"))
if filename="" then filename="X" end if
id =Trim(Request.QueryString("Logo_id"))
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Path = filename
'response.End()
conn.execute ("delete from Web_Logo Where Logo_id=" & id)
If fs.FileExists(server.mappath(Path)) Then
Set Os = Fs.GetFile(server.mappath(Path))
Os.Delete
msg = "<font color='red'><b>"& replace(Path,"upload/","") &"</b></font> 已被删除！"
Else
msg = "<font color='red'><b>"& Path &"</b></font> 此图片不存在！数据已被删除！"
End If
%>
这样我就不知道是错出在哪里了。。。请求帮助...
| | TOP |
回复人:Aspclass(Asp初学者) 一级(初级) 信誉:100 2005-3-17 9:37:52 得分:0
|
回复人:sunshift(Love_Computer) 二级(初级) 信誉:100 2005-3-17 12:27:01 得分:20
|
|
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Link.asp" -->
<%
Dim filename,id,msg
''''''''''''''''''''''''
filename=Trim(Request("Logo")) ''''''''''Love_Computer
''''''''''''''''''''''''''''''''''
if filename="" then filename="X" end if
'''''''''''''''''''''''''''''''''''''''''
id =Trim(Request("Logo_id")) ''''''''''Love_Computer
''''''''''''''''''''''''''''''''''''
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Path = filename
'''''''''''''''''''
Response.Write "id=" & id ''''''''''Love_Computer
''''''''''''''''''''''
'response.End()
conn.execute ("delete from Web_Logo Where Logo_id=" & id)
If fs.FileExists(server.mappath(Path)) Then
Set Os = Fs.GetFile(server.mappath(Path))
Os.Delete
msg = "<font color='red'><b>"& replace(Path,"upload/","") &"</b></font> 已被删除！"
Else
msg = "<font color='red'><b>"& Path &"</b></font> 此图片不存在！数据已被删除！"
End If
%>
| | TOP |
该问题已经结贴 ，得分记录：sunshift(20)、
|