主题:  那位有用过的感觉正常的UBB代码贴出来看看啊

zgqzgq
职务：普通成员
等级：1
金币：0.0
发贴：136
注册：2001/11/7 15:36:46
#12002/11/8 20:24:24
那位有用过的感觉正常的UBB代码贴出来看看啊。我用了不下三个不是太正常。主要是空格和回车的问题，其它的功能可以。我在正文里回车的时候不打入

 

就不行，费事！还有，空格得打入    ，唉，累死了只要有效果也成！



缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
注册：2004/1/14 19:14:47
#22002/11/9 17:15:35
一直到现在倒还没有发现不好用的ubb代码，不知道你是怎么做的。



zgqzgq
职务：普通成员
等级：1
金币：0.0
发贴：136
注册：2001/11/7 15:36:46
#32002/11/9 17:35:27
我按小田的新闻系统做法做了个新闻系统，也按他的方法用的UBB，但是怪事来了，我用的是网上有名留言板中的ubbhtml，使用方法我想应该不会错的，因为我网页也用了UBB,首页显示的是正常的;但是新闻系统中添加的标题和正文中不能用回车和空格，其它的功能也都正常，我测试过。


也到那个留言板看了，回车时是可以的，但就是不知道我这儿是出了什么事儿。



zgqzgq
职务：普通成员
等级：1
金币：0.0
发贴：136
注册：2001/11/7 15:36:46
#42002/11/9 17:43:30
刚我又去留言板试了一下，的的确确没有加空格的功能，回车倒是有，但我用在新闻系统里后连回车也不回车了。



zgqzgq
职务：普通成员
等级：1
金币：0.0
发贴：136
注册：2001/11/7 15:36:46
#52002/11/9 18:05:51
我把源码贴出来你给分析一下

----------------------------------------------------------------------

--------------------------------------------------------------------------------

我用了它，但没有空格和回车，其它的功能都不少，也不错。
------------------------------------------------------
[font size=3]<%
'下面的这个程序是用来高度显示查询的关键字
keyword=request("keyword")
function hightlight(text)
if keyword<>"" and text<>"" then
thekey=""&keyword&""
text=replace(text,keyword,thekey)
end if
response.write text
end function
%>
<%
'UBB html判断开始
function ChkBadWords(fString)
if fString<>"" then
bwords = split(BadWords, "|")
for i = 0 to ubound(bwords)
fString = Replace(fString, bwords(i), string(len(bwords(i)),"*"))
next
end if
ChkBadWords = fString
end function
function HTMLEncode(fString)
if fString<>"" then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")

fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "

")
fString = Replace(fString, CHR(10), "
")
end if
HTMLEncode = fString
end function

function HTMLDecode(fString)
if fString<>"" then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")

fString = Replace(fString, "", CHR(13))
fString = Replace(fString, "

", CHR(10) & CHR(10))
fString = Replace(fString, "
", CHR(10))
end if
HTMLDecode = fString
end function

function HTMLDecode1(fString)

if fString<>"" then
fString = replace(fString, ">", ">")
fString = replace(fString, "<", "<")
fString = Replace(fString, "", CHR(13))
fString = Replace(fString, "

", CHR(10) & CHR(10))
fString = Replace(fString, "
", CHR(10))
end if
HTMLDecode1 = fString
end function


function UBBCode(strContent)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True

' if strIMGInPosts = "1" then
re.Pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])"
strContent=re.Replace(strContent,"按此在新窗口浏览图片screen.width-333)this.width=screen.width-333"">")
' end if

re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]"
strContent=re.Replace(strContent,"")
re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]"
strContent=re.Replace(strContent,"")
re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]"
strContent=re.Replace(strContent,"")
re.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/RM]"
strContent=re.Replace(strContent,"
")

' if strflash= "1" then
re.Pattern="(\[FLASH\])(.[^\[]*)(\[\/FLASH\])"
strContent= re.Replace(strContent,"$2")
' end if

re.Pattern="(\[ZIP\])(.[^\[]*)(\[\/ZIP\])"
strContent=re.Replace(strContent,"
点击下载该文件")
re.Pattern="(\[RAR\])(.[^\[]*)(\[\/RAR\])"
strContent=re.Replace(strContent,"
点击下载该文件")
re.Pattern="(\[UPLOAD=(.[^\[]*)\])(.[^\[]*)(\[\/UPLOAD\])"
strContent= re.Replace(strContent,"
此主题相关图片如下：
按此在新窗口浏览图片screen.width-333)this.width=screen.width-333"">")

re.Pattern="(\[URL\])(http:\/\/.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"$2")
re.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"$2")

re.Pattern="(\[URL=(http:\/\/.[^\[]*)\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"$3")
re.Pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"$3")

re.Pattern="(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"$2")
re.Pattern="(\[EMAIL=(\S+\@.[^\[]*)\])(.[^\[]*)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"$3")

re.Pattern = "^(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1")
re.Pattern = "(http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"$1")
re.Pattern = "[^>=""](http://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1")
re.Pattern = "^(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1")
re.Pattern = "(ftp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"$1")
re.Pattern = "[^>=""](ftp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1")
re.Pattern = "^(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1")
re.Pattern = "(rtsp://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"$1")
re.Pattern = "[^>=""](rtsp://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1")
re.Pattern = "^(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1")
re.Pattern = "(mms://[A-Za-z0-9\./=\?%\-&_~`@':+!]+)$"
strContent = re.Replace(strContent,"$1")
re.Pattern = "[^>=""](mms://[A-Za-z0-9\.\/=\?%\-&_~`@':+!]+)"
strContent = re.Replace(strContent,"$1")

if strIcons = "1" then
re.Pattern="(\[em(.[^\[]*)\])"
strContent=re.Replace(strContent,"")
end if

re.Pattern="(\[HTML\])(.[^\[]*)(\[\/HTML\])"
strContent=re.Replace(strContent,"

以下内容为程序代码:
$2
")
re.Pattern="(\[code\])(.[^\[]*)(\[\/code\])"
strContent=re.Replace(strContent,"
以下内容为程序代码:
$2
")

re.Pattern="(\[color=(.[^\[]*)\])(.[^\[]*)(\[\/color\])"
strContent=re.Replace(strContent,"$3")
re.Pattern="(\[face=(.[^\[]*)\])(.[^\[]*)(\[\/face\])"
strContent=re.Replace(strContent,"$3")
re.Pattern="(\[align=(.[^\[]*)\])(.*)(\[\/align\])"
strContent=re.Replace(strContent,"
$3
")

re.Pattern="(\[QUOTE\])(.*)(\[\/QUOTE\])"
strContent=re.Replace(strContent,"
$2

")
re.Pattern="(\[fly\])(.*)(\[\/fly\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[move\])(.*)(\[\/move\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]"
strContent=re.Replace(strContent,"$4
")
re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]"
strContent=re.Replace(strContent,"$4
")

re.Pattern="(\[i\])(.[^\[]*)(\[\/i\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[u\])(.[^\[]*)(\[\/u\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[b\])(.[^\[]*)(\[\/b\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[fly\])(.[^\[]*)(\[\/fly\])"
strContent=re.Replace(strContent,"$2")

re.Pattern="(\[size=1\])(.[^\[]*)(\[\/size\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[size=2\])(.[^\[]*)(\[\/size\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[size=3\])(.[^\[]*)(\[\/size\])"
strContent=re.Replace(strContent,"$2")
re.Pattern="(\[size=4\])(.[^\[]*)(\[\/size\])"
strContent=re.Replace(strContent,"$2")

re.Pattern="(\[center\])(.[^\[]*)(\[\/center\])"
strContent=re.Replace(strContent,"
$2
")
' end if
strContent=ChkBadWords(strContent)

set re=Nothing
UBBCode=strContent
end function
%>
[/font]

编辑历史:[这消息被zgqzgq编辑过(编辑时间2002-11-09 18:07:34)]
[这消息被zgqzgq编辑过(编辑时间2002-11-09 18:09:23)]

我佛山人
职务：版主
等级：4
金币：16.0
发贴：2269
注册：2002/8/7 15:09:27
#62002/11/9 22:55:29
代码没问题，估计是你用错了



zgqzgq
职务：普通成员
等级：1
金币：0.0
发贴：136
注册：2001/11/7 15:36:46
#72002/11/10 1:10:26
你好啊，你什么时候会在一般？我的QQ65402304,希望你多多指教。

郑州大学成人教育学院



hxf3591126
职务：普通成员
等级：1
金币：1.0
发贴：176
注册：2002/2/2 11:08:57
#82002/11/11 7:57:34
看置顶的小田的打造静态新闻系统，内有好用的ubb代码下载！！！