asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码

来源:asp之家 时间:2011-04-14 10:39:00 

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:

[ code ] 
<script type="text/javascript"> 
alert("简单吧"); 
</script> 
[/ code ] 
需要注意的是,在显示的页面要进入以下javascript:

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(); 
}

标签:asp,运行代码,复制代码
0
投稿

猜你喜欢

  • python sleep和wait对比总结

    2023-04-30 18:26:04
  • 浅谈MySql整型索引和字符串索引失效或隐式转换问题

    2024-01-15 20:41:39
  • Elasticsearch之倒排索引及索引操作

    2023-10-28 00:38:38
  • Python3.5 Json与pickle实现数据序列化与反序列化操作示例

    2022-04-08 17:53:55
  • python中sys模块的介绍与实例

    2022-11-29 12:37:51
  • asp彩色验证码的制作详解

    2007-09-18 13:22:00
  • xmlhttp中运行getResponseHeader出错,提示:The requested header was not found

    2010-03-27 21:47:00
  • Mysql建库字符集和排序规则及说明

    2024-01-15 14:04:13
  • 通用SQL存储过程分页以及asp.net后台调用的方法

    2024-01-29 05:03:58
  • python写入并获取剪切板内容的实例

    2023-08-03 10:44:04
  • python openvc 裁剪、剪切图片 提取图片的行和列

    2022-07-03 15:29:40
  • golang开发go包依赖管理godep使用教程

    2023-10-16 04:09:31
  • MySQL 开启慢查询日志的方法

    2024-01-20 13:41:05
  • DNS优化的原理和方法

    2012-04-26 16:43:56
  • ChatGPT如何写好Prompt编程示例详解

    2022-06-30 03:55:24
  • 利用python对mysql表做全局模糊搜索并分页实例

    2024-01-20 05:29:47
  • python+os根据文件名自动生成文本

    2022-06-12 00:50:48
  • Mysql使用sum()函数返回null的问题详解

    2024-01-17 03:20:04
  • Mysql中的concat函数(拼接函数)详解

    2024-01-27 21:01:37
  • OpenCV 之按位运算举例解析

    2023-04-15 02:07:57
  • asp之家 网络编程 m.aspxhome.com