首 页 关于作者 给我留言 域名注册 登陆
您的位置: 首页 > 代码片段

zblog升级,代码运行框,友情链接rss等的修改

Posted by 小寒 at 11:36:27 | 代码片段 | 1人发表了评论

将zblog程序升级到了Z-Blog 1.8 Arwen Build 81206 ,升级之后,增加了插件:动态友情链接

外观如图。自动抓取友情链接rss,如果近期有更新的博客,则自动排列在前面。


点击链接前面的加号,可以展开,显示友情链接博客最近的几篇日志标题。更新日期比较近的(一般设定成当天更新的日志),则以蓝色显示标题。如图:


按照如下方法修改,增加了在线运行框(原来升级前本人已经加过这个功能,升级后不能用了,所以重新更改。)1、在script/common.js里面增加

//*********************************************************
// 目的: 代码运行框
// 输入: obj
// 返回:
//*********************************************************
function copycode(obj) {
var rng = document.body.createTextRange();
var obj1=document.getElementById(obj)
rng.moveToElementText(obj1);
rng.scrollIntoView();
rng.select();
rng.execCommand("Copy");
rng.collapse(false);
}

function runCode(obj) {
var winname = window.open('', "_blank", '');
var obj1=document.getElementById(obj)
winname.document.open('text/html', 'replace');
winname.opener = null // 防止恶意修改
winname.document.writeln(obj1.value);
winname.document.close();
}
function saveCode(obj) {
var winname = window.open('', '_blank', 'top=10000');
var obj1=document.getElementById(obj)
winname.document.open('text/html', 'replace');
winname.document.writeln(obj1.value);
winname.document.execCommand('saveas','','code.htm');
winname.close();
}


2、func/c_function.asp,查找

Function TransferHTML(source,para)

,把

If Instr(para,"[space]")>0 Then source=Replace(source," "," ")

注释掉。

找到

objRegExp.Pattern="(\[CODE\])(.+?)(\[\/CODE\])"
strContent=objRegExp.Replace(strContent,"<textarea class=""code"" name=""runcode0"" rows=""10"" cols=""50"">$2</textarea>")

修改为

Dim codeNum,rndStr

codeNum=0
Randomize
rndStr=int(rnd*100)

strContent=objRegExp.Replace(strContent,"<textarea class=""code"" name=""code"&rndStr&codeNum&""" id=""code"&rndStr&codeNum&""" rows=""10"" cols=""50"">$2</textarea><br /><input type=""button"" value=""运行代码"" onclick=""runCode('code"&rndStr&codeNum&"')""> <input type=""button"" value=""复制代码"" onclick=""copycode('code"&rndStr&codeNum&"')""> <input type=""button"" value=""另存代码"" onclick=""saveCode('code"&rndStr&codeNum&"')""> 提示:您可以先修改部分代码再运行")
codeNum=codeNum+1



关于这个rndStr,可以用文章id代替。但是可能产生重复代码框id。保险起见,还是使用了随机函数。


3、重建所有页面。

本方法原文:http://0e2.net/post/422.html
博主:小寒
链接: http://blog.mujj.net
Tags: 升级  友情链接  代码运行框  rss  

相关文章

导入新浪博客(sina blog)等rss之后,图片无法显示解决之道  (2008-8-5 13:57:48)

Z-Blog的RSS Feed聚合链接Url说明  (2008-5-22 14:29:32)

最新评论及回复

  1. ping (2009-2-15 13:24:07 e) 说:

    太YD啦,
    我博客的rss竟然是读了feedsky那个,
    是你手工添加rss地址还是自动找的?自动找没大可能。

    小寒 于 2009-2-16 8:42:55 回复
    是手工加的呀,这个链接插件是让输入rss地址,自动获取最新4篇标题和博客名字,而不是输入网站地址和网站名字。于是我就人工一个一个网站找rss的。

    回复该留言

发表评论

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

 
Powered By Z-Blog 1.8 Arwen Build 81206  CopyRight©2005-2007 相忘于江湖 All Rights Reserved. © 2005-2010
本站采用创作共享版权协议, 要求署名、非商业和保持一致. 本站欢迎任何非商业应用的转载, 但须注明出自"相忘于江湖", 保留原始链接, 此外还必须标注原文标题和链接.
本博客所有文章,发表者拥有版权,本博拥有展示权,转载请注明出处!
管理员:小寒 邮箱:1314ing@gmail.com.
拒绝任何人以任何形式在本博客发表与中华人民共和国法律相抵触的言论! 声明 登陆