gpt4 book ai didi

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

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

  1. Function content_Code(Str)   。

  2. dim ary_String,i,n,n_pos   。

  3. ary_String=split(Str,"[ code ]")   。

  4. n=ubound(ary_String)   。

  5. If n<1 then   。

  6. content_Code=Str   。

  7. Exit function   。

  8. End If   。

  9. for i=1 to n   。

  10. n_pos=inStr(ary_String(i),"[/ code ]")   。

  11. If n_pos>0 then   。

  12. 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 />" & _   。

  13. right(ary_String(i),len(ary_String(i))-n_pos-6)   。

  14. Else   。

  15. ary_String(i)="[code]" & ary_String(i)   。

  16. End if   。

  17. next   。

  18. content_Code=join(ary_String,"")   。

  19. End Function   。

使用方法也很简单:  发表文章时需用使用“运行代码”功能的,主要前后加上  [ code ][/ code ]  比如:  [复制此代码]CODE:  。

  1. [ code ]   。

  2. <script type="text/javascript">   。

  3. alert("简单吧");   。

  4. </script>   。

  5. [/ code ]   。

需要注意的是,在显示的页面要进入以下javascript:  。

  1. function runCode(obj) {   。

  2. var winname = window.open('', "_blank", '');   。

  3. winname.document.open('text/html', 'replace');   。

  4. winname.opener = null   。

  5. winname.document.writeln(obj.value);   。

  6. winname.document.close();   。

  7. }   。

  8. function copycode(obj) {   。

  9. var rng = document.body.createTextRange();   。

  10. rng.moveToElementText(obj);   。

  11. rng.scrollIntoView();   。

  12. rng.select();   。

  13. rng.execCommand("Copy");   。

  14. rng.collapse(false);   。

  15. }   。

  16. function saveCode(obj) {   。

  17. var winname = window.open('', '_blank', 'top=10000');   。

  18. winname.document.open('text/html', 'replace');   。

  19. winname.document.write(obj.value);   。

  20. winname.document.execCommand('saveas','','code.htm');   。

  21. winname.close();   。

  22. }  。


最后此篇关于asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码的文章就讲到这里了,如果你想了解更多关于asp下实现代码的“运行代码”“复制代码”“保存代码”功能源码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com