程序代码

HTML转换成UBB代码的JAVASCRIPT和ASP函数程序

作者:随然日期:2009-04-05

字体大小: 小中大

在做网站的过程中，经常会遇到把UBB代码的文字内容转换成HTML代码显示出来，有的时候也会把HTML代码转换成UBB代码。比如在使用ASP+WML制作WAP网站的过程中，就遇到了这个问题。
文字内容包含有<table><tr><td>等HTML的代码，手机浏览时无法正常在WML页面中显示出来，所以就可以把这些HTML代码标签转换成UBB代码，然后再转换成简单的WML支持的HTML代码显示出来。
下面提供两种代码供大家选择：
第一种：JAVASCRIPT代码

HTML代码

function html_trans(str) {
	str = str.replace(/\r/g,"");
	str = str.replace(/on(load|click|dbclick|mouseover|mousedown|mouseup)="[^"]+"/ig,"");
	str = str.replace(/<script[^>]*?>([\w\W]*?)<\/script>/ig,"");
	
	str = str.replace(/<a[^>]+href="([^"]+)"[^>]*>(.*?)<\/a>/ig,"\n<a target="_blank" href="$1" rel="external">$2</a>\n");
	
	str = str.replace(/<font[^>]+color=([^ >]+)[^>]*>(.*?)<\/font>/ig,"\n[color=$1]$2[/color]\n");
	
	str = str.replace(/<img[^>]+src="([^"]+)"[^>]*>/ig,"\n<img src="$1" border="0" alt=""/>\n");
	
	str = str.replace(/<([\/]?)b>/ig,"[$1b]");
	str = str.replace(/<([\/]?)strong>/ig,"[$1b]");
	str = str.replace(/<([\/]?)u>/ig,"[$1u]");
	str = str.replace(/<([\/]?)i>/ig,"[$1i]");
	
	str = str.replace(/ /g," ");
	str = str.replace(/&/g,"&");
	str = str.replace(/"/g,"\"");
	str = str.replace(/</g,"<");
	str = str.replace(/>/g,">");
	
	str = str.replace(/<br>/ig,"\n");
	str = str.replace(/<[^>]*?>/g,"");
	str = str.replace(/\[url=([^\]]+)\]\n(\[img\]\1\[\/img\])\n\[\/url\]/g,"$2");
	str = str.replace(/\n+/g,"\n");
	
	return str;
}

function trans(){
	var str = "";
	rtf.focus();
	rtf.document.body.innerHTML = "";
	rtf.document.execCommand("paste");
	str = rtf.document.body.innerHTML;
	if(str.length == 0) {
		alert("剪切版不存在超文本数据！");
		return "";
	}
	return html_trans(str);
}
</script>

<textarea style="width:100%; height:200px" id="text" class="textarea" onbeforepaste="if(document.getElementById('x_paste').checked){window.clipboardData.setData('text',trans());this.focus();}"></textarea><br />
<iframe scrolling="no" id="rtf" src="about:blank" MARGINHEIGHT="0" MARGINWIDTH="0" style="width:0px; height:0px;"></iframe>
<input type="button" value="转换剪切版超文本数据" onclick="document.getElementById('text').value += trans()">
<input type="checkbox" id="x_paste"> <label for="x_paste">启用超文本粘贴转换</label>
<script>
rtf.document.designMode="On";
</script>

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

使用说明
1、选择HTML内容，比如有链接，或者颜色的拷贝。
2、点击运行代码按钮
3、直接点击转换
4、出来的就是论坛专用的 ubb 代码了。

第二种：ASP代码

复制内容到剪贴板

程序代码

<%
function html2ubb(l1)
if len(trim(l1))>0 then
else
exit function
end if
dim l4,I1,I2,I3
dim i,I4:I4=array(16,19,21,24,32,45)
I1=l1
set I2=new regexp
I2.global=true
I2.ignorecase=true'忽略大小写
I2.pattern="/r":I1=I2.replace(I1,"")
I2.pattern="on(load|click|dbclick|mouseover|mousedown|mouseup)=""[^""]+""":I1=I2.replace(I1,"")
I2.pattern="<script[^>]*?>([\w\W]*?)<\/script>":I1=I2.replace(I1,"")
I2.pattern="<a[^>]+href=""([^""]+)""[^>]*>(.*?)<\/a>":I1=I2.replace(I1,"$2")
I2.pattern="<font[^>]+color=([^ >]+)[^>]*>(.*?)<\/font>":I1=I2.replace(I1,"[color=$1]$2[/color]")
I2.pattern="<img[^>]+src=""([^""]+)""[^>]*>":I1=I2.replace(I1,"

")
I2.pattern="<([\/]?)b>":I1=I2.replace(I1,"[$1b]")
I2.pattern="<([\/]?)strong>":I1=I2.replace(I1,"[$1b]")
I2.pattern="<([\/]?)u>":I1=I2.replace(I1,"[$1u]")
I2.pattern="<([\/]?)i>":I1=I2.replace(I1,"[$1i]")
I2.pattern=" ":I1=I2.replace(I1," ")
I2.pattern="&":I1=I2.replace(I1,"&")
I2.pattern="""":I1=I2.replace(I1,"""")
I2.pattern="<":I1=I2.replace(I1,"<")
I2.pattern=">":I1=I2.replace(I1,">")
I2.pattern="<br />":I1=I2.replace(I1,vbcrlf)
I2.pattern="<[^>]*?>":I1=I2.replace(I1,"")
I2.pattern="\n+":I1=I2.replace(I1,vbcrlf)
set I2=nothing
html2ubb=I1
end function
%>

使用方法：
htmlcontent="含有HTML代码的内容"
Response.Write html2ubb(htmlcontent)

下载文件

点击下载上面两个代码文件

提供几个网页供大家参考：
http://tool.alimama.com/htmltoubb.php
http://www.7747.net/online/gj/htmtoubb.htm
http://www.blueidea.com/tech/web/2003/1486.asp
http://blog.csdn.net/MPU/archive/2009/02/23/3929212.aspx

[本日志由随然于 2009-04-05 09:04 PM 编辑]

上一篇: 让IIS支持调试WAP网站

下一篇: IE浏览器下载rar等格式文件后自动打开的解决办法

文章来自: 本站原创

引用通告: 查看所有引用 | 我要引用此文章

Tags: ASP 代码 javascript

相关日志:

评论: 1 | 引用: 0 | 查看次数: 16754

发表评论

昵　称:	记住我的信息
密　码:	游客发言不需要密码.
邮　箱:	邮件地址支持Gravatar头像,邮箱地址不会公开.
网　址:	输入网址便于回访.
内　容:	正在加载编辑器...
验证码:	点击获取验证码
选　项:	禁止表情转换禁止自动转换链接禁止自动转换关键字

虽然发表评论不用注册，但是为了保护您的发言权，建议您注册帐号. 字数限制 1 字 \| UBB代码关闭 \| [img]标签关闭