账号通
    

账号  

密码  

2395

查看

6

回复
主题:让科汛编辑器能运行javascript代码!!! [收藏主题] 转到:  
lxykx 当前离线

325

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:4196 分
登录次数:536 次
注册时间:2006/9/25
最后登录:2012/10/31
lxykx 发表于:2007/7/28 14:01:00   | 只看该作者 查看该作者主题 楼主 
做在线知识付费 选科汛云开店

看到很多Blog上都能够支持javascript代码的直接运行演示. 好象科汛编辑器不能实现!!

如以下效果:http://www.webjx.com/htmldata/2006-09-12/1158029666.html

    [Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]


[此贴子已经被作者于2007-7-28 14:07:18编辑过]

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
狂逛网盟 当前离线

117

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:998 分
登录次数:74 次
注册时间:2007/7/26
最后登录:2013/4/22
狂逛网盟 发表于:2007/7/31 12:19:00   | 只看该作者 查看该作者主题 沙发 
做在线知识付费 选科汛云开店

好东西怎么会没有人顶呢?呵呵

等4.0出来后自己整合

谢谢 LZ

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
lxykx 当前离线

325

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:4196 分
登录次数:536 次
注册时间:2006/9/25
最后登录:2012/10/31
lxykx 发表于:2007/7/30 17:40:00   | 只看该作者 查看该作者主题 藤椅 
科汛在线考试系统(NET)
是啊,自己顶一个!!!!
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
mt56 当前离线

4985

主题

53

广播

17

粉丝
添加关注
级别:版主

用户积分:23430 分
登录次数:1621 次
注册时间:2007/2/10
最后登录:2022/9/28
mt56 发表于:2007/7/28 19:05:00   | 只看该作者 查看该作者主题 板凳 
科汛智能建站系统
在制作/收藏源代码的网站非常有用。支持一个!
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
lxykx 当前离线

325

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:4196 分
登录次数:536 次
注册时间:2006/9/25
最后登录:2012/10/31
lxykx 发表于:2007/7/28 14:21: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)="" & 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(); 

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
lxykx 当前离线

325

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:4196 分
登录次数:536 次
注册时间:2006/9/25
最后登录:2012/10/31
lxykx 发表于:2007/7/28 14:17:00   | 只看该作者 查看该作者主题 地板 
科汛在线商城系统(NET)
希望科汛官方能将该功能整合进去
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
lxykx 当前离线

325

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:4196 分
登录次数:536 次
注册时间:2006/9/25
最后登录:2012/10/31
lxykx 发表于:2007/7/28 14:16:00   | 只看该作者 查看该作者主题 7楼 
科汛智能建站系统

ewbeditor编辑器修改后可以实现,不知道科汛内容编辑器如何实现

首先我们需要一个个运行代码的js文件也就是javascript代码,你可以把他作成js文件也可以直接放到调用的页面

比如我的display.asp文件.因为这个是最终显示内容的页面,用户浏览的时候也就是看的这个页面,运行代码肯定也就在这个页面进行了,所以我们把代码加入到这个页面的
<SCRIPT language=JavaScript type=text/javascript></SCRIPT>之间:

具体代码如下:

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



把这个函数加入到<SCRIPT language=JavaScript type=text/javascript></javascript>之中后我们就要来构建我们的运行代码的输入框和运行按钮了.

先用一个文本域框如果不能直接输入,可以切换到代码状态下直接输入下面的代码:
<TEXTAREA style="WIDTH: 579px; HEIGHT: 42px" cols=23></TEXTAREA>
ewbeditor 中称为"插入输入区".

直接插入完成后需要对它进行一下改动(切换到代码状态),需要对其赋一个id值(尽量长一点区分其他元素),完成后为:
<TEXTAREA id="2020" style="WIDTH: 579px; HEIGHT: 42px" cols=23></TEXTAREA>

切换到设计状态 在文本域中输入要运行的代码.

下面再加入一个运行按钮(ewebeditor中的"插入按钮"),如果不能加入,请切换到代码状态在代码中输入下面的代码:
<BUTTON style="WIDTH: 52px; HEIGHT: 24px">运行代码</BUTTON>

然后给按钮添加一个事件:onclick="runEx('2020')"

这里的值一定要和你自己给定的文本域框的id的值要保持一致.完成后的按钮代码如下:
<BUTTON onclick="runEx('2020')" style="WIDTH: 52px; HEIGHT: 24px">运行代码</BUTTON>

设置的时候需要切换到代码状态下才能完成.

<TEXTAREA id="202320" style="WIDTH: 579px; HEIGHT: 42px" cols=23></TEXTAREA>
<BUTTON onclick="runEx('202320')" style="WIDTH: 62px; HEIGHT: 24px">运行代码</BUTTON>


你可以复制一份上面的代码然后切换到代码状态找个地方粘贴上去,回到编辑状态就能直接用了,需要多个的话请改id值哦.

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行3.73828秒 powered by KesionCMS 9.0