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

2004-02-14 09:33 出处：PConline 作者：chinahuman/CSDN 责任编辑：linjixiong

　　　　在处理新闻的修改的时候用：　　'创建工作目录　　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

察看评论详细内容我要发表评论