·您的位置: 首页 » 资源教程 » 编程开发 » ASP » 防止新闻系统里产生垃圾图片的方法

防止新闻系统里产生垃圾图片的方法

类别: ASP教程  评论数:0 总得分:0
现在的新闻系统里越多地支持在线上传插入图片,以实现在比较好的效果。可是问题也随之而来了,有的图片传上去后,发现这个图片不对,那只能在编辑器里把它删掉,或是,在添加地程中系统出现问题,而导致垃圾图片的产生。为了防止在这过程中出现垃圾图片和附件,许多人多研究了不少的方法,如动网论坛里,对上传的每一个文件,在数据库里都有相应的一个记录,这样要占用一个表来存放,并且如果在添加数据到数据库里时系统出现异常,也同样无法避免这些垃圾的产生。经过我的一些实践,研究出我的方法,现在贡献出来,供大家斧正。
  我的方法流程是这样的:当文章的添加者登录到系统里面后,由系统给它创建一个临时的工作文件夹,如“editor”这个用户的ID是5那我建立一个temp5的临时工作目录,当他添加文章的时候,上传的图片和其它附件并不存入到真正要显示存放的目录,而是存在这个临时的工作目录里面。同时为了方便管理,我建议给每一条新闻建一个目录来存放这些图片,当文章提交的时候,由系统分析里面的图片地址,把文章里面有的图片转移到这些对应的目录里面去。
  当新闻或文章改动的时候,就先把这个文件夹下面的所有图片转移到进入的时候的临时工作目录里面,同时对文章里面的图片路径进行替换,保存的时候也是和添加的时候执行同一个过程。当文章删除的时候,也相对应地把这个目录删掉,这就可以保证了在添加、修改、删除的过程中没有垃圾图片的产生。当用户登出的时候,系统可以将其所对应的工作目录删除,这样就可以彻底地作到没有垃圾的产生。
  看到上面这些文字描述也许好多人要头晕了,那看一下具体的实现过程吧(因为我对ASP比较熟悉,所以我用ASP来实现它了,用其它的平台也是可以实现的)。首先让我先引入我自己写的一个类,用来分析和转移图片的,详细的说明请看我的另一篇文章:用asp自动解析网页中的图片地址,并将其保存到本地服务器(http://www.csdn.net/develop/read_article.asp?id=15585)
  class blacksmith
  \'The Class "blacksmith" is Created by Linzhang Chen
   \'It could use for copy images form other server which contain in the web
   dim       size,baseurl,basefilename,tofolder,servername,processstr,firstoldimg,firstnewimg
   public Function saveimage(from, tofile)
   Dim geturl, objStream, imgs,s
   If size = "" Then
   size = 0
   End If
   geturl = Trim(from)
   imgs = getHTTPPage(geturl)
   s = size * 512
   If Len(imgs) > s Then
   Set objStream = CreateObject("ADODB.Stream")
   objStream.Type = 1
   objStream.Open
   objStream.Write imgs
   objStream.SaveToFile tofile, 2
   objStream.Close
   Set objStream = Nothing
   saveimage = True
   Else
   saveimage = False
   End If
   End Function
  
   private Function getHTTPPage(url)
   On Error Resume Next
   Dim http
   Set http = CreateObject("MSXML2.XMLHTTP")
   http.Open "GET", url, False
   http.send
   If http.readyState <> 4 Then
   Exit Function
   End If
   getHTTPPage = http.responseBody
   Set http = Nothing
   If Err.Number <> 0 Then Err.Clear
   End Function

   private Function getimgs(str)
   getimgs = ""
   Set objRegExp1 = New RegExp
   objRegExp1.IgnoreCase = True
   objRegExp1.Global = True
   objRegExp1.Pattern = "http://.+?"""
   Set mm = objRegExp1.Execute(str)
   For Each Match1 In mm
   getimgs = getimgs & "||" & Left(Match1.Value, Len(Match1.Value) - 1)
   Next
   End Function
  
   Function str2img()
   Dim servername, objRegExp, strs, Matches, RetStr, arrimg, newimg, i, fname, states, arrnew, arrall
   if baseurl<>"" then
   If Right(baseurl, 1) <> "/" Then
   baseurl = baseurl & "/"
   End If
   end if
   if right(tofolder,1)<>"" then
   tofolder=tofolder&""
   end if
   Set objRegExp = New RegExp
   objRegExp.IgnoreCase = True
   objRegExp.Global = True
   objRegExp.Pattern = ""
   strs = Trim(processstr)
   Set Matches = objRegExp.Execute(strs)
   For Each Match In Matches
   RetStr = RetStr & getimgs(Match.Value)
   Next
   arrimg = Split(RetStr, "||")
   allimg = ""
   newimg = ""
   For i = 1 To UBound(arrimg)
   If arrimg(i) <> "" And InStr(allimg, arrimg(i)) < 1 Then
   fname1 = baseurl & CStr(basefilename & i & Mid(arrimg(i), InStrRev(arrimg(i), ".")))
   fname = tofolder & CStr(basefilename & i & Mid(arrimg(i), InStrRev(arrimg(i), ".")))
   states = saveimage(arrimg(i), fname)
   If states = True Then
   allimg = allimg & "||" & arrimg(i)
   newimg = newimg & "||" & fname1
   End If
   End If
   Next
   arrnew = Split(newimg, "||")
   arrall = Split(allimg, "||")
   For i = 1 To UBound(arrnew)
   if i=1 then
   firstoldimg=arrall(1)
   firstnewimg=arrnew(1)
   end if
   strs = Replace(strs, arrall(i), arrnew(i))
   Next
   str2img = strs
   End Function
  end class
  第一步用户登录的时候:由于有一个工作区,所以最好不要让多个用户用同一个帐号不然到时候有人登出的时候,将会造成其它人的工作丢失,这里最主要处理的是帐户登录的时候要对这个帐号锁定不允许重复登录(主要由FSO和数据库来实现,我就不多说了)。
  在处理文件上传的时候,可以用稻香老农的无组件上传,把图片传到工作区中。并且把图片代码返回到编辑器中,当提交以后,将由以下代码来处理这些图片,我这里是根据新闻或文章的ID来创建文件夹的:
  sql="select top 1 form news where id is null"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,1,3
  rs.addnew
  rs("userid")=session("myid")\'因为是新加的,所以先加上一条来取得ID
  rs.update
  newID=rs("newsid")\'大部分情况下,这样可以取得ID的,可是为了保险起见,所以最好还是再判断一下了
  rs.close
  set rs=nothing
  if newsID="" then
  set rs=conn.execute("select top 1 newsid from news where userid=" & session("myid") & " order by newsid desc")
  newsID=rs("newsid")
  end if
  
  basefoder=server.mappath("photo")\'假设图片存到当前目录下面的photo里面
  set fso=Server.CreateObject("Scripting.FileSystemObject")
  FiLePaTh = basefoder&"/"&newsID
  Fso.Createfolder(FiLePaTh)
  \'假设将取得新闻的内容存在变量content里面下面就调用我的那个类blacksmith来处理分析文章的内容,处理图片的转移了
  set bs=new blacksmith
  bs.size=1
  bs.baseurl="photo/"&newsID\'给图片加上目录的地址
  bs.basefilename="mynews"\'给图片加上前缀
  bs.servername = ""
  bs.tofolder=FiLePaTh
  bs.processstr=content
  content=bs.str2img
  set bs=nothing
  \'接下来就是新闻内容的保存的过程了,我这里就省去了,和其它的系统应该是一样的了

  在处理新闻的修改的时候用:
  \'创建工作目录
  set fso=Server.CreateObject("Scripting.FileSystemObject")
  FiLePaTh = server.mappath("temp"&session("myid"))
  If Not FSO.FolderExists(FiLePaTh) Then
  Fso.Createfolder(FiLePaTh)
  End If
  
  FiLePaTh = basefoder&"/"&newsID
  If FSO.FolderExists(fp) Then
  on error resume next
  fso.copyfile fp&"*.*",FiLePaTh&""\'把那个目录下面的所有文件全拷到工作目录下面,防止出现修改了不保存,所以先不删除原有的内容
  if err.num>0 then err.clear
  End If
set fso=nothing
  end if
  \'把原有的文件内容进行处理,改变里面的图片路径,比如说这此内容还是保存在content里面
content =replace(trim(content,"photo/"&newsID&"/mynews","temp"&session ("myid")&"/mynews")\'这个只是一个比较简单的替换,相信由此引起误替换的机会应该是相当小的了
  保存的过程和添加的过程是一样的,所不同的是,要先把原来的那个目录里面的文件清空,我这里就不多说了。
  新闻删除的时候,要记着把这个ID相对应的文件夹删除了,在用户登出的时候,也要把它的工作目录清空。
  好了,我的整个思路就是这样的了,说不上是什么精品,但是它在实际的应用中,一年下来并没有产生过任何的意常,所以我就把它贴出来了。
-= 资 源 教 程 =-
文 章 搜 索
关键词:
类型:
范围:
纯粹空间 softpure.com
Copyright © 2006-2008 暖阳制作 版权所有
QQ: 15242663 (拒绝闲聊)  Email: faisun@sina.com
 纯粹空间 - 韩国酷站|酷站欣赏|教程大全|资源下载|免费博客|美女壁纸|设计素材|技术论坛   Valid XHTML 1.0 Transitional
百度搜索 谷歌搜索 Alexa搜索 | 粤ICP备19116064号-1