分享
 
 
 

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

王朝other·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

现在的新闻系统里越多地支持在线上传插入图片,以实现在比较好的效果。可是问题也随之而来了,有的图片传上去后,发现这个图片不对,那只能在编辑器里把它删掉,或是,在添加地程中系统出现问题,而导致垃圾图片的产生。为了防止在这过程中出现垃圾图片和附件,许多人多研究了不少的方法,如动网论坛里,对上传的每一个文件,在数据库里都有相应的一个记录,这样要占用一个表来存放,并且如果在添加数据到数据库里时系统出现异常,也同样无法避免这些垃圾的产生。经过我的一些实践,研究出我的方法,现在贡献出来,供大家斧正。

我的方法流程是这样的:当文章的添加者登录到系统里面后,由系统给它创建一个临时的工作文件夹,如“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相对应的文件夹删除了,在用户登出的时候,也要把它的工作目录清空。

好了,我的整个思路就是这样的了,说不上是什么精品,但是它在实际的应用中,一年下来并没有产生过任何的意常,所以我就把它贴出来了。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有