针对有网友说看不见文章内容，
现提示如下:
点击每一个标题行任一地方都会展开和隐藏此文章内容(不要点击标题).
目前展开隐藏功能只支持IE浏览器，虽然可以改成支持FF浏览器，不过现在一直没时间去弄，等有时间再修改了。 |
|
blog名称:乱闪Blog
日志总数:267
评论数量:1618
留言数量:-26
访问次数:2665858
建立时间:2005年1月1日 |
|
|
| |
 XMLHTTP: 网站超级粘合剂
|
| 现在的新闻系统里越多地支持在线上传插入asp>图片，以实现在比较好的效果。可是问题也随之而来了，有的asp>图片传上去后，发现这个asp>图片不对，那只能在编辑器里把它删掉，或是，在添加地程中系统出现问题，而导致垃圾asp>图片的产生。为了防止在这过程中出现垃圾asp>图片和附件，许多人多研究了不少的方法，如动网论坛里，对上传的每一个文件，在数据库里都有相应的一个记录，这样要占用一个表来存放，并且如果在添加数据到数据库里时系统出现异常，也同样无法避免这些垃圾的产生。经过我的一些实践，研究出我的方法，现在贡献出来，供大家斧正。 我的方法流程是这样的：当文章的添加者登录到系统里面后，由系统给它创建一个临时的工作文件夹，如“editor”这个用户的ID是5那我建立一个temp5的临时工作目录，当他添加文章的时候，上传的asp>图片和其它附件并不存入到真正要显示存放的目录，而是存在这个临时的工作目录里面。同时为了方便管理，我建议给每一条新闻建一个目录来存放这些asp>图片，当文章提交的时候，由系统分析里面的asp>图片地址，把文章里面有的asp>图片转移到这些对应的目录里面去。当新闻或文章改动的时候，就先把这个文件夹下面的所有asp>图片转移到进入的时候的临时工作目录里面，同时对文章里面的asp>图片路径进行替换，保存的时候也是和添加的时候执行同一个过程。当文章删除的时候，也相对应地把这个目录删掉，这就可以保证了在添加、修改、删除的过程中没有垃圾asp>图片的产生。当用户登出的时候，系统可以将其所对应的工作目录删除，这样就可以彻底地作到没有垃圾的产生。 看到上面这些文字描述也许好多人要头晕了，那看一下具体的实现过程吧（因为我对ASP比较熟悉，所以我用ASP来实现它了，用其它的平台也是可以实现的）。首先让我先引入我自己写的一个类，用来分析和转移asp>图片的，详细的说明请看我的另一篇文章:用asp自动解析网页中的asp>图片地址，并将其保存到本地服务器(html>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 html>http Set html>http = CreateObject("MSXML2.XMLHTTP") html>http.Open "GET", url, False html>http.send If html>http.readyState <> 4 Then Exit Function End If getHTTPPage = html>http.responseBody Set html>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 = "html>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和数据库来实现，我就不多说了）。 在处理文件上传的时候，可以用稻香老农的无组件上传，把asp>图片传到工作区中。并且把asp>图片代码返回到编辑器中，当提交以后，将由以下代码来处理这些asp>图片,我这里是根据新闻或文章的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")’假设asp>图片存到当前目录下面的photo里面 set fso=Server.CreateObject("Scripting.FileSystemObject") FiLePaTh = basefoder&"/"&newsID Fso.Createfolder(FiLePaTh) ’假设将取得新闻的内容存在变量content里面下面就调用我的那个类blacksmith来处理分析文章的内容，处理asp>图片的转移了 set bs=new blacksmith bs.size=1 bs.baseurl="photo/"&newsID’给asp>图片加上目录的地址 bs.basefilename="mynews"’给asp>图片加上前缀 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 ’把原有的文件内容进行处理，改变里面的asp>图片路径,比如说这此内容还是保存在content里面 content=replace(trim(content,"photo/"&newsID&"/mynews","temp"&session("myid")&"/mynews")’这个只是一个比较简单的替换，相信由此引起误替换的机会应该是相当小的了 保存的过程和添加的过程是一样的，所不同的是，要先把原来的那个目录里面的文件清空，我这里就不多说了。 新闻删除的时候，要记着把这个ID相对应的文件夹删除了，在用户登出的时候，也要把它的工作目录清空。 好了，我的整个思路就是这样的了，说不上是什么精品，但是它在实际的应用中，一年下来并没有产生过任何的意常，所以我就把它贴出来了，欢迎大家和我交流:E_mail:clzwin@sina.com |
|
回复:XMLHTTP: 网站超级粘合剂
|
| 南京海佩货架制造有限公司专业生产：轻型货架、中型货架、次重型货架、横梁货架、阁楼货架、悬臂货架、 通廊货架、4S店货架、超市货架、托盘、料箱、仓储笼、周转箱、登高车……南京海佩仓储设备有限公司专业生产仓储货架及配套设备！ 货架 仓储货架 货架公司 货架 仓储货架 货架公司 仓储笼 折叠式仓储笼 托盘 钢托盘 钢制托盘 仓库货架 阁楼货架 货架厂 重型货架 仓储货架 重型货架 货架公司 轻型货架 货架 堆垛架 仓储笼 折叠式仓储笼 托盘 塑料托盘 托盘 铁托盘 铁制托盘 托盘 钢托盘 钢制托盘 求购货架 货架求购 货架制造 贯通货架 货架 悬臂货架 仓库货架 阁楼货架 货架厂 重型货架 货架公司 中型货架 仓储货架 轻型货架 仓储货架 轻型货架 角钢货架 货架厂 重型货架 货架公司 中型货架 货架制造 悬臂货架 托盘 塑料托盘 仓储笼 折叠式仓储笼 托盘 钢托盘 钢制托盘 求购货架 货架求购 货架公司 轻型货架 仓储货架 中型货架 货架厂 重型货架 仓库货架 阁楼货架 货架 悬臂货架 货架 模具货架 托盘 钢托盘 托盘 钢制托盘 托盘 塑料托盘 仓储笼 折叠式仓储笼 堆垛架 钢制托盘 仓储笼 模具货架 仓库货架 货架厂 仓储货架 货架公司 货架 货架 货架 货架 货架 货架 货架 货架 货架 货架 货架 货架 货架 仓储笼 登高车 手推车 塑料托盘 货架 托盘 钢托盘 钢制托盘 货架公司 中型货架 仓储笼 托盘 钢托盘 钢制托盘 货架厂 悬臂货架 仓储货架 阁楼货架 仓库货架 重型货架 货架 轻型货架 货架 货架 货架 轻型货架 货架 中型货架 货架 重型货架 货架 阁楼货架 货架 悬臂货架 货架 模具货架 托盘 塑料托盘 钢制托盘 仓储笼 货架 货架 货架公司 货架厂 仓储货架 货架厂家 托盘 钢托盘 钢制托盘 木托盘 轻型货架 中型货架 重型货架 模具架 轻型货架 中型货架 货位货架 阁楼货架 汽配货架 悬臂货架 贯通货架 抽屉货架 辊轮货架 线棒货架 钢平台 密集架 钢托盘 塑料托盘 木托盘 仓储笼 登高车 手推车 堆垛架 物流台车 钢制料箱 货架 货架 货架 货架 货架 货架 货架 货架 货架 货架 货架 仓储笼 登高车 手推车 塑料托盘 货架 货架 货架 货架 货架 钢托盘 仓储笼 货架 仓储货架 货架公司 货架厂 货架 货架 钢制托盘 钢托盘 仓储笼 货架 仓储设备 货架 货架 货架 货架 货架 仓储笼 货架 托盘 钢托盘 钢制托盘 货架 货架 轻型货架 货架 中型货架 货架 重型货架 货架 阁楼货架 货架 悬臂货架 货架 模具货架 托盘 塑料托盘 钢制托盘 仓储笼 货架 货架 轻型货架 货架 中型货架 货架 重型货架 货架 阁楼货架 货架 悬臂货架 托盘 钢托盘 托盘 塑料托盘 仓储笼 货架 货架公司 货架厂 轻型货架 货架公司 仓储货架 货架厂 中型货架 货架公司 仓储货架 货架厂 货架公司 货架厂 重型货架 货架公司 仓储货架 货架厂 阁楼货架 货架公司 仓储货架 货架厂 悬臂货架 货架公司 仓储货架 货架厂 贯通货架 货架公司 仓储货架 货架厂 辊轮货架 货架公司 仓储货架 货架厂 汽配货架 手推车 塑料托盘 钢托盘 仓储笼 货架公司 仓储货架 货架厂 轻型货架 货架 货架公司 货架 仓储货架 货架公司 仓储货架 货架 货架公司 仓储货架 货架 重型货架 货架公司 仓储货架 阁楼货架 货架 货架公司 货架 仓储货架 货架公司 仓储货架 货架 贯通货架 货架公司 仓储货架 货架 辊轮货架 货架公司 仓储货架 汽配货架 货架 仓储笼 货架 货架公司 仓储货架 货架公司 货架公司 货架公司 仓储货架 仓储货架 货架 货架公司 仓储货架 货架厂 货架 货架公司 仓储货架 货架厂 货架 货架 货架 仓储货架 货架厂 重型货架 轻型货架 钢制托盘 钢托盘 仓储笼 货架公司 货架 仓储笼 货架 货架 轻型货架 中型货架 重型货架 阁楼货架 悬臂货架 钢托盘 货架 货架 货架 悬臂货架 仓储笼 仓储笼 塑料托盘 钢托盘 登高车 货架 塑料托盘 手推车 辊抡货架 汽配货架 贯通货架 悬臂货架 阁楼货架 中型货架 轻型货架 重型货架 货架 货架 货架公司 仓储货架 货架厂 货架 南京货架 货架公司 仓储货架 仓储设备 货架厂 仓库货架 货架 南京货架 货架公司 仓储货架 仓储设备 货架厂 堆垛架 仓储笼 登高车 手推车 钢制料箱 物流台车 塑料托盘 轻型货架 中型货架 重型货架 悬臂货架 阁楼货架 钢托盘 钢制托盘 仓储笼 货架 南通货架 杭州货架 深圳货架 常熟货架 天津货架 重庆货架 宁波货架 北京货架 货架 南京货架 镇江货架 常州货架 无锡货架 苏州货架 昆山货架 上海货架 仓储笼 南京仓储笼 常州仓储笼 宁波仓储笼 苏州仓储笼 温州仓储笼 无锡仓储笼 折叠式仓储笼 |
| 电脑与网络 货架(游客)发表评论于2007/6/27 14:54:38 |
| |
回复:XMLHTTP: 网站超级粘合剂
|
| 为什么在IE里看不里这个网子的文章叫，不是会是跟MS有仇吧。 |
| 电脑与网络 plmm(游客)发表评论于2007/6/19 23:22:06 |
| |
回复:XMLHTTP: 网站超级粘合剂
|
|
“亲爱的版主，发表评论一篇，如有冒犯，请原谅！” 逐句地看完这个帖子以后，我的心久久不能平静，震撼啊！为什么会有如此好的帖子！我纵横网络多年，自以为再也不会有任何帖子能打动我，没想到今天看到了如此精妙绝伦的这样一篇帖子。楼主，是你让我深深地理解了'人外有人，天外有天'这句话。谢谢侬！在看完这帖子以后，我没有立即回复，因为我生怕我庸俗不堪的回复会玷污了这网上少有的帖子。但是我还是回复了，因为觉得如果不能在如此精彩的帖子后面留下自己的网名，那我死也不会瞑目的！能够在如此精彩的帖子后面留下自己的网名是多么骄傲的一件事啊！楼主，请原谅我的自私！我知道无论用多么华丽的辞藻来形容楼主您帖子的精彩程度都是不够的，都是虚伪的，所以我只想说一句：您的帖子太好看了！我愿意一辈子的看下去！这篇帖子构思新颖，题材独具匠心，段落清晰，情节诡异，跌宕起伏，主线分明，引人入胜，平淡中显示出不凡的文学功底，可谓是字字珠玑，句句经典，是我辈应当学习之典范。就小说艺术的角度而言，这篇帖子不算太成功，但它的实验意义却远远大于成功本身。正所谓：“一马奔腾，射雕引弓，天地都在我心中！”楼主真不愧为无厘界新一代的开山怪！本来我已经对这个社区失望了，觉得这个社区没有前途了，心里充满了悲哀。但是看了你的这个帖子，又让我对社区产生了希望。是你让我的心里重新燃起希望之火，是你让我的心死灰复燃，是你拯救了我一颗拨凉拨凉的心！本来我决定不会在社区回任何帖子了，但是看了你的帖子，我告诉自己这个帖子是一定要回的！这是百年难得一见的好贴啊！苍天有眼啊，让我在优生之年得以观得如此精彩绝伦的帖子！楼主，你要继续努力啊！决定不会在社区回任何帖子了，但是看了你的帖子，我告诉自己这个帖子是一定要回的！这是百年难得一见的好贴啊！苍天有眼啊，让我在优生之年得以观得如此精彩绝伦的帖子！楼主，你要继续努力啊! 仓储笼 货架 托盘 仓储笼 仓库货架 货架 货架 货架 货架 仓储笼 货架 托盘 仓储笼 仓库货架 货架 货架 货架 货架 轻型货架 中量A型货架 中量B型货架 中型货架 中型货架 重型货架 仓储笼 托盘 手推车 木托盘 钢托盘 塑料托盘 塑木托盘 栈板 木栈板 塑料栈板 铁栈板 货架 货架公司 轻型货架 仓储笼 仓储设备 仓库货架 托盘 钢托盘 登高车 手推车 宁波货架 仓库货架 轻型货架 仓储笼 仓储设备 仓库货架 托盘 钢托盘 登高车 手推车 宁波货架 托盘 料箱 料箱仓储货架 仓库货架 货架 货架 货架公司 仓库货架 仓储货架 仓储笼 折叠式仓储笼 仓库笼 钢托盘木托盘 仓储笼 仓储笼 货架 货架 货架 货架 货架 架货 架货 架货 架货 货架 料箱 仓储笼 折叠式仓储笼 货架公司 轻型货架 贯通式货架 阁楼式货架 货位式货架 中量型货架 悬臂式货架 托盘 钢托盘 仓储笼 折叠式仓储笼 登高车 货架公司 仓储设备 仓库货架 仓储货架 超市货架 轻型货架 贯通式货架 阁楼式货架 货位式货架 中量型货架 悬臂式货架 轻型货架 中量A型货架 中量B型货架 重型货架 仓储笼 钢托盘 塑料托盘 货架 货架 货架 货架 货架 轻型货架 货架 阁楼货架 货架 货架 中型货架 仓库货架 中型货架 轻型货架 阁楼货架 仓储笼 托盘 仓库笼 钢托盘 木托盘 货架 货架公司 仓库货架
|
| 电脑与网络 SMAP(游客)发表评论于2007/3/29 15:44:03 |
| |
回复:XMLHTTP: 网站超级粘合剂
|
| 电脑与网络 hello~(游客)发表评论于2005/6/21 13:43:49 |
| |
» 1 »
|
