ubb问题,大家进来看看

liwan123 2003-10-07 09:37:42
我看了一天的动网的ubb代码,但是还是不明白具体的调用.大家能不能帮我啊.具体讲讲使用的语法和调用方法.
...全文
22 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
cnpr 2003-10-08
  • 打赏
  • 举报
 回复
http://www.eaoo.com/design/list.asp?classid=2&Nclassid=8
孟子E章 2003-10-07
  • 打赏
  • 举报
 回复
例子
<%
function UBBCode(strContent)
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True

'换行
objRegExp.Pattern="(\[br\])"
strContent=objRegExp.Replace(strContent,"<br/>")
'下划线
objRegExp.Pattern="(\[u\])(.+?)(\[\/u\])"
strContent=objRegExp.Replace(strContent,"<u>$2</u>")
'斜体
objRegExp.Pattern="(\[i\])(.+?)(\[\/i\])"
strContent=objRegExp.Replace(strContent,"<i>$2</i>")
'加粗
objRegExp.Pattern="(\[b\])(.+?)(\[\/b\])"
strContent=objRegExp.Replace(strContent,"<b>$2</b>")
'加粗
objRegExp.Pattern="(\<a\>)(.+?)(\<\/a\>)"
strContent=objRegExp.Replace(strContent,"<a href=$2 target='blank'>$2</a>")
'双横线
objRegExp.Pattern="(\[QUOTE\])(.+?)(\[\/QUOTE\])"
strContent=objRegExp.Replace(strContent,"<BLOCKQUOTE><font size=2 face=""Verdana, Arial"">引用:</font><HR>$2<HR></BLOCKQUOTE>")
'红色
objRegExp.Pattern="(\[red\])(.+?)(\[\/red\])"
strContent=objRegExp.Replace(strContent,"<FONT COLOR=""#ff0000"">$2</FONT>")
'灰色
objRegExp.Pattern="(\[gray\])(.+?)(\[\/gray\])"
strContent=objRegExp.Replace(strContent,"<FONT COLOR=""#77ACAC"">$2</FONT>")
'绿色
objRegExp.Pattern="(\[green\])(.+?)(\[\/green\])"
strContent=objRegExp.Replace(strContent,"<FONT COLOR=""#009933"">$2</FONT>")
'蓝色
objRegExp.Pattern="(\[blue\])(.+?)(\[\/blue\])"
strContent=objRegExp.Replace(strContent,"<FONT COLOR=""#0055ff"">$2</FONT>")
'任何颜色字
objRegExp.Pattern="(\[color\=)(.+?)(\])(.+?)(\[\/color\])"
strContent=objRegExp.Replace(strContent,"<FONT COLOR=""$2"">$4</FONT>")
'电子邮件
objRegExp.Pattern="(\[EMAIL\])(\S+\@\S+?)(\[\/EMAIL\])"
strContent= objRegExp.Replace(strContent,"<A HREF=""mailto:$2"">$2</A>")
'带链接的文字
objRegExp.Pattern="(\[URL\])(http:\/\/\S+?)(\[\/URL\])"
strContent= objRegExp.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$2</A>")
objRegExp.Pattern="(\[URL\])(\S+?)(\[\/URL\])"
strContent= objRegExp.Replace(strContent,"<A HREF=""http://$2"" TARGET=_blank>$2</A>")
'滚动
objRegExp.Pattern="(\[marquee\])(.+?)(\[\/marquee\])"
strContent=objRegExp.Replace(strContent,"<marquee scrollamount='3' id=xxskybbs onmouseover=xxskybbs.stop() onmouseout=xxskybbs.start()>$2</marquee>")
'回滚
objRegExp.Pattern="(\[marqueea\])(.+?)(\[\/marqueea\])"
strContent=objRegExp.Replace(strContent,"<marquee behavior=""alternate"" scrollamount='3' id=xxskybbs onmouseover=xxskybbs.stop() onmouseout=xxskybbs.start()>$2</marquee>")
'带链接的图片
objRegExp.Pattern="(\[IMGurl\=)(http:\/\/\S+?)(\])(http:\/\/\S+?)(\[\/IMGurl\])"
strContent=objRegExp.Replace(strContent,"<a href=""$2"" target=_blank><IMG SRC=""$4"" border=0 onload=""javascript:if(this.width>screen.width-366)this.width=screen.width-366""></a>")
objRegExp.Pattern="(\[IMGurl\=)(\S+?)(\])(\S+?)(\[\/IMGurl\])"
strContent=objRegExp.Replace(strContent,"<a href=""http://$2"" target=_blank><IMG SRC=""http://$4"" border=0 onload=""javascript:if(this.width>screen.width-366)this.width=screen.width-366""></a>")
'图片
objRegExp.Pattern="(\[IMG\])(\S+?)(\[\/IMG\])"
strContent=objRegExp.Replace(strContent,"<IMG SRC=""$2"">")


set objRegExp=Nothing
UBBCode=strContent
end function
Response.Write UBBCode(Replace(Request.Form("a"),vbCrLf,"<br>"))
%>
<form method=post>
<textarea name=a>[IMG]http://expert.csdn.net/images/csdn.gif[/IMG]</textarea>
<input type=submit>
</form>
孟子E章 2003-10-07
  • 打赏
  • 举报
 回复
<%
function UBBCode(strContent)
dim objRegExp
Set objRegExp=new RegExp
objRegExp.IgnoreCase =true
objRegExp.Global=True

'换行
objRegExp.Pattern="(\[br\])"
strContent=objRegExp.Replace(strContent,"<br/>")
'下划线
objRegExp.Pattern="(\[u\])(.+?)(\[\/u\])"
strContent=objRegExp.Replace(strContent,"<u>$2</u>")
'斜体
objRegExp.Pattern="(\[i\])(.+?)(\[\/i\])"
strContent=objRegExp.Replace(strContent,"<i>$2</i>")
'加粗
objRegExp.Pattern="(\[b\])(.+?)(\[\/b\])"
strContent=objRegExp.Replace(strContent,"<b>$2</b>")
'加粗
objRegExp.Pattern="(\<a\>)(.+?)(\<\/a\>)"
strContent=objRegExp.Replace(strContent,"<a href=$2 target='blank'>$2</a>")
'双横线
objRegExp.Pattern="(\[QUOTE\])(.+?)(\[\/QUOTE\])"
strContent=objRegExp.Replace(strContent,"<BLOCKQUOTE><font size=2 face=""Verdana, Arial"">引用:</font><HR>$2<HR></BLOCKQUOTE>")
'红色
objRegExp.Pattern="(\[red\])(.+?)(\[\/red\])"
strContent=objRegExp.Replace(strContent,"<FONT COLOR=""#ff0000"">$2</FONT>")
'灰色
objRegExp.Pattern="(\[gray\])(.+?)(\[\/gray\])"
strContent=objRegExp.Replace(strContent,"<FONT COLOR=""#77ACAC"">$2</FONT>")
'绿色
objRegExp.Pattern="(\[green\])(.+?)(\[\/green\])"
strContent=objRegExp.Replace(strContent,"<FONT COLOR=""#009933"">$2</FONT>")
'蓝色
objRegExp.Pattern="(\[blue\])(.+?)(\[\/blue\])"
strContent=objRegExp.Replace(strContent,"<FONT COLOR=""#0055ff"">$2</FONT>")
'任何颜色字
objRegExp.Pattern="(\[color\=)(.+?)(\])(.+?)(\[\/color\])"
strContent=objRegExp.Replace(strContent,"<FONT COLOR=""$2"">$4</FONT>")
'电子邮件
objRegExp.Pattern="(\[EMAIL\])(\S+\@\S+?)(\[\/EMAIL\])"
strContent= objRegExp.Replace(strContent,"<A HREF=""mailto:$2"">$2</A>")
'带链接的文字
objRegExp.Pattern="(\[URL\])(http:\/\/\S+?)(\[\/URL\])"
strContent= objRegExp.Replace(strContent,"<A HREF=""$2"" TARGET=_blank>$2</A>")
objRegExp.Pattern="(\[URL\])(\S+?)(\[\/URL\])"
strContent= objRegExp.Replace(strContent,"<A HREF=""http://$2"" TARGET=_blank>$2</A>")
'滚动
objRegExp.Pattern="(\[marquee\])(.+?)(\[\/marquee\])"
strContent=objRegExp.Replace(strContent,"<marquee scrollamount='3' id=xxskybbs onmouseover=xxskybbs.stop() onmouseout=xxskybbs.start()>$2</marquee>")
'回滚
objRegExp.Pattern="(\[marqueea\])(.+?)(\[\/marqueea\])"
strContent=objRegExp.Replace(strContent,"<marquee behavior=""alternate"" scrollamount='3' id=xxskybbs onmouseover=xxskybbs.stop() onmouseout=xxskybbs.start()>$2</marquee>")
'带链接的图片
objRegExp.Pattern="(\[IMGurl\=)(http:\/\/\S+?)(\])(http:\/\/\S+?)(\[\/IMGurl\])"
strContent=objRegExp.Replace(strContent,"<a href=""$2"" target=_blank><IMG SRC=""$4"" border=0 onload=""javascript:if(this.width>screen.width-366)this.width=screen.width-366""></a>")
objRegExp.Pattern="(\[IMGurl\=)(\S+?)(\])(\S+?)(\[\/IMGurl\])"
strContent=objRegExp.Replace(strContent,"<a href=""http://$2"" target=_blank><IMG SRC=""http://$4"" border=0 onload=""javascript:if(this.width>screen.width-366)this.width=screen.width-366""></a>")
'图片
objRegExp.Pattern="(\[IMG\])(\S+?)(\[\/IMG\])"
strContent=objRegExp.Replace(strContent,"<IMG SRC=""$2"">")
set objRegExp=Nothing
UBBCode=strContent
end function
Response.Write UBBCode(Replace(Request.Form("a"),vbCrLf,"<br>"))
%>
<form method=post>
<textarea name=a></textarea>
<input type=submit>
</form>
Tuxedo不能全部处理并发的客户端，请求是什么原因？
网友问题： 我现在用20个客户端连接服务器请求，可是服务器只处理了其中的16个，4个在等候，这是什么原因，我的LICENCE是足够大的了，而且我的UBB中的 配置文件中的MAXWSCLIENTS=70，已经足够大，应该不会有问题，请大家帮忙， 说说都有那方面的原因会造成这样的情况？ 怎么来看到底服务器正在处理了多少个请求？有多少请求在等待？ 用哪个命令来看？ 还有客户端请求由哪个服务来处
【插件】1938- 30 个不错的 Chrome 插件！
今天给大家推荐一些常用的 chrome 的插件，还是非常不错的，大家可以用起来看看。前言相信很多人都在使用 Chrome 浏览器，其流畅的浏览体验得到了不少用户的偏爱，但流畅只是一方面， Chrome 最大的优势还是其支持众多强大好用的扩展程序（Extensions）。下面的很多插件都是工具插件，看完保证你工作效率、心情提高1倍。1、OneTab：一键合并 tabTab 过多的时候，要关闭浏览器的...
分享 28 个 Chrome 灵魂插件，建议安装使用
“阅读本文大概需要 5 分钟。 ”今天给大家推荐一些常用的 chrome 的插件，还是非常不错的，大家可以用起来看看。前言相信很多人都在使用 Chrome 浏览器，其流畅的浏览体验得到了不少用户的偏爱，但流畅只是一方面， Chrome 最大的优势还是其支持众多强大好用的扩展程序（Extensions）。下面的很多插件都是工具插件，看完保证你工作效率、心情提高1倍。1、OneTab：一键合并 t...
不得不服！Chrome 灵魂插件！
给大家推荐一些常用的 chrome 的插件，还是非常不错的，大家可以用起来看看。 前言 相信很多人都在使用 Chrome 浏览器，其流畅的浏览体验得到了不少用户的偏爱，但流畅只是一方面， Chrome 最大的优势还是其支持众多强大好用的扩展程序（Extensions）。 下面的很多插件都是工具插件，看完保证你工作效率、心情提高1倍。 1、OneTab：一键合并 tab Tab 过多的时候，要关闭浏览器的时候OneTab可以帮助你快速的保存、整理浏览器。 2、掘金：最新的技术动
[原创]Discuz!NT1.1高亮代码插件1.5稳定版！
Discuz!NT 1.1高亮代码插件FOR .NET2.0作者：winson版本：1.5稳定版支持网站：http://bbs.szblogs.com功能：为论坛增加高亮代码显示，类似cnblogs的形式一、1.5版修复的问题： 之前发布的版本由于并未做具体的过滤处理，因此只有以牺牲论坛安全性(去掉了HTML过滤)为前提的条件下使用，同时为了让代码显示，还将论坛的一些UBB代码功能取...
ASP

28,390

社区成员

357,068

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章