LureCoder(诱惑代码)2.0远程语法加亮调用脚本接口(前+后台)发布

前台，界面可自定义
<script> var http1=null,oldstu1="" function yibu(){ switch(http1.readyState){ case 1: status="语法加亮申请进度：正在异步连接服务器提交内容申请";break; case 2: status="语法加亮申请进度：已将数据载入内存";break; case 3: status="语法加亮申请进度：准备实例化创建脚本调用接口";break; case 4: status="语法加亮申请进度：完成、准备输出结果" if(http1.status==200){ var newwin1=window.open("") newwin1.document.open();newwin1.document.write(http1.responseText);newwin1.document.close(); } if(http1.status!=0&&http1.status!=200){ if(confirm("语法加亮申请进度：连接URL服务器超时或拒绝XMLHTTP内容申请，或者您未上网\n\n您想去LureCoder主页手动查看加亮的源代码吗？")){ window.open("http://www.lshdic.cn/lurecoder.asp") }} status=oldstu1; }} function getsource(url){ //url参数=填写任意允许xmlhttp内容请求的URL(http://)地址，不添则打开lurecoder主界面手工粘贴加亮 if(http1==null)http1=new ActiveXObject("Microsoft.XMLHTTP") if(url==null||url==""){window.open("http://www.lshdic.cn/lurecoder.asp");return false} url=url.toLowerCase();if(url.indexOf('file://')==0){if(confirm("您当前是在本地测试性弹出窗口使用该指令，该功能无法查看\n\n您想去LureCoder主页手动查看加亮的源代码吗？"))window.open("http://www.lshdic.cn/lurecoder.asp");return false} if(url.indexOf('http://')!=0||url.indexOf('.')==-1){alert("URL无效");return false} var str1="http://www.lshdic.cn/lurecoder.asp?badpost=1&defaultcolor=rgb(0,0,0)&codecolor=rgb(0,0,180), rgb(170,0,170), rgb(0,0,0), rgb(255,0,0), rgb(255,0,0), rgb(0,0,180), rgb(21,133,21), rgb(0,0,255), rgb(255,0,0), rgb(0,0,255), rgb(255,0,0), rgb(0,0,0)&ck1=0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11&ck2=2, 4, 11&ck3=5&url="+escape(url.replace(/\+/g,'&$x;')) str1=str1.replace(/ /g,"+") /* str1对应URL的POST内容参数解释 badpost=1 必须增加，强制，否则无法使用 defaultcolor=rgb(0,0,0) 默认文本的颜色，rgb(红值,黄值,蓝值)，红黄蓝值统一参数范围0-255，例如改为rgb(112,54,0) codecolor=rgb(0,0,180), rgb(170,0,170).... &#3212个加亮环节，每环节的加亮颜色 ck1=0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 要加亮的环节，0-11，默认全加亮，不加亮环节数字可删除 ck2=2, 4, 11 表示第2、4、11环节的字粗为粗体，其他为常规(不增加粗体效果) ck3=5 表示第5环节(代码中的所有被分析出的URL地址)的字样为下划线，其他为常规(不增加下划线效果) url=escape(url.replace(/\+/g,'&$x;')) 这个不需修改，否则无法正常显示 */ if(http1.readyState!=0)http1.abort() http1.onreadystatechange=yibu http1.open("post",str1,true) http1.setRequestHeader("Content-Type","application/x-www-form-urlencoded") http1.send(str1) } //getsource为异步通讯模式，按下后可以干其他事情或手动取消请求。如出现异常慢现象，可能是您请求的URL内容超大、或是www.lshdic.cn服务器连接过多导致速度慢。如出现错误现象，则是请求的目标URL所在服务器已限制xmlhttp内容请求。 //以上//号后的为注释内容，可以删除 </script> <input type=button value="查看指定URL的彩色源文件" onclick="getsource('http://www.emule.com.cn/search.php')"><br><input type=button value="取消查看请求" onclick="if(http1.readyState!=0){http1.abort();status=oldstu1;}"><p><br><p><br><p> 以下是更多的测试：<p> <input type=button value="查看lshdic.cn彩色源文件(中小,快)" onclick="getsource('http://www.lshdic.cn')"><br> <input type=button value="查看iecn.net彩色源文件(小,快)" onclick="getsource('http://www.iecn.net')"><br> <input type=button value="查看homepage.fudan.edu.cn彩色源文件(小,快)" onclick="getsource('http://homepage.fudan.edu.cn/~analyse/xingyin/main.htm')"><br> <input type=button value="查看bbs.dvbbs.net彩色源文件(超大,很慢)" onclick="getsource('http://bbs.dvbbs.net')"><br>
   提示：您可以先修改部分代码再运行

[ 本帖由 风云舞 最后编辑于 2005-8-23 14:27 ]

后台ASP版，同样可以在PHP/JSP/。NET下使用、以及结合数据库，只需改改代码，在这里就不一一给出了：
<% function getsource(url) 'url参数=填写任意允许xmlhttp内容请求的URL(http://)地址，不添则打开lurecoder主界面手工粘贴加亮 urldata="http://www.lshdic.cn/lurecoder.asp?badpost=1&defaultcolor=rgb(0,0,0)&codecolor=rgb(0,0,180), rgb(170,0,170), rgb(0,0,0), rgb(255,0,0), rgb(255,0,0), rgb(0,0,180), rgb(21,133,21), rgb(0,0,255), rgb(255,0,0), rgb(0,0,255), rgb(255,0,0), rgb(0,0,0)&ck1=0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11&ck2=2, 4, 11&ck3=5&url="&escape(replace(url,"+","&$x;")) urldata=replace(urldata," ","+") 'urldata对应URL的POST内容参数解释 'badpost=1 必须增加，强制，否则无法使用 'defaultcolor=rgb(0,0,0) 默认文本的颜色，rgb(红值,黄值,蓝值)，红黄蓝值统一参数范围0-255，例如改为rgb(112,54,0) 'codecolor=rgb(0,0,180), rgb(170,0,170).... &#3212个加亮环节，每环节的加亮颜色 'ck1=0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11 要加亮的环节，0-11，默认全加亮，不加亮环节数字可删除 'ck2=2, 4, 11 表示第2、4、11环节的字粗为粗体，其他为常规(不增加粗体效果) 'ck3=5 表示第5环节(代码中的所有被分析出的URL地址)的字样为下划线，其他为常规(不增加下划线效果) 'url=escape(replace(url,"+","&$x;")) 这个不需修改，否则无法正常显示 set http1=server.CreateObject("Microsoft.XMLHTTP") http1.abort() http1.open "post",urldata,false http1.setRequestHeader "Content-Type","application/x-www-form-urlencoded" http1.send urldata getsource=http1.responseText set http1=nothing end function 'getsource函数执行后会返回数据，可以结合数据库重复/反复循环使用，如出现异常慢现象，可能是您请求的URL内容超大、或是www.lshdic.cn服务器连接过多导致速度慢。如出现错误现象，则是请求的目标URL所在服务器已限制xmlhttp内容请求 '以上'号后的内容为注释内容，可以删除 response.write getsource("http://www.lshdic.cn") response.write "<p><hr><hr><hr><hr><hr><hr><hr><hr><hr><p>" response.write getsource("http://www.273100.net") %>
   提示：您可以先修改部分代码再运行

[ 本帖由 风云舞 最后编辑于 2005-8-23 14:29 ]

LureCoder(诱惑代码)2.0 主界面、在线手工语法加亮平台地址：

http://www.lshdic.cn/lurecoder.asp

服务器不是很快，夜间测试速度奇佳，可以显现高速的效率。



相关介绍：

http://www.lshdic.cn/lurecoder_help.htm

[ 本帖由 风云舞 最后编辑于 2005-8-23 14:33 ]

前台远程调用，如果在远程站点(http://协议)如本站，则会出现安全提示，点“是”就行了，或者设置INTERNET选项不要最高

另存到本地以后就不会出现提示了，一样运行。

<BR><FONT color='#0000FF'>dim link1=new oledbconnection(conn1) &nbsp; &nbsp;'这是一个特殊的分页程序(但是被在下简化为普通的输出记录的程序) </FONT>
   提示：您可以先修改部分代码再运行

用默认的设置测试了一下。
效果似乎…… 我看到这整行都是蓝色。

正常来说只有 dim 是蓝色 ,  注释部份应该是绿色。↓
<BR><FONT color='#0000FF'>dim <font color="#990000">link1=new oledbconnection(conn1)</font> &nbsp; <font color="#007D00">&nbsp;'这是一个特殊的分页程序(但是被在下简化为普通的输出记录的程序) </font></FONT>
   提示：您可以先修改部分代码再运行

不过能做到这样已经很不简单了…… 你是越来越强了. 向你学习!~ 继续努力!

[ 本帖由 ※潇洒※ 最后编辑于 2005-8-25 21:37 ]

我的正则水平、算法水平还不是太高，达不到那么精确，不过我会继续深入的，多谢潇洒哥的过奖：）