代码运行代码复制代码保存ASP下的代码函数源代码

看到很多人需要，放出来，好东西要分享。
复制代码代码如下所示：
功能content_code（STR）
昏暗的ary_string，I，N，n_pos
ary_string =分裂（STR，{代码}）
N = UBound（ary_string）
如果n＜1，那么
content_code = str
退出功能
最后如果
对于i = 1到n
n_pos =仪器（ary_string（我）、{ /代码}）
如果n_pos > 0
ary_string（我）=服务器。.HtmlEncode （左（ary_string（我），n_pos-1））的提示：你可以修改部分代码运行_
右（ary_string（我），len（ary_string（I））- n_pos-6）
其他的
ary_string（我）={代码}ary_string（我）
最后如果
下一个
content_code =加入（ary_string，）
端功能

使用方法也很简单：

在发布文章时，必须使用运行代码的功能。

{代码}
例如:

复制代码代码如下所示：
{代码}

警报（简单条）；

{代码}
需要注意的是，显示的页面将输入以下Javaｓｃｒｉｐｔ：

复制代码代码如下所示：
功能runcode（obj）{
无功winname = window.open（''，_blank
Winname.document.open（中/的HTML，替换的）；
winname.opener = null
Winname.document.writeln（obj值）；
Winname.document.close（）；
}

功能copycode（obj）{
VaR RNG = document.body.createtextrange（）；
Rng.moveToElementText（obj）；
Rng.scrollIntoView（）；
Rng.select（）；
Rng.execCommand（复制）；
Rng.collapse（假）；
}
功能savecode（obj）{
无功winname = window.open（''，'_blank '，' = 10000）；
Winname.document.open（中/的HTML，替换的）；
winname.document.write（obj值）；
winname.document.execcommand（'saveas '，' '，'code .htm）；
Winname.close（）；
}