请问嘉缘老师为什么你的程序上传图片后，当删除时却不能删除服务器上的图片呢？

studyfromyou 发表于 2005-11-30 08:52:35

请问嘉缘老师，我下载了你的求职程序2.15版，但是发现了一个问题，就是当在后台发布新闻，插入图片后，当想删除时，虽然删除了数据库中的文件，但是上传在服务器上的图片却仍然在，删不掉，请问这是怎么回事？请问怎样才能删除保留在服务器上的残余图片呢？否则，图片越来越多，就变成了垃圾了。万分感谢！
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
 另外，我曾下载过你的一个程序，也是关于图片上传的，下面的代码是表单提交后，即图片提交后到表单处理页面的：
from=upload.form("from") if upload.form("checkbox3")="1" then selectpic=1 else selectpic=0 end if iCount=0 for each formName in upload.file ''列出所有上传了的文件 set file=upload.file(formName)''生成一个文件对象 if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据 if file.filesize>150000 then HtmEnd "您上传的文件大于规定大小(50K),请改变文件大小后再进行上传。" else if trim(right(file.FileName,3))<>"jpg" and trim(right(file.FileName,3))<>"gif" then HtmEnd "您上传的文件GIF或JPG图象文件，请将你上传的文件转换此格式后再进行上传。" else file.SaveAs Server.mappath(formPath;file.FileName) ''保存文件 picurl=file.FileName iCount=iCount+1 end if end if end if set file=nothing next set rs=server.CreateObject("ADODB.RecordSet") rs.open "select * from news",conn,3,2 rs.addnew rs("title")=title rs("content")=replace(content," ",";nbsp;") rs("nfrom")=from rs("selectpic")=selectpic rs("typeid")=typeid rs("typename")=typename1 rs("tjnews")=tjnews rs("picurl")=picurl rs.update rs.close set rs=nothing conn.close set upload=nothing''删除此对象 Htmend iCount;" 个文件上传结束!" sub HtmEnd(Msg) set upload=nothing response.write " ";Msg;" [<a href=""javascript:history.back();"">返回</a>]</body></html>" response.end end sub %> </body> </html>

另外，还有一个插入文件：upload_5xsoft.inc

<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT> dim upfile_5xSoft_Stream Class upload_5xSoft dim Form,File,Version Private Sub Class_Initialize dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr if Request.TotalBytes<1 then Exit Sub set Form=CreateObject("Scripting.Dictionary") set File=CreateObject("Scripting.Dictionary") set upfile_5xSoft_Stream=CreateObject("Adodb.Stream") upfile_5xSoft_Stream.mode=3 upfile_5xSoft_Stream.type=1 upfile_5xSoft_Stream.open upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes)
vbEnter=Chr(13);Chr(10) iDivLen=inString(1,vbEnter)+1 strDiv=subString(1,iDivLen) iFormStart=iDivLen iFormEnd=inString(iformStart,strDiv)-1 while iFormStart < iFormEnd iStart=inString(iFormStart,"name=""") iEnd=inString(iStart+6,"""") mFormName=subString(iStart+6,iEnd-iStart-6) iFileNameStart=inString(iEnd+1,"filename=""") if iFileNameStart>0 and iFileNameStart<iFormEnd then iFileNameEnd=inString(iFileNameStart+10,"""") mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10) iStart=inString(iFileNameEnd+1,vbEnter;vbEnter) iEnd=inString(iStart+4,vbEnter;strDiv) if iEnd>iStart then mFileSize=iEnd-iStart-4 else mFileSize=0 end if set theFile=new FileInfo theFile.FileName=getFileName(mFileName) theFile.FilePath=getFilePath(mFileName) theFile.FileSize=mFileSize theFile.FileStart=iStart+4 theFile.FormName=FormName file.add mFormName,theFile else iStart=inString(iEnd+1,vbEnter;vbEnter) iEnd=inString(iStart+4,vbEnter;strDiv)
 if iEnd>iStart then mFormValue=subString(iStart+4,iEnd-iStart-4) else mFormValue="" end if form.Add mFormName,mFormValue end if
iFormStart=iformEnd+iDivLen iFormEnd=inString(iformStart,strDiv)-1 wend End Sub
Private Function subString(theStart,theLen) dim i,c,stemp upfile_5xSoft_Stream.Position=theStart-1 stemp="" for i=1 to theLen if upfile_5xSoft_Stream.EOS then Exit for c=ascB(upfile_5xSoft_Stream.Read(1)) If c > 127 Then if upfile_5xSoft_Stream.EOS then Exit for stemp=stemp;Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)));ChrB(c))) i=i+1 else stemp=stemp;Chr(c) End If Next subString=stemp End function
Private Function inString(theStart,varStr) dim i,j,bt,theLen,str InString=0 Str=toByte(varStr) theLen=LenB(Str) for i=theStart to upfile_5xSoft_Stream.Size-theLen if i>upfile_5xSoft_Stream.size then exit Function upfile_5xSoft_Stream.Position=i-1 if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then InString=i for j=2 to theLen if upfile_5xSoft_Stream.EOS then inString=0 Exit for end if if AscB(upfile_5xSoft_Stream.Read(1))<>AscB(MidB(Str,j,1)) then InString=0 Exit For end if next if InString<>0 then Exit Function end if next End Function
Private Sub Class_Terminate form.RemoveAll file.RemoveAll set form=nothing set file=nothing upfile_5xSoft_Stream.close set upfile_5xSoft_Stream=nothing End Sub Private function GetFilePath(FullPath) If FullPath <> "" Then GetFilePath = left(FullPath,InStrRev(FullPath, "\")) Else GetFilePath = "" End If Endfunction Private function GetFileName(FullPath) If FullPath <> "" Then GetFileName = mid(FullPath,InStrRev(FullPath, "\")+1) Else GetFileName = "" End If Endfunction
 Private function toByte(Str) dim i,iCode,c,iLow,iHigh toByte="" For i=1 To Len(Str) c=mid(Str,i,1) iCode =Asc(c) If iCode<0 Then iCode = iCode + 65535 If iCode>255 Then iLow = Left(Hex(Asc(c)),2) iHigh =Right(Hex(Asc(c)),2) toByte = toByte ; chrB(";H";iLow) ; chrB(";H";iHigh) Else toByte = toByte ; chrB(AscB(c)) End If Next End function End Class
 Class FileInfo dim FormName,FileName,FilePath,FileSize,FileStart Private Sub Class_Initialize FileName = "" FilePath = "" FileSize = 0 FileStart= 0 FormName = "" End Sub Public function SaveAs(FullPath) dim dr,ErrorChar,i SaveAs=1 if trim(fullpath)="" or FileSize=0 or FileStart=0 or FileName="" then exit function if FileStart=0 or right(fullpath,1)="/" then exit function set dr=CreateObject("Adodb.Stream") dr.Mode=3 dr.Type=1 dr.Open upfile_5xSoft_Stream.position=FileStart-1 upfile_5xSoft_Stream.copyto dr,FileSize dr.SaveToFile FullPath,2 dr.Close set dr=nothing SaveAs=0 end function End Class </SCRIPT>
这是前页的表单代码： <TD width="15%" align="right" height="30">上传图片：</TD> <TD width="85%"><INPUT NAME="file" TYPE="file" SIZE=60 maxlength=100 class="smallinput"></TD>

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
 问题是这样的，我从没有自已做过关于图片上传的程序，只知道一种是用服务器上传组件来完成，另一种是不用组件直接用asp代码上传保存到数据库中，请问上面的代码表示的是哪一种呢，能否指导一下，这样我就可以在网上搜索相关资料自已学习了。再次感谢。上面的代码同样一样，就是删除了新闻后，数据库中虽然没有了，但图片仍然还保留在服务器上。不知道用什么办法或语句可以删除掉。
 再再次致谢，希望有幸得到回复！

admin 发表于 2005-11-30 19:48:30

删除新闻中的图片需要服务器组件FSO读写支持，另外V2.15版本的程序新闻模块没有直接把上传的图片检测储存为新的数据，而是直接将上传后的新闻图片的路径代码保存到了新闻内容代码中，所以要删除该新闻中的图片，先得将里边的图片分析出来，然后用FSO执行删除。

roob 发表于 2008-3-7 16:32:32

V6也有这样的问题

原帖由 studyfromyou 于 2005-11-30 08:52 发表 http://bbs.yjys.net/images/common/back.gif
请问嘉缘老师，我下载了你的求职程序2.15版，但是发现了一个问题，就是当在后台发布新闻，插入图片后，当想删除时，虽然删除了数据库中的文件，但是上传在服务器上的图片却仍然在，删不掉，请问这是怎么回事？请 ...

admin 发表于 2008-3-8 17:59:55

V6 新闻内容中的图片？

页: [1]

嘉缘官方论坛's Archiver

请问嘉缘老师为什么你的程序上传图片后，当删除时却不能删除服务器上的图片呢？

V6也有这样的问题