UBB(vb.net完整版)

UBB(vb.net完整版)

时间我用vb.net做论坛，在网上找了一下，虽然有关于ubb（vb.net）的转换代码，可是都不全面，我在这里补充了一下，拿出来和大家共享。

有什么问题到我个人的论坛www.hushiyu.com来交流，随时欢迎。

Public Class ubbs

function ubb(vstr as string)

@#替换HTML标记及换行处理

vstr = replace(vstr, ">", ">")

vstr = replace(vstr, "<", "<")

vstr = Replace(vstr, CHR(32), " ")

vstr = Replace(vstr, CHR(9), " ")

vstr = Replace(vstr, CHR(34), """)

vstr = Replace(vstr, CHR(39), "@#")

vstr = Replace(vstr, CHR(13), "")

vstr = Replace(vstr, CHR(10), "<BR> ")

vstr = Replace(vstr, "[enter]", "<BR> ")

dim xface as integer

if xface=1 then

@#表情转换,数值型变量xface=1时，允许转换

vstr = replace(vstr,":)","<img src="http://www.5ixz.cn/Html/html2/em/em1.gif>)"

vstr = replace(vstr,":(","<img src=""em/em2.gif"">")

vstr = replace(vstr,":o","<img src="http://www.5ixz.cn/Html/html2/em/em3.gif>)"