当前位置: 首页 > 图文教程 > 网络编程 > ASP > 给blog加上运行代码功能

ASP
ASP中实现限制IP的函数详解
Asp下实现限制IP访问的程序代码
asp下DateDiff 函数参数说明
Highlight patterns within strings
Insert Date and Time into Access
asp下调试程序的debug类
RESPONSE.WRITE和<%=%的区别
用asp实现网页邮箱访问的方法
编写一个含二级目录的源码(Asp+JavaScript)
asp下删除Access数词库中的空记录的sql语句
asp下制做行背景颜色交替变换的表格
asp下将数据库中的信息存储至XML文件中
asp下如何在Access数据库中立即得到所插入记录的自动编号?
asp下如何在ADO服务器端利用好缓存技术?
asp调用Word打印的代码
巧用FileSystem组件实现WEB应用中的本地特定打印的方法
用javascript解决外部数据抓取中的乱码问题
Asp中随机产生用户密码的代码
反SPAM新思路—换Z-BLOG的验证码!
在Z-BLOG可用的新版ASP的GIF验证码[V70404]

ASP 中的 给blog加上运行代码功能


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 171 ::
收藏到网摘: n/a

在和尚那里看到他给z-blog加上了运行代码功能,放了几天假,有些怕怕再这样闲下去会生锈的,在补了一个半小时的觉之后,也给blog加上运行功能,因为是从L-Blog修改而来,因此同样适用于L-Blog,另外,FBS也是L-Blog修改而来,应该也可以使用本文中的方法来添加运行代码功能。另外,由于复制代码和保存代码还没有找到兼容各浏览器的解决方法,就没有加进来了。
示例:
步骤如下:
1. 在 include/common.js 中添加如下代码:
复制代码 代码如下:

function runCode(codeobjid) {
var codeobj=document.getElementById(codeobjid)
var codestr=codeobj.value;
if (codestr!="") {
var codewin=window.open('','','');
codewin.document.open('text/html','replace');
codewin.opener = null
codewin.document.write(codestr);
codewin.document.close();
}

}
2. 在 include/ubbcode.asp 中找到 strContent=re.Replace(strContent,"【code】")(把【】换成[]),在此之后添加如下代码:
L-Blog:
复制代码 代码如下:

re.Pattern="\[html\](<br>)+"
strContent=re.Replace(strContent,"【html】")

FBS:
复制代码 代码如下:

re.Pattern="\[html\](<br />)+"
strContent=re.Replace(strContent,"【html】")

再找到 re.Pattern="\[code\](.*?)\[\/code\]",然后在段代码的 Set strMatches=Nothing 之后添加如下代码:
复制代码 代码如下:

re.Pattern="\[html\](.*?)\[\/html\]"
Set strMatches=re.Execute(strContent)
For Each strMatch In strMatches
RNDStr=Int(7999 * Rnd + 2000)
tmpStr1=strMatch.SubMatches(0)
strContent= Replace(strContent,strMatch.Value,"<textarea rows=""10"" "_
&"style=""width:90%;"" class=""input_border"" id=""HTML_"&RNDStr&""">"_
&tmpStr1&"</textarea><br />"_
&"<input type=""button"" onclick=""runCode('HTML_"&RNDStr&"');"" value=""运行代码"" />"_
&" [Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]")
Next

Set strMatches=Nothing
3. 修改完成,在发表日志时就可以使用【html】要运行的代码【/html】(将【】替换成[])来使用运行代码功能。