当前位置: 首页 > 图文教程 > 网页制作 > CMS技巧 > 给zblog加上运行代码功能

CMS技巧
如何为Wordpress页面使用另一个样式表
WordPress的MySQL连接出错监测方法
Z-Blog转换到WordPress的SQL语句
KingCMS广告标签的使用方法
PJBlog首页调用日志的实现方法
新云CMS技巧:发表文章并生成HTML
新云CMS问题解答:大类和子类的问题
新云CMS:修改、创建和应用模板
新云CMS建站:初学者使用教程
新云CMS:遇到的常见问题
新云CMS:部分模板标签说明
轻松建立自己的网站 动易系统帮你完成
动易2006版模板教程:版式模板管理
动易模板常用CSS修改操作技巧
动易网站风格模板管理
动易2006版模板方案的导入、导出
WordPress优化(3):图片和下载防盗链
WordPress优化(1):Gzip压缩CSS和JS
WordPress优化(2):cacheAsFile静态网页
Zblog首页文件静态化的方法

CMS技巧 中的 给zblog加上运行代码功能


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2010-01-03   浏览: 40 ::
收藏到网摘: n/a

给zblog添加上“运行代码”的功能,这是“密陀僧”修改z-blog源码,给z-bog增添的新功能。这个方法出来很久了,我现在才加上还不晚吧,因为以后可能要贴出一些与时间相关的代码,所以用上这个“运行代码”的功能,是最为方便的了。

下面转一下方法,相关讨论参见“z-blog论坛”。如果你按如下步骤设置完毕,调用这个功能的方法是,在文章编辑区中加入" [ code ]  你的代码 [ /code ]",因为这是是演示,所以“中括号”与code之间留了空格,你实际用的时候,请去掉空格。

这个调用方法,是在请教Visc之后,才知道的,有时离成功就差这一步,在此感谢Visc的指点。

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、重建所有页面。
 

4、最后,试一下效果,因为在“可视编辑”状态中,编辑器不知给代码做了什么处理,导致不能运行,所以建议一些复杂代码,还是用“UBB编辑”保险。

javascript 能获得汉字拼音的第一个字母 


提示:您可以先修改部分代码再运行