 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
现在的新闻系统里越多地支持在线上传插入图片，以实现在比较好的效果。可是问题也随之而来了，有的图片传上去后，发现这个图片不对，那只能在编辑器里把它删掉，或是，在添加地程中系统出现问题，而导致垃圾图片的产生。为了防止在这过程中出现垃圾图片和附件，许多人多研究了不少的方式，如动网论坛里，对上传的每一个文件，在数据库里都有相应的一个记录，这样要占用一个表来存放，并且假如在添加数据到数据库里时系统出现非常，也同样无法避免这些垃圾的产生。经过我的一些实践，研究出我的方式，现在贡献出来，供大家斧正。 我的方式流程是这样的：当文章的添加者登录到系统里面后，由系统给它创建一个临时的工作文件夹，如“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相对应的文件夹删除了，在用户登出的时候，也要把它的工作目录清空。 好了，我的整个思路就是这样的了，说不上是什么精品，但是它在实际的应用中，一年下来并没有产生过任何的意常，所以我就把它贴出来了。 返回类别: 教程 上一教程: 用ASP技术实现在WEB网页上浏览目录及文件 下一教程: ASP自动解析图片地址并将其保存到本地服务器 您可以阅读与"防止新闻系统里产生垃圾图片的方式"相关的教程: · 新闻系统里防止产生垃圾图片的一种方式 · 用文本+ASP打造新闻发布系统/图片上传 · 关于生成HTML文件的新闻系统 · 提供一种“间接防止另存为”的方式 · 使用正则表达式实现模式图片新闻.ASP |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
