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=""em/em1.gif"">")
vstr = replace(vstr,":(","<img src=""em/em2.gif"">")
vstr = replace(vstr,":o","<img src=""em/em3.gif"">")
vstr = replace(vstr,":D","<img src=""em/em4.gif"">")
vstr = replace(vstr,";)","<img src=""em/em5.gif"">")
vstr = replace(vstr,":p","<img src=""em/em6.gif"">")
vstr = replace(vstr,":cool:","<img src=""em/em7.gif"">")

您可能感兴趣的文章：
UBB(vb.net完整版)
UBB(c#完整版)
php中Ubb代码编辑器程序代码
vb.net Application.Lock 用法
在.net开发中几个重要的认识误区(1)
vb.net获取真实IP的函数
正则表达式在网络编程中的运用
Autodesk官方最新的.NET教程（三）（vb.net版）
asp.net上传文件小例子
桌面端的移动运算(二)