 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
在论坛中，我经常要使用到特别的显示效果，而要得到这些效果，我们通常都是使用ubb 函数来处理，下面是我整理的ubb代码~，有待完善~ [CODE] \\\'----------------------------------------------------------\\\' \\\'--------------------UBBCode Function----------------------\\\' \\\'----------------------------------------------------------\\\' Function UBBCode(ByVal strValue) \\\'忽略错误 On Error Resume Next \\\'定义变量 Dim RegExp Dim strNewValue Set RegExp = New RegExp RegExp.IgnoreCase = True RegExp.Global = True strValue = UCase(HTMLEncode(strValue)) If strValue <> "" Then RegExp.Pattern = "([URL])(.[^[]*)([/URL])" strNewValue = RegExp.Replace(strValue,"<A HREF=\\\'HTTP://$2\\\' TARGET=\\\'_BLANK\\\'>$2</A>") RegExp.Pattern = "([URL])(HTTP://.[^[]*)([/URL])" strNewValue = RegExp.Replace(strValue,"<A HREF=\\\'$2\\\' TARGET=\\\'_BLANK\\\'>$2</A>") RegExp.Pattern = "([URL=(HTTP://.[^[]*)])(.[^[]*)([/URL])" strNewValue = RegExp.Replace(strValue,"<A HREF=\\\'$2\\\' TARGET=\\\'_BLANK\\\'>$3</A>") RegExp.Pattern = "([URL=(.[^[]*)])(.[^[]*)([/URL])" strNewValue = RegExp.Replace(strValue,"<A HREF=\\\'HTTP://$2\\\' TARGET=\\\'_BLANK\\\'>$3</A>") RegExp.Pattern = "([IMG])(.[^[]*)([/IMG])" strNewValue = RegExp.Replace(strNewValue,"<IMG SRC=\\\'$2\\\' BORDER=\\\'0\\\'>") RegExp.Pattern = "([IMG=(HTTP://.[^[]*)])([/IMG])" strNewValue = RegExp.Replace(strNewValue,"<IMG SRC=\\\'$2\\\' BORDER=\\\'0\\\'>") RegExp.Pattern = "([IMG=(.[^[]*)])([/IMG])" strNewValue = RegExp.Replace(strNewValue,"<IMG SRC=\\\'HTTP://$2\\\' BORDER=\\\'0\\\'>") RegExp.Pattern = "([SIZE=([0-9]*)])(.[^[]*)([/SIZE])" strNewValue = RegExp.Replace(strNewValue,"<FONT SIZE=\\\'$2\\\'>$3</FONT>") RegExp.Pattern = "([B])(.[^[]*)([/B])" strNewValue = RegExp.Replace(strNewValue,"<B>$2</B>") RegExp.Pattern = "([COLOR=(.[^[]*)])(.[^[]*)([/RED])" strNewValue = RegExp.Replace(strNewValue,"<FONT COLOR=\\\'$2\\\'>$3</FONT>") RegExp.Pattern = "([RED])(.[^[]*)([/RED])" strNewValue = RegExp.Replace(strNewValue,"<FONT COLOR=\\\'#FF0000\\\'>$2</FONT>") RegExp.Pattern = "([GREEN])(.[^[]*)([/GREEN])" strNewValue = RegExp.Replace(strNewValue,"<FONT COLOR=\\\'#009900\\\'>$2</FONT>") RegExp.Pattern = "([BLUE])(.[^[]*)([/BLUE])" strNewValue = RegExp.Replace(strNewValue,"<FONT COLOR=\\\'#000099\\\'>$2</FONT>") RegExp.Pattern = "([GRAY])(.[^[]*)([/GRAY])" strNewValue = RegExp.Replace(strNewValue,"<FONT COLOR=\\\'#999999\\\'>$2</FONT>") RegExp.Pattern = "([S])(.[^[]*)([/S])" strNewValue = RegExp.Replace(strNewValue,"<FONT STYLE=\\\'TEXT-DECORATION:LINE-THROUGH\\\'>$2</FONT>") RegExp.Pattern = "([I])(.[^[]*)([/I])" strNewValue = RegExp.Replace(strNewValue,"<I>$2</I>") RegExp.Pattern = "([U])(.[^[]*)([/U])" strNewValue = RegExp.Replace(strNewValue,"<U>$2</U>") RegExp.Pattern = "([ALIGN=(.[^[]*)])(.[^[]*)([/ALIGN])" strNewValue = RegExp.Replace(strNewValue,"<DIV ALIGN=\\\'$2\\\'>$3</DIV>") RegExp.Pattern = "([CENTER])(.[^[]*)([/CENTER])" strNewValue = RegExp.Replace(strNewValue,"<CENTER>$2</CENTER>") RegExp.Pattern = "([EMAIL])(.[^[]*)([/EMAIL])" strNewValue = RegExp.Replace(strNewValue,"<A HREF=\\\'MAILTO:$2\\\'>$2</A>") RegExp.Pattern = "([EMAIL=(.[^[]*)])(.[^[]*)([/EMAIL])" strNewValue = RegExp.Replace(strNewValue,"<A HREF=\\\'MAILTO:$2\\\'>$3</A>") RegExp.Pattern = "([FLY])(.[^[]*)([/FLY])" strNewValue = RegExp.Replace(strNewValue,"<MARQUEE SCROLLAMOUT=\\\'3\\\' BEHAVIOR=\\\'ALTERNATE\\\' WIDTH=\\\'98%\\\'>$2</MARQUEE>") RegExp.Pattern = "([MOVE])(.[^[]*)([/MOVE])" strNewValue = RegExp.Replace(strNewValue,"<MARQUEE SCROLLAMOUT=\\\'3\\\'>$2</MARQUEE>") RegExp.Pattern = "([MP=([0-9]*),([0-9]*)])(.[^[]*)([/MP])" strNewValue = RegExp.Replace(strNewValue,"<OBJECT ALIGN=\\\'MIDDLE\\\' CLASSID=\\\'CLSID:22D6F312-B0F6-11D0-94AB-0080C74C7E95\\\' CLASS=\\\'OBJECT\\\' ID=\\\'MEDIAPLAYER\\\' WIDTH=\\\'$2\\\' HEIGHT=\\\'$3\\\'><PARAM NAME=\\\'SHOWSTATUSBAR\\\' VALUE=\\\'-1\\\'><PARAM NAME=\\\'FILENAME\\\' VALUE=\\\'$4\\\'><EMBED TYPE=\\\'APPLICATION/X-OLEOBJECT\\\' CODEBASE=\\\'HTTP://ACTIVEX.MICROSOFT.COM/ACTIVEX/CONTROLS/MPLAER/EN/NSMP2INF.CAB#VERSION=5,1,52,701\\\' FILENAME=MP SRC=\\\'$4\\\' WIDTH=\\\'$2\\\' HEIGHT=\\\'$3\\\'></EMBED></OBJECT>") RegExp.Pattern = "([FLASH])(.[^[]*)([/FLASH])" strNewValue = RegExp.Replace(strNewValue,"<OBJECT CODEBASE=\\\'HTTP://DOWNLOAD.MACROMEDIA.COM/PUB/SHOCKWAVE/CABS/FLASH/SWFLASH.CAB#VERSION=4,0,2,0\\\' CLASSID=\\\'CLSID:D27CDB6E-AE6D-11CF-96B8-444553540000\\\' WIDTH=\\\'500\\\' HEIGHT=\\\'400\\\'><PARAM NAME=\\\'MOVIE\\\' VALUE=\\\'$2\\\'><PARAM NAME=\\\'QUALITY\\\' VALUE=\\\'HIGH\\\'><EMBED SRC=\\\'$2\\\' QUALITY=\\\'HIGH\\\' PLUGINSPAGE=\\\'http://WWW..MACROMEDIA.COM/SHOCKWAVE/DOWNLOAD/INDEX.CGI?P1_PROD_VERSION=SHOCKWAVEFLASH\\\' TYPE=\\\'APPLICATION/S-SHOCKWAVE-FLASH\\\' WIDTH=\\\'500\\\' HEIGHT=\\\'400\\\'>$2</EMBED></OBJECT>") RegExp.Pattern = "([QT=([0-9]*),([0-9]*)])(.[^[]*)([/QT])" strNewValue = RegExp.Replace(strNewValue,"<EMBED SRC=\\\'$4\\\' WIDTH=\\\'$2\\\' HEIGHT=\\\'$3\\\' AUTOPLAY=\\\'TRUE\\\' LOOP=\\\'FALS\\\'E CONTROLLER=\\\'TRUE\\\' PLAYEVERYFRAME=\\\'FALSE\\\' CACHE=FALSE SCALE=\\\'TOFIT\\\' BGCOLOR=\\\'#000000\\\' KIOSKMODE=\\\'FALSE\\\' TARGETCACHE=\\\'FALSE\\\' PLUGINSPAGE=\\\'HTTP://WWW.APPLE.COM/QUICKTIME/\\\'>") RegExp.Pattern = "([RM=([0-9]*),([0-9]*)])(.[^[]*)([/RM])" strNewValue = RegExp.Replace(strNewValue,"<OBJECT CLASSID=\\\'CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA\\\' CLASS=\\\'OBJECT\\\' ID=\\\'RAOCX\\\' WIDTH=\\\'$2\\\' HEIGHT=\\\'$3\\\'><PARAM NAME=\\\'SRC\\\' VALUE=\\\'$4\\\'><PARAM NAME=\\\'CONSOLE\\\' VALUE=\\\'CLIP1\\\'><PARAM NAME=\\\'CONTROLS\\\' VALUE=\\\'IMAGEWINDOW\\\'><PARAM NAME=\\\'AUTOSTART\\\' VALUE=\\\'TRUE\\\'></OBJECT><BR><OBJECT CLASSID=\\\'CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA\\\' HEIGHT=\\\'32\\\' ID=\\\'VIDEO2\\\' WIDTH=\\\'$3\\\'><PARAM NAME=\\\'SRC\\\' VALUE=\\\'$4\\\'><PARAM NAME=\\\'AUTOSTART\\\' VALUE=\\\'-1\\\'><PARAM NAME=\\\'CONTROLS\\\' VALUE=\\\'CONTROLPANEL\\\'><PARAM NAME=\\\'CONSOLE\\\' VALUE=\\\'CLIP1\\\'></OBJECT>") End If UBBCode = LCase(strNewValue) \\\'输出错误 If Err.Number>0 Then Response.Write Err.Description Response.End End If End Function \\\'----------------------------------------------------------\\\' \\\'-------------------HTMLEncode Function--------------------\\\' \\\'----------------------------------------------------------\\\' Function HTMLEncode(ByVal strValue) \\\'忽略错误 On Error Resume Next \\\'定义变量 Dim strNewValue If strValue <> "" Then strValue = Server.HTMLEncode(strValue) 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.Number>0 Then Response.Write Err.Description Response.End End If End Function [CODE] 使用的时候，在你的textarea中输入ubb代码，那么，在处理页面直接使用 content = UBBCode(Request.Form("content"))就可以咯~ 关于ubb的书写，可以在网上搜索，我就不说咯！ 返回类别: 教程 上一教程: 一个取图片尺寸的类，支持JPG,GIF,PNG 下一教程: SQL SERVER结构浏览器 您可以阅读与"UBB代码~(整理)"相关的教程: · 经典实用的基础ASP代码整理 · 新增UBB代码对表格的支持 · 很不错的一个UBB代码 · 整理了一些ASP初学者常用的代码 · 实现UBB代码 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
