首页前端开发其他前端知识asp的ubb函数（推荐）

asp的ubb函数（推荐）

时间2024-02-01 12:19:02发布访客分类其他前端知识浏览479
导读：收集整理的这篇文章主要介绍了asp的ubb函数（推荐），觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下: function unHtML(content unHt...
收集整理的这篇文章主要介绍了asp的ubb函数（推荐），觉得挺不错的，现在分享给大家，也给大家做个参考。 复制代码 代码如下:
 function unHtML(content)
unHtml=content
if content > "" then
unHtml=replace(unHtml,"& ","& ")
unHtml=replace(unHtml,"","")
unHtml=replace(unHtml,"> ","> ")
unHtml=replace(unHtml,chr(34),""")
unHtml=replace(unHtml,chr(13),"br> ")
unHtml=replace(unHtml,chr(32)," ")
'unHtml=ubb(unHtml)
end if
end function

function ubb(content)
Dim nowtime,i
ubb=content
nowtime=now()
UBB=Convert(ubb,"code")
UBB=Convert(ubb,"html")
UBB=Convert(ubb,"url")
UBB=Convert(ubb,"color")
UBB=Convert(ubb,"font")
UBB=Convert(ubb,"size")
UBB=Convert(ubb,"quote")
UBB=Convert(ubb,"email")
UBB=Convert(ubb,"img")
UBB=Convert(ubb,"swf")

UBB=AutoURL(ubb)
ubb=replace(ubb,"[b]","b> ",1,-1,1)
ubb=replace(ubb,"[/b]","/b> ",1,-1,1)
ubb=replace(ubb,"[i]","i> ",1,-1,1)
ubb=replace(ubb,"[/i]","/i> ",1,-1,1)
ubb=replace(ubb,"[u]","u> ",1,-1,1)
ubb=replace(ubb,"[/u]","/u> ",1,-1,1)
ubb=replace(ubb,"[blue]","font color='#000099'> ",1,-1,1)
ubb=replace(ubb,"[/blue]","/font> ",1,-1,1)
ubb=replace(ubb,"[red]","font color='#990000'> ",1,-1,1)
ubb=replace(ubb,"[/red]","/font> ",1,-1,1)
for i=1 to 28
ubb=replace(ubb,"{ :em"& i& "} ","IMG SRC=emot/emotface/em"& i& ".gif> /img> ",1,6,1)
ubb=replace(ubb,"{ :em"& i& "} ","",1,-1,1)
next
ubb=replace(ubb,"["& chr(176),"[",1,-1,1)
ubb=replace(ubb,chr(176)& "]","]",1,-1,1)
ubb=replace(ubb,"/"& chr(176),"/",1,-1,1)
' ubb=replace(ubb,"{ ; em","{ :em",1,-1,1)
end function


function Convert(ubb,CovT)
Dim cText,startubb,endubb,Lcovt,text,codetext
cText=ubb
startubb=1
do while Covt="url" or Covt="color" or Covt="font" or Covt="size"
startubb=instr(startubb,cText,"["& CovT& "=",1)
if startubb=0 then exIT do
endubb=instr(startubb,cText,"]",1)
if endubb=0 then exit do
Lcovt=Covt
startubb=startubb+len(lCovT)+2
text=mid(cText,startubb,endubb-startubb)
codetext=replace(text,"[","["& chr(176),1,-1,1)
codetext=replace(codetext,"]",chr(176)& "]",1,-1,1)
'codetext=replace(codetext,"{ :em","{ ; em",1,-1,1)
codetext=replace(codetext,"/","/"& chr(176),1,-1,1)
select case CovT
case "color"
cText=replace(cText,"[color="& text& "]","font color='"& text& "'> ",1,1,1)
cText=replace(cText,"[/color]","/font> ",1,1,1)
case "font"
cText=replace(cText,"[font="& text& "]","font face='"& text& "'> ",1,1,1)
cText=replace(cText,"[/font]","/font> ",1,1,1)
case "size"
if IsNumeric(text) then
if text> 6 then text=6
if text1 then text=1
cText=replace(cText,"[size="& text& "]","font size='"& text& "'> ",1,1,1)
cText=replace(cText,"[/size]","/font> ",1,1,1)
end if
case "url"
cText=replace(cText,"[url="& text& "]","a href='"& codetext& "' target=_blank> ",1,1,1)
cText=replace(cText,"[/url]","/a> ",1,1,1)
case "email"
cText=replace(cText,"["& CovT& "="& text& "]","a href=mailto:"& text& "> ",1,1,1)
cText=replace(cText,"[/"& CovT& "]","/a> ",1,1,1)
end select
loop

startubb=1
do
startubb=instr(startubb,cText,"["& CovT& "]",1)
if startubb=0 then exit do
endubb=instr(startubb,cText,"[/"& CovT& "]",1)
if endubb=0 then exit do
Lcovt=Covt
startubb=startubb+len(lCovT)+2
text=mid(cText,startubb,endubb-startubb)
codetext=replace(text,"[","["& chr(176),1,-1,1)
codetext=replace(codetext,"]",chr(176)& "]",1,-1,1)
'codetext=replace(codetext,"{ :em","{ ; em",1,-1,1)
codetext=replace(codetext,"/","/"& chr(176),1,-1,1)
select case CovT
case "url"
cText=replace(cText,"["& CovT& "]"& text,"a href='"& codetext& "' target=_blank> "& codetext,1,1,1)
cText=replace(cText,"a href='"& codetext& "' target=_blank> "& codetext& "[/"& CovT& "]","a href="& codetext& " target=_blank> "& codetext& "/a> ",1,1,1)
case "email"
cText=replace(cText,"["& CovT& "]","a href=mailto:"& text& "> ",1,1,1)
cText=replace(cText,"[/"& CovT& "]","/a> ",1,1,1)
case "html"
codetext=replace(codetext,"br> ",chr(13),1,-1,1)
codetext=replace(codetext," ",chr(32),1,-1,1)
Randomize
rid="temp"& Int(100000 * Rnd)
cText=replace(cText,"{ html} "& text,"代码片断如下：TEXTAREA id="& rid& " rows=15 style='width:100%' class='bk'> "& codetext,1,1,1)
cText=replace(cText,"代码片断如下：TEXTAREA id="& rid& " rows=15 style='width:100%' class='bk'> "& codetext& "{ /html} ","代码片断如下：TEXTAREA id="& rid& " rows=15 style='width:100%' class='bk'> "& codetext& "/TEXTAREA> INPUT onclick=runEx('"& rid& "') tyPE=button value=运行此段代码 name=Button1 class='Tips_bo'> INPUT onclick=JM_cc('"& rid& "') type=button value=复制到我的剪贴板 name=Button2 class='Tips_bo'> ",1,1,1)
case "img"
cText=replace(cText,"[img]"& text,"a href="& chr(34)& "about:img src="& codetext& " border=0> "& chr(34)& " target=_blank> img src="& codetext,1,1,1)
cText=replace(cText,"[/img]"," vspace=2 hspace=2 border=0 alt=::点击图片在新窗口中打开::> /a> ",1,1,1)
case "code"
cText=replace(cText,"[code]"& text,"以下内容为程序代码hr noshade> "& codetext,1,1,1)
cText=replace(cText,"以下内容为程序代码hr noshade> "& codetext& "[/code]","以下内容为程序代码hr noshade> "& codetext& "hr noshade> ",1,1,1)
case "quote"
atext=replace(text,"[img]","",1,-1,1)
atext=replace(atext,"[/img]","",1,-1,1)
atext=replace(atext,"[swf]","",1,-1,1)
atext=replace(atext,"[/swf]","",1,-1,1)
atext=replace(atext,"{ html} ","",1,-1,1)
atext=replace(atext,"{ /html} ","",1,-1,1)
' atext=replace(atext,"{ :em","{ ; em",1,-1,1)
atext=SplitWords(atext,350)
atext=replace(atext,chr(32)," ",1,-1,1)
cText=replace(cText,"[quote]"& text,"@R_304_316@> hr noshade> "& atext,1,1,1)
cText=replace(cText,"blockquote> hr noshade> "& atext& "[/quote]","blockquote> hr noshade> "& atext& "hr noshade> /blockquote> ",1,1,1)
case "swf"
cText=replace(cText,"[swf]"& text,"影片地址:br> "& text& "br> object classid='clsid:D27CDB6E-AE6D-11CF-96B8-444553540000' codebase='http://download.macromedia.COM/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='500' height='500'> param name=movie value='"& codetext& "'> param name=quality value=high> embed src='"& codetext& "' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_PRod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='500' height='500'> ",1,1,1)
cText=replace(cText,"object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='500' height='500'> param name=movie value='"& codetext& "'> param name=quality value=high> embed src='"& codetext& "' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='500' height='500'> "& "[/swf]","object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0' width='500' height='500'> param name=movie value='"& codetext& "'> param name=quality value=high> embed src='"& codetext& "' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width='500' height='500'> "& "/embed> /object> ",1,1,1)
end select
loop
Convert=cText
end function

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！

上一篇: 正则表达式中的特殊字符下一篇:好东西老外用正则表达式写的HT...猜你在找的正则表达式相关文章 去除内容中的html2022-04-16Python正则表达式保姆式教学详细教程2022-04-16十分钟上手正则表达式 上篇2022-04-16十分钟上手正则表达式 下篇2022-04-16深入浅出正则表达式中的边界\b和\B2022-04-16轻松入门正则表达式之非贪婪匹配篇详解2022-04-16轻松掌握正则表达式findall函数详解2022-04-16正则表达式用法详解2022-04-1636个正则表达式(开发效率提高80%)2022-04-16Python正则表达式指南 推荐2022-04-16 其他相关热搜词更多phpjavapython程序员load

若转载请注明出处： asp的ubb函数（推荐）
本文地址： https://pptw.com/jishu/595391.html
好东西，老外用正则表达式写的HTML分离函数 一个验证用户名的正则表达式

游客 回复需填写必要信息
↑