CSDN博客

img chinahuman

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

发表于2003/11/13 0:09:00  849人阅读

现在的新闻系统里越多地支持在线上传插入图片,以实现在比较好的效果。可是问题也随之而来了,有的图片传上去后,发现这个图片不对,那只能在编辑器里把它删掉,或是,在添加地程中系统出现问题,而导致垃圾图片的产生。为了防止在这过程中出现垃圾图片和附件,许多人多研究了不少的方法,如动网论坛里,对上传的每一个文件,在数据库里都有相应的一个记录,这样要占用一个表来存放,并且如果在添加数据到数据库里时系统出现异常,也同样无法避免这些垃圾的产生。经过我的一些实践,研究出我的方法,现在贡献出来,供大家斧正。
我的方法流程是这样的:当文章的添加者登录到系统里面后,由系统给它创建一个临时的工作文件夹,如“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 = "<img.+?>"
 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相对应的文件夹删除了,在用户登出的时候,也要把它的工作目录清空。
好了,我的整个思路就是这样的了,说不上是什么精品,但是它在实际的应用中,一年下来并没有产生过任何的意常,所以我就把它贴出来了,欢迎大家和我交流:E_mail:clzwin@sina.com

0 0

相关博文

我的热门文章

img
取 消
img