关于[html]标签的UBB代码 - ASP及.net - 5D艺术网，我的艺术网！

» 互动论坛 » ASP及.net » 关于[html]标签的UBB代码

跳转到：

每页显示15条 1/1 << <1 >>

	主题: 关于[html]标签的UBB代码
风之翅职务：普通成员等级：2 金币：10.0 发贴：540 注册：2001/1/31 14:48:59	引用 #12003/10/28 20:59:05 ASP源代码贴出来乱了,只帖部分. 红色部分为其他转换函数,论坛上的UBB大都有类似函数关键是处理标签部分 <% 'UBB相关函数 '暂时只支持一对[html]标签 '取得[html]标签之间的数据(包括[html]标签) '=============================================== function UBB(fString) dim htmlstart,htmlend,strhtml,ArrayStr '先搜索是否有[html],再搜索从第一个[html]位置开始是否有 [Ctrl+A 全部选择提示：你可先修改部分代码，再按运行] '也就是说从第一次出现标签就代表开始了,后面再出现[html]标签一律当字符处理 htmlstart = InStr(fString, "[html]") if htmlstart <> 0 then htmlend = InStr(htmlstart, fString, " [Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]") end if '------------------------------------------------------------------------------- '如果存在合法的标签 if htmlstart <> 0 and htmlend <>0 then '取得[html]数据 strhtml = mid(fString,htmlstart , htmlend + 7 - htmlstart) '取得[html]标签前后数据数组,这里因为只支持一对[html]标签,数组元素最多为2 ArrayStr = Split(fString, strhtml) '循环格式化数据 For i = 0 To ubound(ArrayStr) ArrayStr(i) = [color=red]ChkString[/color]([color=red]FormatStr[/color](ArrayStr(i))) Next '调用addhtml函数处理[html]标签 strhtml = Replace(strhtml, "<","<") strhtml = Replace(strhtml, ">",">") strhtml = addhtml(strhtml) '根据数组元素个数,将[html]数据重新加入 '------------------------------------------------ Select Case ubound(ArrayStr) Case 0'数组元素为1个 '---------------------------------- if InStr(fString, strhtml) = 1 then UBB = strhtml&ArrayStr(0) else UBB = ArrayStr(0)&strhtml end if '---------------------------------- Case 1'数组元素为2个 UBB = ArrayStr(0)&strhtml&ArrayStr(1) End Select '------------------------------------------------ else UBB = ChkString(FormatStr(fString)) end if end function '-------------------------------------------------------------------------------- '处理[html]标签 '=============================================== function addhtml(fString) dim a,b a = "<table border=0><tr><td><textarea rows=12 cols=80>" b = "

主题: 关于[html]标签的UBB代码

风之翅
职务：普通成员
等级：2
金币：10.0
发贴：540
注册：2001/1/31 14:48:59

引用

#12003/10/28 20:59:05

ASP源代码贴出来乱了,只帖部分.
红色部分为其他转换函数,论坛上的UBB大都有类似函数
关键是处理
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]
'也就是说从第一次出现
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]")
end if
'-------------------------------------------------------------------------------
'如果存在合法的

标签
if htmlstart <> 0 and htmlend <>0 then
'取得[html]数据
strhtml = mid(fString,htmlstart , htmlend + 7 - htmlstart)
'取得[html]标签前后数据数组,这里因为只支持一对[html]标签,数组元素最多为2
ArrayStr = Split(fString, strhtml)
'循环格式化数据
For i = 0 To ubound(ArrayStr)
ArrayStr(i) = [color=red]ChkString[/color]([color=red]FormatStr[/color](ArrayStr(i)))
Next
'调用addhtml函数处理[html]标签
strhtml = Replace(strhtml, "<","<") 
strhtml = Replace(strhtml, ">",">")
strhtml = addhtml(strhtml)
'根据数组元素个数,将[html]数据重新加入
'------------------------------------------------
Select Case ubound(ArrayStr)
Case 0'数组元素为1个
'----------------------------------
if InStr(fString, strhtml) = 1 then
UBB = strhtml&ArrayStr(0)
else
UBB = ArrayStr(0)&strhtml
end if
'----------------------------------
Case 1'数组元素为2个
UBB = ArrayStr(0)&strhtml&ArrayStr(1)
End Select
'------------------------------------------------
else
UBB = ChkString(FormatStr(fString))
end if
end function
'--------------------------------------------------------------------------------

'处理[html]标签
'===============================================
function addhtml(fString)
 dim a,b
 a = "<table border=0><tr><td><textarea rows=12 cols=80>"
 b = "

" fString = Replace(fString,"[html]",a) fString = Replace(fString,"
[Ctrl+A 全部选择提示：你可先修改部分代码，再按运行]",b)
addhtml = fString
end function
%>