当前位置: 网学 > 编程文档 > ASP > 正文

很不错的一个UBB代码

来源:Http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 13/06/17
rValue,"<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.Number>0 Then
Response.Write Err.Description
Response.End
End If
End Function
%>
调用:<%=UBBCode(Content)%>
  • 下一篇资讯: ASP充分利用Err.Description
  • 网学推荐

    免费论文

    原创论文

    浏览:
    设为首页 | 加入收藏 | 论文首页 | 论文专题 | 设计下载 | 网学软件 | 论文模板 | 论文资源 | 程序设计 | 关于网学 | 站内搜索 | 网学留言 | 友情链接 | 资料中心
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2015 myeducs.Cn www.myeducs.Cn All Rights Reserved
    湘ICP备09003080号