跟ASP下的有些不同，呵，我比较笨，研究了好久才做出来！
给不知道的朋友看看吧~高手别笑我
测试： isdotnet.com/xbook/

程序代码如下：
<SCRIPT RUNAT="SERVER"> function ubb(vstr as string) '替换HTML标记及换行处理 vstr = server.HTMLEncode(vstr) vstr = Replace(vstr, chr(32), "&nbsp;") vstr = Replace(vstr, vbCrlf, "<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"">") vstr = replace(vstr,":mad:","<img src=""em/em8.gif"">") vstr = replace(vstr,":eek:","<img src=""em/em9.gif"">") vstr = replace(vstr,":?:","<img src=""em/em0.gif"">") end if dim objregex as RegEx '屏蔽JS等等 objregex = new regex("javascript") vstr = objregex.replace(vstr,"javascript") objregex = new regex("jscript:") vstr = objregex.replace(vstr,"jscript:") objregex = new regex("js:") vstr = objregex.replace(vstr,"js:") objregex = new regex("value") vstr = objregex.replace(vstr,"value") objregex = new regex("about:") vstr = objregex.replace(vstr,"about:") objregex = new regex("file:") vstr = objregex.replace(vstr,"file:") objregex = new regex("documents.cookie") vstr = objregex.replace(vstr,"documents.cookie") objregex = new regex("vbscript:") vstr = objregex.replace(vstr,"vbscript:") objregex = new regex("vbs:") vstr = objregex.replace(vstr,"vbs:") objregex = new regex("(on(mouse|exit|error|click|key))") vstr = objregex.replace(vstr,"on$2") objregex = new regex("script") vstr = objregex.replace(vstr,"script") 'UBB转换 'url objregex = new regex("\[url\](http|https|ftp):\/\/(.[^\[]*)\[\/url\]") vstr = objregex.replace(vstr,"<a href=""$1://$2"" TARGET=""_blank"">$1://$2</a>") 'EMAIL objregex = new regex("\[email\](.[^\[]*)\[\/email\]") vstr = objregex.replace(vstr,"<a href=""mailto:$1"" TARGET=""_blank"">$1</a>") 'IMG objregex = new regex("\[img\](http|https|ftp):\/\/(.[^\[]*)\[\/img\]") vstr = objregex.replace(vstr," <a onfocus=this.blur() href=""$1://$2"" target=_blank><IMG SRC=""$1://$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>") '自动识别URL objregex = new regex("\[url=(http:\/\/.[^\[]*)\](.[^\[]*)(\[\/url\])") vstr = objregex.replace(vstr,"<a href=""$1"" target=""_blank"">$2</a>") objregex = new regex("^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)") vstr = objregex.replace(vstr,"<a href=""$1"" target=""_blank"">$1</a>") objregex = new regex("(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$") vstr = objregex.replace(vstr,"<a target=_blank href=$1>$1</a>") objregex = new regex("[^>=""](http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)") vstr = objregex.replace(vstr,"<a target=_blank href=$1>$1</a>") 'COLOR objregex = new regex("\[color=(.[^\[]*)\](.[^\[]*)\[\/color\]") vstr = objregex.replace(vstr,"[color="$1"]$2[/color]") 'u objregex = new regex("\[u\](.*)\[\/u\]") vstr = objregex.replace(vstr,"[u]$1[/u]") 'B objregex = new regex("\[b\](.*)\[\/b\]") vstr = objregex.replace(vstr,"[b]$1[/b]") 'I objregex = new regex("\[i\](.*)\[\/i\]") vstr = objregex.replace(vstr,"[i]$1[/i]") 'FLY objregex = new regex("\[fly\](.*)\[\/fly\]") vstr = objregex.replace(vstr,"<marquee width=""80%"" behavior=""alternate"" scrollamount=""3"">$1</marquee>") 'SHADOW objregex = new regex("\[shadow=*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/shadow\]") vstr = objregex.replace(vstr,"<span style=""filter: Shadow(Color=$1, Direction=$2)"">$3</span>") 'CODE objregex = new regex("\[code\](.*)\[\/code\]") vstr = objregex.replace(vstr,"<table width=""80%"" border=""0"" cellpadding=""2"" cellspacing=""0"" bgcolor=""#99FFCC"" style=""border:1px solid #000000;font-size:9pt;font-family:tahoma""><tr><td>$1</td></tr></table>") '完成，还可以自己扩展 ubb = vstr end function </SCRIPT>
[Ctrl+A 全部选择 提示：你可先修改部分代码，再按运行]

Ｐ。Ｓ：怎么＜SCRIPT RUNAT="SERVER"＞＜/script＞在这里显示不出来， :confused:

sorry,我不会C#

不错！！后面的全是正则表达式

成熟的色彩搭配加上颓废的现代感觉。顶。

上面的代码是我的用的这个dll的一部分，现在将其中最实用的一部分公布(主要是数据库处理部分)给大家！在我的ASP.NET开发中，有用数据库的地方我基本上都用到了这个！

DLL：
相关文件：点这儿打开
Source：
相关文件：点这儿打开

'说明：
'drwrnd产生随机由0-9数字组成的字符串来的
'Dim vstr as string = New drw.drwrandom.GetRnd(4) ---产生4位由数字组成的字符串
' SQLDB 用来处理数据库的处理
' 数据库的连接串请放到web.config中,名字是ConnStr
' strSQL 为SQL串（注意要求已经过滤）
' ExecuteSQL() 方法适用于 SQL 语句是 UPDATE, INSERT, DELETE 的命令
'    执行strSQL串，无返回值
' SelectFromDB 适用于 SQL 语句是 SELECT 的查询
'    从数据库读出查询数据，以DataSet形式返回
'    该DataSet的DataTable名字是"My"，引用时注意。
'SelectDBtoRD适用于SQL语句是SELECT的查询
' 从数据库读出查询数据，以为Datareader形式返回(建议不使用，因为我不知道在这里怎么关闭数据库)
' PageDS 用来处理分页
' DataSource 属性是分页的数据源
' PageSize 属性是每页的页码
' PageSelect方法用来得到第CurPage页的数据，返回DataView可以直接绑定
' GetTotalPage方法用来得到总页数
'Filter:ubb转化，转化形式由Filter.FilterLabel决定：1过滤反动字符,2UBB转化(支持[html]标签),3普通转化，禁止所有,其他不做任何改变

'公共成员结构：
Namespace drw
    Public Class drwrnd
        Public Function getrnd(integer) as string
    Public Class Filter
        Public FilterLabel as integer '指定转化形式
        Public Function ubb(string) as string
    Public Class SQLDB
        Public strSQL as string ' 指定sql字符串
        Public Sub ExecuteSQL()
        Public Function SelectDBtoRD as Data.OleDb.OleDbDataReader
        Public Function SelectFromDB as Data.DataSet
    Public Class PageDS
        Public Function PageSelect(integer) as dataview
        Public PageSize '指定页数
        Public TotalPage as inter '返回总页数
        Public DataSource as Data.DataSet '指定数据源DataSet

有点看不懂

加入精华,取消置定