服务中心 建立网站 建站方案 网页设计 网站建设 网站改版 网站推广 客户案例


网站建设制作网页设计常见问题连载之：一个ubbcode代码

来源：WWW.E68CN.COM 作者：君泽君东莞网络公司 2008-07-16 点击：

【内容摘要】：网站建设 Public Function UbbCode(strContent) Dim re Set re = New RegExp re.IgnoreCase = True re.Global = True #146;过滤危险脚本 re.Pattern = (/script) strContent = re.Replace(strContent, /script) re.Pattern = (script:) strContent = re.Replac..

本文关键词：网站建设制作 网页设计 网站建设 网站 代码 网页

君泽君东莞网络公司运营项目（网站建设制作，SEO网站优化推广，网页设计制作，东莞网站推广等），为了更好的服务大家，创一条共赢的道路，特意为各位新老客户朋友，网友收集或原创以下文章，希望能对你有所帮助，也希望大家都能支持我们君泽君公司，支持我们的东莞网站建设网，谢谢大家。

<% 
网站建设 Public Function UbbCode(strContent) 
        Dim re 
        Set re = New RegExp 
        re.IgnoreCase = True 
        re.Global = True 
        &#146;过滤危险脚本 
        re.Pattern = "(</script>)" 
        strContent = re.Replace(strContent, "</script>") 
        re.Pattern = "(script:)" 
        strContent = re.Replace(strContent, "s cript:") 
    re.Pattern = "(script)" 
        strContent = re.Replace(strContent, "s cript") 
        re.Pattern = "(js:)" 
        strContent = re.Replace(strContent, "js:") 
        re.Pattern = "(value)" 
        strContent = re.Replace(strContent, "value") 
        re.Pattern = "(about:)" 
        strContent = re.Replace(strContent, "about:") 
        re.Pattern = "(file:)" 
        strContent = re.Replace(strContent, "file:") 
        re.Pattern = "(documents.cookie)" 
        strContent = re.Replace(strContent, "documents.cookie") 
        re.Pattern = "(vbs：)"  
  
网站建设 strContent = re.Replace(strContent, "v bs:") 
        re.Pattern = "(on(mouse|exit|error|click|key))" 
        strContent = re.Replace(strContent, "on$2") 
    re.Pattern = "<IMG.[^>]*SRC(=| )(.[^>]*)>" 
    &#146;strContent = re.replace(strContent,"<IMG SRC=$2 onclick=""#i#javascript#i#:window.open(this.src);"" style=""CURSOR: pointer"" border=""0"">") 
    strContent = re.replace(strContent,"<IMG SRC=$2 border=""0"">") 
    &#146;re.Pattern="<img(.[^>]*)>" 
    &#146;strContent = re.replace(strContent,"<img$1 onload=""return imgzoom(this,550)"">") 
    re.Pattern = "(\[i\])(.[^\[]*)(\[\/i\])" 
        strContent = re.Replace(strContent, "<i>$2</i>") 
        re.Pattern = "(\[u\])(.[^\[]*)(\[\/u\])" 
        strContent = re.Replace(strContent, "<u>$2</u>") 
        re.Pattern = "(\[b\])(.[^\[]*)(\[\/b\])" 
        strContent = re.Replace(strContent, "<b>$2</b>") 
        re.Pattern = "(\[fly\])(.*)(\[\/fly\])" 
        strContent = re.Replace(strContent, "<marquee>$2</marquee>") 
        re.Pattern = "\[size=([1-9])\](.[^\[]*)\[\/size\]" 
        strContent = re.Replace(strContent,
nbsp;"<font size=$1>$2</font>") 
        re.Pattern = "(\[center\])(.[^\[]*)(\[\/center\])" 
        strContent = re.Replace(strContent, "<center>$2</center>") 
        re.Pattern = "\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]" 
        strContent = re.Replace(strContent, "<embed src=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2></embed>") 
        re.Pattern = "\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]" 
        strContent = re.Replace(strContent, "<embed src=$3 width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>") 
        re.Pattern = "\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]" 
        strContent = re.Replace(strContent, "<embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=$3  width=$1 height=$2></embed>")  
     网站建设    re.Pattern = "\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/RM]" 
        strContent = re.Replace(strContent, "<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=$1 height=$2><PARAM NAME=SRC VALUE=$3><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=$1><PARAM&nb
p;NAME=SRC VALUE=$3><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>") 
        re.Pattern = "(\[FLASH\])(.[^\[]*)(\[\/FLASH\])" 
        &#146;strContent = re.Replace(strContent, "<embed src=""$2"" quality=high pluginspage=&#146;http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash&#146; type=&#146;application/x-shockwave-flash&#146; width=500 height=400>$2</embed>") 
    strContent = re.Replace(strContent, "") 
        re.Pattern = "(\[FLASH=*([0-9]*),*([0-9]*)\])(.[^\[]*)(\[\/FLASH\])" 
        strContent = re.Replace(strContent, "<embed src=""$4"" quality=high pluginspage=&#146;http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash&#146; type=&#146;application/x-shockwave-flash&#146; width=$2 height=$3>$4</embed>") 
    strContent = re.Replace(strContent, "") 
        re.Pattern = "\[UPLOAD=(gif|jpg|jpeg|bmp|png)\](.[^\[]*)(gif|jpg|jpeg|bmp|png)\[\/UPLOAD\]" 
        strContent = re.Replace(strContent, "<br><A HREF=""$2$1"" TARGET=_blank><IMG SRC=""$2$1"" border=0 alt=按此在新窗口浏览图片 onload=""#i#javascript#i#:if(this.width>screen.width-333)this.width=screen.width-333""></A>") 
        re.Pattern = "(\[UPLOAD=(.[^\[]*)\])(.[^\[]*)(\[\/UPLOAD\])"  
       网站建设  strContent = re.Replace(strContent, "<br><a href=""$3"">点击浏览该文件</a>") 
  &nbs
    re.Pattern = "(\[URL\])(.[^\[]*)(\[\/URL\])" 
        strContent = re.Replace(strContent, "<A HREF=""$2"" TARGET=_blank>$2</A>") 
        re.Pattern = "(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])" 
        strContent = re.Replace(strContent, "<A HREF=""$2"" TARGET=_blank>$3</A>") 
        re.Pattern = "(\)(.[^\[]*)(\[\/EMAIL\])" 
        re.Pattern = "(\[EMAIL=(.[^\[]*)\])(.[^\[]*)(\[\/EMAIL\])" 
        strContent = re.Replace(strContent, "<A HREF=""mailto:$2"" TARGET=_blank>$3</A>") 
        re.Pattern = "(\[HTML\])(.[^\[]*)(\[\/HTML\])" 
        strContent = re.Replace(strContent, "<table width=&#146;100%&#146; border=&#146;0&#146; cellspacing=&#146;0&#146; cellpadding=&#146;6&#146; bgcolor=&#146;#F6F6F6&#146;><td><b>以下内容为程序代码:</b><br>$2</td></table>") 
        re.Pattern = "(\[code\])(.[^\[]*)(\[\/code\])" 
        strContent = re.Replace(strContent, "<table width=&#146;100%&#146; border=&#146;0&#146; cellspacing=&#146;0&#146; cellpadding=&#146;6&#146; bgcolor=&#146;#F6F6F6&#146;><td><b>以下内容为程序代码:</b><br>$2</td></table>") 
        re.Pattern = "(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])" 
        strContent = re.Replace(strContent, "<font color=$2>$3<
/font>") 
        re.Pattern = "(\[face=(.[^\[]*)\])(.[^\[]*)(\[\/face\])" 
        strContent = re.Replace(strContent, "<font face=$2>$3</font>") 
        re.Pattern = "\[align=(center|left|right)\](.*)\[\/align\]" 
        strContent = re.Replace(strContent, "<div align=$1>$2</div>") 
        re.Pattern = "(\[QUOTE\])(.*)(\[\/QUOTE\])"  
      网站建设   strContent = re.Replace(strContent, "<table cellpadding=0 cellspacing=0 border=1 WIDTH=94% bordercolor=#00bgcolor=#F2F8FF align=center  ><tr><td  ><table width=100% cellpadding=5 cellspacing=1 border=0><TR><TD BGCOLOR=&#146;#F6F6F6&#146;>$2</table></table><br>") 
        re.Pattern = "(\[move\])(.*)(\[\/move\])" 
        strContent = re.Replace(strContent, "<MARQUEE scrollamount=3>$2</marquee>") 
        re.Pattern = "\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]" 
        strContent = re.Replace(strContent, "<table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4</table>") 
        re.Pattern = "\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]" 
        strContent = re.Replace(strContent, "<table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4</table>") 
        Set re = Nothing 
    strContent = Replace(trContent, "{", "{") 
    strContent = Replace(strContent, "}", "}") 
    strContent = Replace(strContent, "$", "$") 
        UbbCode = strContent 
End Function 
%>

 


东莞网站建设 东莞网站设计联系方式： 

QQ：290971567(网络营销顾问)
E-mail：290971567＃qq.com SEO＃DGSEO.COM.CN
MSN:DGSEO@LIVE.CN
Skype:LFG290971567
电话：0769-89046712 89046713 81607352　81763536　22329222
传真：0769-81763536
24小时服务热线：13728246800 13416954808 13480451743
项目咨询：290971567(网络营销顾问)
君泽君文化传媒机构（君泽君东莞网络公司）
地址：广东省东莞市长安镇上沙社区顺景丽庭大厦

 


看过本文的朋友还点击了：东莞 网站 网页 东莞网站建设 网站设计 东莞网页制作 君泽君 网页设计 长安 东莞网络公司 东莞网站制作　东莞网页设计　网站推广　网络营销

上一篇：网站建设制作网页设计常见问题连载之：一个asp简单分页程序　下一篇：网站建设制作网页设计常见问题连载之：网站静态化设计之rewrite,pathinfo

相关文章
汽车销售行业网站建设方案
一汽-大众汽车有限公司
一汽-大众 宝来BORA
上海博龙汽车配件有限公司
网站建设制作网页设计常见问题连载之：网站静态化设计之rewrite,pathinfo
网站建设制作网页设计常见问题连载之：一个asp简单分页程序
网站建设制作网页设计常见问题连载之：ASP程序员注意的一些问题
远洋地产控股有限公司
江苏新城,新城房产
网站建设制作网页设计常见问题连载之：ASP技术总结（asp基础）

东莞网站设计制作公司

君泽君服务项目

  • ※※※服务项目内容※※※
  • ※※※东莞网站建设※※※
  • ※※※东莞网站设计※※※
  • ※※※东莞网页设计※※※
  • ※※※企业网页制作※※※
  • ※※※企业网站维护※※※
  • ※※※东莞网站推广※※※
  • ※※※网站平面设计※※※

    • 建站细节介绍

  • ★企业网站建设方案
  • ★网站建设程序介绍
  • ★东莞网站制作流程
  • ★君泽君设计站价格
  • ★网站单项功能报价
  • ★东莞网站建设合同
  • ★在线订做网站方案
  • ★企业营销一条龙报价

    • 本站大热门文章

  • ◎企业网站建设的好处
  • ◎企业建设网站的重要性
  • ◎企业网站所起的作用
  • ◎网络宣传独具优势
  • ◎东莞网站设计六大功能
  • ◎君泽君是怎么做网站的?
  • ◎东莞网站建设准则
  • ◎东莞企业如何给网站定位
  • ◎网页设计问题归纳
  • ◎企业为什么要建网站
  • ◎君泽君平面设计服务范围

    • 最新文章

  • 网站建设制作网页设计常见问题连..07.16
  • 网站建设制作网页设计常见问题连..07.16
  • 网站建设制作网页设计常见问题连..07.16
  • 网站建设制作网页设计常见问题连..07.16
  • 网站建设制作网页设计常见问题连..07.13
  • 网站建设制作网页设计常见问题连..07.13
  • 网站建设制作网页设计常见问题连..07.13
  • 网站建设制作网页设计常见问题连..07.13
  • 网站建设制作网页设计常见问题连..07.13
  • 网站建设制作网页设计常见问题连..07.13

    • 网站首页|关于我们|工作机会|联系我们

    欢迎你的来电（东莞）　0769-89046712　89046713　81607352　81763536　22329222   联系QQ:290971567 34263358
    项目合作：13416954808　13728246800　13480451743    E-mail:seo@dgseo.com.cn
    君泽君东莞网络公司(www.e68cn.com) 版权所有 |