繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
- ASP
- ASP编程菜鸟易犯的一个错误
- ASP申请单动态添加实现方法及代码
- 经验总结：ASP与存储过程解析
- 学以致用 驳“ASP低能论”
- 使用ASP脚本技术
- ASP、Request对象与SQL注入
- 判断访问是否来自搜索引擎的ASP函数
- ASP判断数据库值是否为空的通用函数
- 大刀阔斧扔掉ASP,充分准备学习ASP.NET
- 关于创建多级文件夹的ASP函数实例
- ASP正则判断取出HTML的图片地址的函数
- 网页不存在自动给管理员发邮件的ASP代码
- ASP教程：等差数列和等比数列通项公式
- Recordset对象和Command对象的区别
- Filter与updatebatch混合使用实现批量更新
- ASP实例：检测整数和长整数的函数
- 在不支持FSO的服务器上使用XMLDOM创建HTML文件
- 汉字转拼音ASP函数
- 网页输出N行N列表格的ASP实现方法
- ASP操作数据库的类
ASP 中的 asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 51 ::
收藏到网摘: n/a
看到很多人需要，就放出来，好东西大家一起分享。
复制代码 代码如下:
Function content_Code(Str)
dim ary_String,i,n,n_pos
ary_String=split(Str,"[ code ]")
n=ubound(ary_String)
If n<1 then
content_Code=Str
Exit function
End If
for i=1 to n
n_pos=inStr(ary_String(i),"[/ code ]")
If n_pos>0 then
ary_String(i)="<br /><textarea class=gocode id=runcode"&i&" name=runcode"&i&">" & server.HTMLEncode(left(ary_String(i),n_pos-1))&"</textarea><br /><input type=button class=input-code value=运行代码 onclick=runCode(runcode"&i&")><input type=button class=input-code value=复制代码 onclick=copycode(runcode"&i&")><input type=button class=input-code value=另存代码 onclick=saveCode(runcode"&i&")><span class=code-tishi>提示：您可以先修改部分代码再运行</span><br />" & _
right(ary_String(i),len(ary_String(i))-n_pos-6)
Else
ary_String(i)="[code]" & ary_String(i)
End if
next
content_Code=join(ary_String,"")
End Function
使用方法也很简单：
发表文章时需用使用“运行代码”功能的，主要前后加上
[ code ][/ code ]
比如：
复制代码 代码如下:
[ code ]
<script type="text/javascript">
alert("简单吧");
</script>
[/ code ]
复制代码 代码如下:
function runCode(obj) {
var winname = window.open('', "_blank", '');
winname.document.open('text/html', 'replace');
winname.opener = null
winname.document.writeln(obj.value);
winname.document.close();
}
function copycode(obj) {
var rng = document.body.createTextRange();
rng.moveToElementText(obj);
rng.scrollIntoView();
rng.select();
rng.execCommand("Copy");
rng.collapse(false);
}
function saveCode(obj) {
var winname = window.open('', '_blank', 'top=10000');
winname.document.open('text/html', 'replace');
winname.document.write(obj.value);
winname.document.execCommand('saveas','','code.htm');
winname.close();
}
评论 (0) All
