ASP网页编程之正则表达式在收集编程中的使用（5）

优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件编程|收集|正则　　3、UBB正则表达模板实例

　　上面是我写的一个UBB函数，这个函数基础上能使你的论坛成为一个优异的UBB代码论坛了。固然，经由过程改善后，你能够失掉一个更壮大的UBB论坛。

FunctionReThestr(face,str)
　dimre,str

　re="＞"
　str=checkexp(re,str,">")

　re="＜"
　str=checkexp(re,str,"<")

　re="

/"
　str=checkexp(re,str,"＜P＞")

　re=chr(32)
　str=checkexp(re,str,"")

　re=""
　str=checkexp(re,str,"")

　re="[img]((http:(//|\)){1}((w)+[.]){1,3}_
(net|com|cn|org|cc|tv)(((/[~]*|[~]*)
(w)+)|[.](w)+)*(w)+[.]{1}(gif|jpg|png))[/img]"查找图片地点
　str=checkexp(re,str,"＜imgsrc=$1＞")

　re="[w](http:(//|\)((w)+[.]){1,}_
(net|com|cn|org|cc|tv)(((/[~]*|[~]*)(w)+)|[.](w)+)*
(((([?](w)+){1}[=]*))*((w)+){1}([&](w)+[=](w)+)*)*)[/w]"查找帧地点
　str=checkexp(re,str,"＜iframewidth=300height=300src=$1＞＜/iframe＞")

　re="([^(＞)])(＜br＞)*((http|https|ftp):_
(//|\)((w)+[.]){1,}(net|com|cn|org|cc|tv|_
([0-9]{1,3}))(((/[~]*|[~]*)(w)+)|[.](w)+)*_
(((([?](w)+){1}[=]*))*((w)+){1}([&](w)+[=](w)+)*)*)"查找链接地点
　str=checkexp(re,str,"$1$2＜ahref=$3target=_blank＞$3＜/a＞")
　re="([^(http://|http:)])((www|cn)[.](w)+[.]{1,}_
(net|com|cn|org|cc)(((/[~]*|[~]*)(w)+)|[.](w)+)*
(((([?](w)+){1}[=]*))*((w)+){1}([&](w)+[=](w)+)*)*)
"查找不以http://开首的地点
　str=checkexp(re,str,"$1＜ahref=http://$2target=_blank＞$2＜/a＞")
　re="([^(=)])((w)+[@]{1}((w)+[.]){1,3}(w)+)"查找邮件地点
　str=checkexp(re,str,"＜ahref=mailto:$2＞$2＜/a＞")
　re="[color=(((w)+)|][#][0-F]{6})]((.)+)"交换字体色采
　str=checkexp(re,str,"＜fontcolor=$1＞$4＜/font＞")
　re="[size=(][0-9]{1})]((.)+)"交换字体巨细
　str=checkexp(re,str,"＜fontsize=$1＞$2＜/font＞")
　re="((.)+)"交换字体
　str=checkexp(re,str,"＜fontface=$1＞$3＜/font＞")
　re="()(.+)()"加粗字体
　str=checkexp(re,str,"＜b＞$2＜/b＞")
　re="()(.+)()"下画线
　str=checkexp(re,str,"＜u＞$2＜/u＞")
　re="([li])(.+)([/li])"列表
　str=checkexp(re,str,"＜li＞$2＜/li＞")
　re="(

)(.+)(

)"援用
　str=checkexp(re,str,"_
＜BLOCKQUOTE＞援用:＜HRSIZE=1＞$2＜HRSIZE=1＞＜/BLOCKQUOTE＞")
　re="[email=((w)+][@]{1}((w)+[.]){1,3}(w)+)](.+)([/email])"邮件
　str=checkexp(re,str,"＜ahref=mailto:$1＞$6＜/a＞")
　re="([center])(.+)([/center])"居中
　str=checkexp(re,str,"＜center＞$2＜/center＞")

　re="fuck"
　str=checkexp(re,str,"***")

　re="操"
　str=checkexp(re,str,"***")

　re="sex"
　str=checkexp(re,str,"***")

　re="TMD"
　str=checkexp(re,str,"***")

　re="shit"
　str=checkexp(re,str,"***")

　ReThestr=str
endfunction


　　UBB代码以下：

[quote][/quote]


　　测试代码以下：


http://cn.yahoo.com
http://aol.comhttp://192.168.0.1
www.yahoo.comhowareyou
http://page2000.xiloo.com/~page2000?PageNo=2&action=del
lucaihui@cmmail.com人人好http:page2000.shit
＜fontcolor=red＞http://test.com＜/font＞http://test


　　全体切合料想了局

　　ASP正则表达式对像函数以下：

　FunctionCheckExp(patrn,strng,tagstr)
　DimregEx,Matches

　SetregEx=NewRegExp创建一个新对像
　regEx.Pattern=patrn设置模板
　regEx.IgnoreCase=true搜刮是不是辨别巨细写的true表是不辨别flase暗示辨别
　regEx.Global=True搜刮是不是使用于全部字符串

　Matches=regEx.replace(strng,tagstr)婚配并替换字符串

　CheckExp=Matches前往函数了局
endfunction


　　把下面的两个函数存为一个页面（如ubbcode.asp），如许就构成一个完全的UBB函数了。

　　在你的论坛上加上这个函数，就成了撑持UBB代码的论坛了。只需在用时挪用这个函数就好了。挪用情势如

　　　text=ReThestr(text)

　　假如你要进一步测试，能够到http://www.4u2v.com/bbs往测试，由于该论坛就接纳了此模板。</p>我想详细了解ASP整站代码与PSP整站代码有什么优缺点，那个更好，更安全，更用容易维护，和管理。。。

没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点，理论上可以使用任何编程语言包括C++,VB,JS等等，当然，最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)，它可以看作是VC和Java的混合体吧。

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。