本日志标题:运行代码窗口是如何产生的        [2004-3-2]

看到下面的区域,你只要点击运行代码就可以把文本区域中的东西进行调试。

这个好方法具体又是怎么产生的呢?看里面的代码就可以明白。



[Ctrl+A 全部选择进行拷贝 提示:可先修改部分代码,再点击运行]


在百度搜索完整的运行代码窗口是如何产生的内容,或者用Google搜索相关的更多内容

By [cnbruce] at 17:55:53 | 评论 [70] | 浏览 [27842] | TrackBack| 返回顶部

About Comments
终于找到了,谢谢cnbruce
By [Estar] at 2004-3-6 12:37:00
你的UBB增加了这个功能吗?怎么添加的?

可以告诉我吗?谢谢
By [飞阳] at 2004-5-1 22:25:11
使用
[Ctrl+A 全部选择进行拷贝 提示:可先修改部分代码,再点击运行]
不过要注意的ubb代码的截断
By [zskj] at 2004-5-9 21:12:56
[html] [/html]
注意ubb代码的截断
By [zskj] at 2004-5-9 21:18:25
是啊,我想在论坛中加上这个功能,但不知道该怎么修改代码,请CNBRUCE或知道的朋友教一下我,非常感谢!
By [jtoz] at 2004-6-9 0:05:26
这要看具体的论坛UBB文件的
By [cnbruce] at 2004-6-9 22:26:13
老狼我还是不清楚你怎么在ubb代码中加了这个功能,你能不能随便找个ubb文件给我们改一下让我们看看怎么样改?好么?老大谢了
By [backup] at 2004-8-17 17:18:20
简单啊:在每个显示数据库的那页加脚本

<script>
function runEx(cod1) {
cod=document.all(cod1)
var code=cod.value;
if (code!=""){
var newwin=window.open('','','');
newwin.opener = null
newwin.document.write(code);
newwin.document.close();
}
}
</script>

然后,数据库中含有[html]...[/html]的标签转换为带id的textarea和一运行按纽。
By [cnbruce] at 2004-8-17 21:36:02

[Ctrl+A 全部选择进行拷贝 提示:可先修改部分代码,再点击运行]
By [re] at 2004-9-2 13:09:27

[Ctrl+A 全部选择进行拷贝 提示:可先修改部分代码,再点击运行]
By [look] at 2004-9-3 8:57:22
#75 插入的代码老是被</TEXTAREA>截断怎么办#55
By [look] at 2004-9-3 9:25:08

strContent=Replace(strContent,strMatch.Value,"<table border=""0"" width=""96%"" cellspacing=""0"" cellpadding=""0"" align=""center""><tr><td><b>HTML代码:</b></td></tr><tr><td><div class=""code""><TEXTAREA rows=""8"" style=""width:100%"" id="""&rndID&""">"&HTMLDecode(strMatch.SubMatches(0))&"</TEXTAREA><br><INPUT onclick=""runEx('"&rndID&"')"" type=""button"" value=""运行此代码""> [Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]</div></td></tr></table>",1,-1,1)

[Edit on 2004-9-3 9:39:27 By look]
By [look] at 2004-9-3 9:26:17
显示纪录需要该函数

<%function CovHtml(content)
ON ERROR RESUME NEXT
CovHtml=content
if not isnull(content) then
CovHtml=replace(CovHtml,"&","&amp;")
CovHtml=replace(CovHtml,"<","&lt;")
CovHtml=replace(CovHtml,">","&gt;")
CovHtml=replace(CovHtml,chr(34),"&quot;")
CovHtml=replace(CovHtml,chr(39),"&#39;")
end if
if Err.Number <>0 then
CovHtml= "CovHtml转换中出错请联系管理员<br>"
Err.Clear
end if
end function
%>

<textarea name="arcontent"><%=covhtml(arcontent)%></textarea>
[Edit on 2004-9-3 9:46:36 By cnbruce]
By [cnbruce] at 2004-9-3 9:46:18
请问,在页面上加个另存为按钮,如何把当前页存到本地.
By [hanson888] at 2004-9-29 16:19:26
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>runcode</title>
</head>

<body>
<script language="JavaScript" type="text/JavaScript">
//运行文本域代码
function runEx(cod1) {
cod=document.all(cod1)
var code=cod.value;
if (code!=""){
var newwin=window.open('','',''); //打开一个窗口并赋给变量newwin。
newwin.opener = null // 防止代码对论谈页面修改
newwin.document.write(code); //向这个打开的窗口中写入代码code,这样就实现了运行代码功能。
newwin.document.close();
}
}
</script>
<textarea name="textarea" cols="60" rows="10" id="rn01"><font color="red">加入HTML代码</font></textarea>
<br><INPUT onclick="runEx('rn01')" type="button" value="运行代码" style="cursor:hand">&nbsp;&nbsp;[Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]
</body>
</html>

楼主,为何试了半天还是不能达到正确的效果呀
[Edit on 2004-10-3 11:23:12 By hiddy]
By [hiddy] at 2004-10-3 11:16:42
狼哥问你个问题,我想知道为什么在运行代码窗口里面运行asp的代码就不支持呢?怎么样才能支持?比如我在框里输入<%=now()%>什么也不显示阿该怎么做才可以呢?
By [backup] at 2004-10-21 18:01:33
代码运行是在客户端执行的啊,想想ASP的执行原理

如果真要执行简单操作,用VBSCRIPT嘛。
By [cnbruce] at 2004-10-21 19:46:43
谢了明白了
By [backup] at 2004-10-21 20:09:59

[Ctrl+A 全部选择进行拷贝 提示:可先修改部分代码,再点击运行]
By [212] at 2004-11-6 12:59:08
晕,“ubb代码的截断”和“数据库中含有
[Ctrl+A 全部选择进行拷贝 提示:可先修改部分代码,再点击运行] 的标签转换为带id的textarea和一运行按纽”弄不明白什么意思……?!
By [xryz] at 2004-12-3 11:49:57
问一下,为什么我的代码可以运行,为什么新窗口的空格全部变成了问号呢??
By [将计就计机] at 2004-12-29 10:26:35
现在这个功能是不是关掉了?
为什么我测试都不行呢?
By [咖啡II] at 2005-1-24 16:30:10
我要向楼主学习
为国增光
By [灵机小不点] at 2006-2-15 20:44:08


Post a Comment
呢称: 验证码: 
禁止笑脸转换 禁止UBB | 缩放输入框:6 5 | [Ctrl+Enter提交](1000个字符限制)