很不错的一个UBB代码

2016-02-19 12:08 7 1 收藏

下面，图老师小编带您去了解一下很不错的一个UBB代码，生活就是不断的发现新事物，get新技能~

【 tulaoshi.com - Web开发】

%
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)%

来源:http://www.tulaoshi.com/n/20160219/1599953.html

看过《很不错的一个UBB代码》的人还看了以下文章更多>>

《狂怒》真的很不错！为其正名！

《狂怒》真的很不错！为其正名！好吧，鉴于许多人说对狂怒很失望，本人决定出来为其正名：首先说说优点： 1. 画面，全场稳定在60帧，开到极致选项也是如此，灰常给力！我玩过的大作还未碰到这样的，当然CS除外 2.射击感：个人觉的比COD,MOH系列好多了!操作感设计感超爽！ 3.游戏性：射击，赛车，小游戏等（目前进度慢，没完成） 4.武器：武器...

孕期补充叶酸吃西柚很不错

标签：怀孕

西柚是柚子类的，具有酸味和甘味。成熟时果皮呈黄色，果肉淡红白色。西柚含维他命C等非常丰富，是含糖分较少的水果，减肥人士的餐单都少不了它。西柚好吃又营养是很多人都喜欢的水果。高血压患者常服用降压药，以排除体内多余的钠，维持身体正常的生化代谢平衡，但同时往往又使体内必需的钾流失。而钾对于维护心脏、血管、肾脏的功能，是...

《NBA2K11》测评：试玩感受很不错

《NBA 2K11》测评：试玩感受很不错今天好好体验了一把XBOX-360的 NBA2K11，感觉很有惊喜。之前XBOX360上的2K10 和 2K9 都玩过，感觉和电脑上的比游戏上略微强一些，不过大致上还是一样。以此推论的话，如果PC版的NBA2K11也只是比主机版游戏性略差的话，那就等同于PC上最强的NBA2K游戏出现了。不过大家不要以为有什么翻天覆地的变化，...

减肥好方法 7种减肥方法效果很不错

标签：怎样减肥减肥方法瘦身

这个减肥，是很多的人都想要做的事情。但是很多人又苦于减肥的方法太过于折磨人。那么，今天就为大家介绍几种减肥的好方法，以及这个减肥时期的饮食注意事项，接下来赶紧来看看吧! 1、黄瓜鸡蛋法每餐只吃黄瓜和鸡蛋，代替3餐，坚持7天，包你瘦，不过到时你就会特别想念老干妈的味道了。是很好的刮油办法。原理：黄瓜...

奖励很不错《神之刃》每日任务刷分指南

标签：手机游戏

奖励很不错《神之刃》每日任务刷分指南自从《神之刃》加入了每日奖励系统，越来越多的玩家开始刷每日奖励任务。图老师图老师小编略微掐指一算，不花钻的部分，每日能做到75分积分，剩余45分积分需要适当花些钻，接下来图老师图老师小编就来给大家简单说明。《神之刃》中每日任务目标一共有十五种，其中有十一种是不需要玩家花钻就能完成...

查看更多精彩>>