开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 多媒体编程 > 查看源码
ubb.asp
资源名称：1.rar　[点击查看]
上传用户：ziqing_518
上传日期：2022-08-09
资源大小：446k
文件大小：11k
源码类别：

多媒体编程

开发平台：

ASP/ASPX

ubb.asp：源码内容
  1. <%
  2. rem ------------ubb代码
  3. function ChkBadWords(fString)
  4.     bwords = split(BadWords, "|")
  5.     for i = 0 to ubound(bwords)
  6.         fString = Replace(fString, bwords(i), string(len(bwords(i)),"*")) 
  7.     next
  8.     ChkBadWords = fString
  9. end function
  11. function doCode(fString, fOTag, fCTag, fROTag, fRCTag)
  12.     fOTagPos = Instr(1, fString, fOTag, 1)
  13.     fCTagPos = Instr(1, fString, fCTag, 1)
  14.     while (fCTagPos > 0 and fOTagPos > 0)
  15.         fString = replace(fString, fOTag, fROTag, 1, 1, 1)
  16.         fString = replace(fString, fCTag, fRCTag, 1, 1, 1)
  17.         fOTagPos = Instr(1, fString, fOTag, 1)
  18.         fCTagPos = Instr(1, fString, fCTag, 1)
  19.     wend
  20.     doCode = fString
  21. end function
  23. function HTMLEncode(fString)
  25.     fString = replace(fString, ">", "&gt;")
  26.     fString = replace(fString, "<", "&lt;")
  28.     fString = Replace(fString, CHR(13), "")
  29.     fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
  30.     fString = Replace(fString, CHR(10), "<BR>")
  31.     HTMLEncode = fString
  32. end function
  34. function HTMLDecode(fString)
  36.     fString = replace(fString, "&gt;", ">")
  37.     fString = replace(fString, "&lt;", "<")
  39.     fString = Replace(fString, "", CHR(13))
  40.     fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
  41.     fString = Replace(fString, "<BR>", CHR(10))
  42.     HTMLDecode = fString
  43. end function
  45. function HTMLDecode1(fString)
  47.     fString = replace(fString, "&gt;", ">")
  48.     fString = replace(fString, "&lt;", "<")
  49.     fString = Replace(fString, "", CHR(13))
  50.     fString = Replace(fString, "</P><P>", CHR(10) & CHR(10))
  51.     fString = Replace(fString, "<BR>", CHR(10))
  52.     HTMLDecode1 = fString
  53. end function
  56. function UBBCode(strContent)
  57.     if strAllowHTML <> 1 then
  58.         strContent = HTMLEncode(strContent)
  59.     end if
  60.     dim re
  61.     Set re=new RegExp
  62.     re.IgnoreCase =true
  63.     re.Global=True
  64. if boolSoftimg_1=true then
  65. re.Pattern="([IMG])(.[^]]*)([/IMG])"
  66. strContent=re.Replace(strContent,"<IMG SRC=""$2"" border=0>")
  67. end if
  68.     re.Pattern="[DIR=*([0-9]*),*([0-9]*)](.[^]]*)[/DIR]"
  69.     strContent=re.Replace(strContent,"<object classid=clsid:166B1BCA-3F9C-11CF-8075-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=7,0,2,0 width=$1 height=$2><param name=src value=$3><embed src=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width=$1 height=$2></embed></object>")
  70.     re.Pattern="[QT=*([0-9]*),*([0-9]*)](.[^]]*)[/QT]"
  71.     strContent=re.Replace(strContent,"<embed src=$3 width=$1 height=$2 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>")
  72. if boolSoftmedia_1=true then
  73. re.Pattern="[MP=*([0-9]*),*([0-9]*)](.[^]]*)[/MP]"
  74. strContent=re.Replace(strContent,"<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width=$1 height=$2 ><param name=ShowStatusBar value=-1><param name=Filename value=$3><embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=$3  width=$1 height=$2></embed></object>")
  75. end if
  76. if boolSoftreal_1=true then
  77.   re.Pattern="[RM=*([0-9]*),*([0-9]*)](.[^]]*)[/RM]"
  78.   strContent=re.Replace(strContent,"<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width=$1 height=$2><PARAM NAME=SRC VALUE=$3><PARAM NAME=CONSOLE VALUE=Clip1><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=$1><PARAM NAME=SRC VALUE=$3><PARAM NAME=AUTOSTART VALUE=-1><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip1></OBJECT>")
  79. end if
  80. if boolSoftflash_1=true then
  81. re.Pattern="([FLASH])(.[^]]*)([/FLASH])"
  82. strContent= re.Replace(strContent,"<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400><PARAM NAME=movie VALUE=""$2""><PARAM NAME=quality VALUE=high><embed src=""$2"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=500 height=400>$2</embed></OBJECT>")
  83. end if
  85.     re.Pattern="([URL])(http://.[^]]*)([/URL])"
  86.     strContent= re.Replace(strContent,"<img align=absmiddle src=./images/url.gif><A HREF=""$2"" TARGET=_blank>$2</A>")
  87.     re.Pattern="([URL])(.[^]]*)([/URL])"
  88.     strContent= re.Replace(strContent,"<img align=absmiddle src=./images/url.gif><A HREF=""http://$2"" TARGET=_blank>$2</A>")
  90.     re.Pattern="([URL=(http://.[^]]*)])(.[^]]*)([/URL])"
  91.     strContent= re.Replace(strContent,"<img align=absmiddle src=./images/url.gif><A HREF=""$2"" TARGET=_blank>$3</A>")
  92.     re.Pattern="([URL=(.[^]]*)])(.[^]]*)([/URL])"
  93.     strContent= re.Replace(strContent,"<img align=absmiddle src=./images/url.gif><A HREF=""http://$2"" TARGET=_blank>$3</A>")
  95.     re.Pattern="([EMAIL])(.[^]]*)([/EMAIL])"
  96.     strContent= re.Replace(strContent,"<img align=absmiddle src=./images/email1.gif><A HREF=""mailto:$2"">$2</A>")
  97.     re.Pattern="([EMAIL=(.[^]]*)])(.[^]]*)([/EMAIL])"
  98.     strContent= re.Replace(strContent,"<img align=absmiddle src=./images/email1.gif><A HREF=""mailto:$2"" TARGET=_blank>$3</A>")
  100. re.Pattern = "^(http://[A-Za-z0-9./=?%-&_~`@']+)"
  101. strContent = re.Replace(strContent,"<img align=absmiddle src=./images/url.gif><a target=_blank href=$1>$1</a>")
  102. re.Pattern = "(http://[A-Za-z0-9./=?%-&_~`@']+)$"
  103. strContent = re.Replace(strContent,"<img align=absmiddle src=./images/url.gif><a target=_blank href=$1>$1</a>")
  104. re.Pattern = "[^>=""](http://[A-Za-z0-9./=?%-&_~`@']+)"
  105. strContent = re.Replace(strContent,"<img align=absmiddle src=./images/url.gif><a target=_blank href=$1>$1</a>")
  107.     re.Pattern="([em(.[^]]*)])"
  108.     strContent=re.Replace(strContent,"<img src=./images/em$2.gif border=0 align=absmiddle>")
  110.     re.Pattern="([HTML])(.[^]]*)([/HTML])"
  111.     strContent=re.Replace(strContent,"<table width='100%' border='0' cellspacing='0' cellpadding='6'><td><b>以下内容为程序代码:</b><br>$2</td></table>")
  112.     re.Pattern="([code])(.[^]]*)([/code])"
  113.     strContent=re.Replace(strContent,"<table width='100%' border='0' cellspacing='0' cellpadding='6'><td><b>以下内容为程序代码:</b><br>$2</td></table>")
  116.     re.Pattern="([QUOTE])(.[^]]*)([/QUOTE])"
  117.     strContent=re.Replace(strContent,"<BLOCKQUOTE><BLOCKQUOTE><table width='100%' border='0' cellspacing='0' cellpadding='6'><td>$2</td></table></BLOCKQUOTE></BLOCKQUOTE><br>")
  118.     re.Pattern="([fly])(.*)([/fly])"
  119.     strContent=re.Replace(strContent,"<marquee width=90% behavior=alternate scrollamount=3>$2</marquee>")
  120.     re.Pattern="([move])(.*)([/move])"
  121.     strContent=re.Replace(strContent,"<MARQUEE scrollamount=3>$2</marquee>")
  122.     re.Pattern="[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^]]*)[/GLOW]"
  123.     strContent=re.Replace(strContent,"<table width=$1 style=""filter:glow(color=$2, strength=$3)"">$4</table>")
  124.     re.Pattern="[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)](.[^]]*)[/SHADOW]"
  125.     strContent=re.Replace(strContent,"<table width=$1 style=""filter:shadow(color=$2, strength=$3)"">$4</table>")
  126. '--------------------------------------------------
  127.     strContent = doCode(strContent, "[list]", "[/list]", "<ul>", "</ul>")
  128.     strContent = doCode(strContent, "[list=1]", "[/list]", "<ol type=1>", "</ol id=1>")
  129.     strContent = doCode(strContent, "[list=a]", "[/list]", "<ol type=a>", "</ol id=a>")
  130.     strContent = doCode(strContent, "[*]", "[/*]", "<li>", "</li>")
  131. '--------------------------------------------------
  132.     re.Pattern="([face=(.[^]]*)])(.*)([/face])"
  133.     strContent=re.Replace(strContent,"<font face=$2>$3</font>")
  135.     re.Pattern="([i])(.[^]]*)([/i])"
  136.     strContent=re.Replace(strContent,"<i>$2</i>")
  137.     re.Pattern="([u])(.[^]]*)([/u])"
  138.     strContent=re.Replace(strContent,"<u>$2</u>")
  139.     re.Pattern="([b])(.[^]]*)([/b])"
  140.     strContent=re.Replace(strContent,"<b>$2</b>")
  141.     re.Pattern="[align=(.[^]]*)](.*)[/align]"
  142.     strContent=re.Replace(strContent,"<div align=$1>$2</div>")
  143.     re.Pattern="[color=(.[^]]*)](.[^[]*)[/color]"
  144.     strContent=re.Replace(strContent,"<font color=$1>$2</font>")
  145. if boolSoftsize_1=true then
  146. re.Pattern="([size=1])(.[^[]*)([/size])"
  147. strContent=re.Replace(strContent,"<font size=1>$2</font>")
  148. re.Pattern="([size=2])(.[^[]*)([/size])"
  149. strContent=re.Replace(strContent,"<font size=2>$2</font>")
  150. re.Pattern="([size=3])(.[^[]*)([/size])"
  151. strContent=re.Replace(strContent,"<font size=3>$2</font>")
  152. re.Pattern="([size=4])(.[^[]*)([/size])"
  153. strContent=re.Replace(strContent,"<font size=4>$2</font>")
  154. re.Pattern="([size=5])(.[^[]*)([/size])"
  155. strContent=re.Replace(strContent,"<font size=5>$2</font>")
  156. re.Pattern="([size=6])(.[^[]*)([/size])"
  157. strContent=re.Replace(strContent,"<font size=6>$2</font>")
  158. re.Pattern="([size=7])(.[^[]*)([/size])"
  159. strContent=re.Replace(strContent,"<font size=7>$2</font>")
  160. end if
  162.     strContent=ChkBadWords(strContent)
  164.     set re=Nothing
  165.     UBBCode=strContent
  166. end function
  168. public function translate(sourceStr,fieldStr)
  169. rem 处理逻辑表达式的转化问题
  170.   dim  sourceList
  171.   dim resultStr
  172.   dim i,j
  173.   if instr(sourceStr," ")>0 then 
  174.      dim isOperator
  175.      isOperator = true
  176.      sourceList=split(sourceStr)
  177.      '--------------------------------------------------------
  178.      rem Response.Write "num:" & cstr(ubound(sourceList)) & "<br>"
  179.      for i = 0 to ubound(sourceList)
  180.         rem Response.Write i 
  181.     Select Case ucase(sourceList(i))
  182.     Case "AND","&","和","与"
  183.         resultStr=resultStr & " and "
  184.         isOperator = true
  185.     Case "OR","|","或"
  186.         resultStr=resultStr & " or "
  187.         isOperator = true
  188.     Case "NOT","!","非","！","！"
  189.         resultStr=resultStr & " not "
  190.         isOperator = true
  191.     Case "(","（","（"
  192.         resultStr=resultStr & " ( "
  193.         isOperator = true
  194.     Case ")","）","）"
  195.         resultStr=resultStr & " ) "
  196.         isOperator = true
  197.     Case Else
  198.         if sourceList(i)<>"" then
  199.             if not isOperator then resultStr=resultStr & " and "
  200.             if inStr(sourceList(i),"%") > 0 then
  201.                 resultStr=resultStr&" "&fieldStr& " like '" & replace(sourceList(i),"'","''") & "' "
  202.             else
  203.                 resultStr=resultStr&" "&fieldStr& " like '%" & replace(sourceList(i),"'","''") & "%' "
  204.             end if
  205.                 isOperator=false
  206.         End if    
  207.     End Select
  208.         rem Response.write resultStr+"<br>"
  209.      next 
  210.      translate=resultStr
  211.   else '单条件
  212.      if inStr(sourcestr,"%") > 0 then
  213.          translate=" " & fieldStr & " like '" & replace(sourceStr,"'","''") &"' "
  214.      else
  215.     translate=" " & fieldStr & " like '%" & replace(sourceStr,"'","''") &"%' "
  216.      End if
  217.      rem 前后各加一个空格，免得连sql时忘了加，而出错。
  218.   end if  
  219. end function
  220. %>