我是一个什么都不太懂的人!清各位大哥帮忙写段代码!
我写了一个图片上传的程序!但是我不能实现删除!
如果我从数据库中取出 变量src1 (图片路径),然后我应该怎么写删除图片的程序!
谢谢!如果不介意的话!希望可以得到详细的代码!
---------------------------------------------------------------
如果你能写文件，那说明权限上没有问题，可能是你删除的程序把图片路径弄错了
objFSO.DeleteFile(物理路径 & "1.gif")
---------------------------------------------------------------
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(物理路径 & "1.gif")
set objFSO=nothing
或
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(Server.MapPath("/images/1.gif"))
set objFSO=nothing
你可以试试 response.write 物理路径 & "1.gif" ，看看，你的文件是不是在这个目录下。
---------------------------------------------------------------
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists(物理路径 & "1.gif") then
objFSO.DeleteFile(物理路径 & "1.gif")
end if
set objFSO=nothing
---------------------------------------------------------------
<%
response.buffer=true
Response.Expires =0
sub DelAllFile(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
fso.deletefile(f1)
Next
End sub
delfile=server.mappath("/temp")
DelAllFile(delfile)
dim filename,filename1
filename=request("filename")
filename=replace(filename,"/","")
'response.write(filename)
'response.end
filename1=filename
set fs=server.createobject("Scripting.FileSystemObject")
if fs.FileExists(filename) then
set f=fs.getfile(filename)
sub hoho()
temp1=instr(1,filename1,"",1)
temp2=len(filename1)
filename1=right(filename1,temp2-temp1)
end sub
while instr(1,filename1,"",1)
call hoho
wend
f.copy server.mappath("../temp/"+filename1),true
set f=nothing
set fs=nothing
'response.write(filename1)
response.redirect "../temp/"&filename1
'server.execute "../temp/"&filename1
else
Response.Write("
1<body background="../images/diwen.gif">")
2Response.Write("<center>")
3response.write "<font color="red">文 件 不 存 在！</font>"
4Response.Write("<br/><input onclick="window.close()" type="button" value="关闭"/>")
5end if
6\---------------------------------------------------------------
7
8try:
9set fso = Server.CreateObject("Scripting.FileSystemObject")
10filename = trim(rs("filename"))
11fso.DeleteFile filename</center></body>