很不错的一个UBB代码

zhushou3212

zhushou3212

2016-02-19 12:08

下面，图老师小编带您去了解一下很不错的一个UBB代码，生活就是不断的发现新事物，get新技能~
%
Function HTMLEncode(ByVal strValue)
 '忽略错误
 On Error Resume Next
 '定义变量
 Dim strNewValue
 If strValue  "" Then
  strNewValue = Replace(strValue,"","")
  strNewValue = Replace(strNewValue,"","")
  strNewValue = Replace(strNewValue,"'","'")
  strNewValue = Replace(strNewValue,"""",""")
  strNewValue = Replace(strNewValue,vbCrLf,"br")
  strNewValue = Replace(strNewValue," "," ")
 End If
 HTMLEncode = strNewValue
 '输出错误
 If Err.Number0 Then
  Response.Write Err.Description
  Response.End
 End If
End Function

Function UBBCode(strValue) 
Dim RegExp 
'strValue=HTMLEncode(strValue)
Set RegExp=New RegExp 
RegExp.IgnoreCase =True 
RegExp.Global=True 

If strValue  "" Then
RegExp.Pattern="([IMG])(.[^[]*)([/IMG])" 
strValue=RegExp.Replace(strValue,"a href=""$2"" target=_blankIMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.widthscreen.width-333)this.width=screen.width-333""/a") 

RegExp.Pattern="([FLASH])(.[^[]*)([/FLASH])" 
strValue=RegExp.Replace(strValue,"OBJECT codebase=""http://download.macromedia.com/pub/sho ... h/swflash.cab#version=4,0,2,0"" classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400 id=ShockwaveFlash1PARAM NAME=movie VALUE=""$2""PARAM NAME=quality VALUE=highembed src=""$2"" quality=high pluginspage=""") ' target=_blank rel=nofollow>http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""appl ... 00 height=400/embed/OBJECT") 

RegExp.Pattern="([ZIP])(.[^[]*)([/ZIP])" 
strValue=RegExp.Replace(strValue,"bra href=""$2""点击下载该文件/a") 

RegExp.Pattern="([RAR])(.[^[]*)([/RAR])" 
strValue=RegExp.Replace(strValue,"bra href=""$2""点击下载该文件/a") 

'RegExp.Pattern="([UPLOAD=(.[^[]*)])(.[^[]*)([/UPLOAD])" 
'strValue=RegExp.Replace(strValue,"brIMG SRC=""$2.gif"" border=0 A HREF=""$3"" TARGET=_blank点击查看或下载该文件/A") 
'strValue=RegExp.Replace(strValue,"brIMG SRC=""$2.gif"" border=0此主题相关图片如下：brA HREF=""$3"" TARGET=_blankIMG SRC=""$3"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.widthscreen.width-333)this.width=screen.width-333""/A") 

RegExp.Pattern="([URL])(http://.[^[]*)([/URL])" 
strValue=RegExp.Replace(strValue,"A HREF=""$2"" TARGET=_blank$2/A") 

RegExp.Pattern="([URL])(.[^[]*)([/URL])" 
strValue=RegExp.Replace(strValue,"A HREF=""$2") ' target=_blank rel=nofollow>http://$2"" TARGET= ... t;/A") 

RegExp.Pattern="(*)])(.[^[]*)([/URL])" 
strValue=RegExp.Replace(strValue,"A HREF=""$2"" TARGET=_blank$3/A") 

RegExp.Pattern="([URL=(.[^[]*)])(.[^[]*)([/URL])" 
strValue=RegExp.Replace(strValue,"A HREF=""[url]http://$2"" TARGET=_blank$3/A") 

RegExp.Pattern="([EMAIL])(S+@.[^[]*)([/EMAIL])" 
strValue=RegExp.Replace(strValue,"A HREF=""mailto:$2""$2/A") 

RegExp.Pattern="([EMAIL=(S+@.[^[]*)])(.[^[]*)([/EMAIL])" 
strValue=RegExp.Replace(strValue,"A HREF=""mailto:$2"" TARGET=_blank$3/A") 

RegExp.Pattern = "^(http://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "(http://[A-Za-z0-9./=?%-&_~`@':+!]+)$" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "[^=""](http://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "^(ftp://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "(ftp://[A-Za-z0-9./=?%-&_~`@':+!]+)$" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "[^=""](ftp://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "^(rtsp://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "(rtsp://[A-Za-z0-9./=?%-&_~`@':+!]+)$" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "[^=""](rtsp://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "^(mms://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "(mms://[A-Za-z0-9./=?%-&_~`@':+!]+)$" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern = "[^=""](mms://[A-Za-z0-9./=?%-&_~`@':+!]+)" 
strValue=RegExp.Replace(strValue,"a target=_blank href=$1$1/a") 

RegExp.Pattern="([HTML])(.[^[]*)([/HTML])" 
strValue=RegExp.Replace(strValue,"table width='100%' border='0' cellspacing='0' cellpadding='6' bgcolor='#FFFFFF'tdb以下内容为程序代码:/bbr$2/td/table") 

RegExp.Pattern="([code])(.[^[]*)([/code])" 
strValue=RegExp.Replace(strValue,"table width='100%' border='0' cellspacing='0' cellpadding='6' bgcolor='#FFFFFF'tdb以下内容为程序代码:/bbr$2/td/table") 

RegExp.Pattern="([color=(.[^[]*)])(.[^[]*)([/color])" 
strValue=RegExp.Replace(strValue,"font color=$2$3/font") 

RegExp.Pattern="([face=(.[^[]*)])(.[^[]*)([/face])" 
strValue=RegExp.Replace(strValue,"font face=$2$3/font") 

RegExp.Pattern="([align=(.[^[]*)])(.*)([/align])" 
strValue=RegExp.Replace(strValue,"div align=$2$3/div") 

RegExp.Pattern="([QUOTE])(.*)([/QUOTE])" 
strValue=RegExp.Replace(strValue,"table cellpadding=0 cellspacing=0 border=0 WIDTH=94% bgcolor=#000000 align=centertrtdtable width=100% cellpadding=5 cellspacing=1 border=0TRTD BGCOLOR='#FFFFFF'$2/table/tablebr") 

RegExp.Pattern="([fly])(.*)([/fly])" 
strValue=RegExp.Replace(strValue,"marquee width=90% behavior=alternate scrollamount=3$2/marquee") 

RegExp.Pattern="([move])(.*)([/move])" 
strValue=RegExp.Replace(strValue,"MARQUEE scrollamount=3$2/marquee")  

RegExp.Pattern="[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^[]*)[/GLOW]" 
strValue=RegExp.Replace(strValue,"table width=$1 style=""filter:glow(color=$2, strength=$3)""$4/table") 

RegExp.Pattern="[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^[]*)[/SHADOW]" 
strValue=RegExp.Replace(strValue,"table width=$1 style=""filter:shadow(color=$2, strength=$3)""$4/table") 

RegExp.Pattern="([i])(.[^[]*)([/i])" 
strValue=RegExp.Replace(strValue,"i$2/i") 

RegExp.Pattern="([u])(.[^[]*)([/u])" 
strValue=RegExp.Replace(strValue,"u$2/u") 

RegExp.Pattern="([b])(.[^[]*)([/b])" 
strValue=RegExp.Replace(strValue,"b$2/b") 

RegExp.Pattern="([fly])(.[^[]*)([/fly])" 
strValue=RegExp.Replace(strValue,"marquee$2/marquee") 

RegExp.Pattern="([size=1])(.[^[]*)([/size])" 
strValue=RegExp.Replace(strValue,"font size=1$2/font") 

RegExp.Pattern="([size=2])(.[^[]*)([/size])" 
strValue=RegExp.Replace(strValue,"font size=2$2/font") 

RegExp.Pattern="([size=3])(.[^[]*)([/size])" 
strValue=RegExp.Replace(strValue,"font size=3$2/font") 

RegExp.Pattern="([size=4])(.[^[]*)([/size])" 
strValue=RegExp.Replace(strValue,"font size=4$2/font") 

RegExp.Pattern="([center])(.[^[]*)([/center])" 
strValue=RegExp.Replace(strValue,"center$2/center") 
End If
Set RegExp=Nothing 
UBBCode=strValue 

'输出错误
If Err.Number0 Then
  Response.Write Err.Description
  Response.End
End If
End Function
%
调用：%=UBBCode(Content)%
展开更多 （50%）
分享

猜你喜欢

很不错的一个UBB代码

Web开发
很不错的一个UBB代码

很不错的创意插画

平面设计 海报设计 广告设计 画报设计 签名设计 服装设计 名片设计 画册设计 版式设计 商标设计
很不错的创意插画

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

润肺止咳效果很不错

营养价值
润肺止咳效果很不错

一组很不错的网页色彩表

Web开发
一组很不错的网页色彩表

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

吃这些效果很不错

食疗养生
吃这些效果很不错

推荐这2款很不错

营养价值
推荐这2款很不错

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

提问的智慧(2)

提问的智慧(2)

分页的存储过程

分页的存储过程
下拉加载更多内容 ↓