<%
Function ubbencode(str)
  '圖片轉換
  do while instr(str,"[IMG]")<>0 and instr(str,"[/IMG]")<>0 and instr(str,"[IMG]")<instr(str,"[/IMG]")
    strold= mid(str,instr(str,"[IMG]"),instr(str,"[/IMG]")-instr(str,"[IMG]")+6)
    strurl= mid(strold,6,instr(strold,"[/IMG]")-instr(strold,"[IMG]")-5)
    strnew= "<img src=" & strurl & "><br/>"
    str=replace(str,strold,strnew)
  loop
  ubbencode=str
  '鏈接轉換
  do while instr(str,"[URL]")<>0 and instr(str,"[/URL]")<>0 and instr(str,"[URL]")<instr(str,"[/URL]")
    strold= mid(str,instr(str,"[URL]"),instr(str,"[/URL]")-instr(str,"[URL]")+6)
    strurl= mid(strold,6,instr(strold,"[/URL]")-instr(strold,"[URL]")-5)
    strnew= "<a target=_blank href=" & strurl & "><u>" & strurl & "</u></a>"
    str=replace(str,strold,strnew)
  loop
  ubbencode=str
  'Flash轉換
  do while instr(str,"[FLASH=")<>0 and instr(str,",")<>0 and instr(str,"]")<>0 and instr(str,"[/FLASH]")<>0 and instr(str,"[FLASH=")<instr(str,",") and instr(str,",")<instr(str,"]") and instr(str,"]")<instr(str,"[/FLASH]")
    width=mid(str,instr(str,"[FLASH=")+7,instr(str,",")-instr(str,"[FLASH=")-7)
    height=mid(str,instr(str,",")+1,instr(str,"]")-instr(str,",")-1)
    strold= mid(str,instr(str,"[FLASH="),instr(str,"[/FLASH]")-instr(str,"[FLASH=")+8)
    strurl= mid(strold,instr(strold,"]")+1,instr(strold,"[/FLASH]")-instr(strold,"]")-1)
    strnew= "<br><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="& width &" height="& height &"><PARAM NAME=movie VALUE="& strurl &"><PARAM NAME=quality VALUE=high><embed src="& strurl &" quality=high pluginspage='<a target=_blank href=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash'>http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash'</a> type='application/x-shockwave-flash' width="& width &" height="& height &">"& strurl &"</embed></OBJECT><br>"
    str=replace(str,strold,strnew)
  loop
  ubbencode=str
  'Real轉換
  do while instr(str,"[RM=")<>0 and instr(str,",")<>0 and instr(str,"]")<>0 and instr(str,"[/RM]")<>0 and instr(str,"[RM=")<instr(str,",") and instr(str,",")<instr(str,"]") and instr(str,"]")<instr(str,"[/RM]")
    width=mid(str,instr(str,"[RM=")+4,instr(str,",")-instr(str,"[RM=")-4)
    height=mid(str,instr(str,",")+1,instr(str,"]")-instr(str,",")-1)
    strold= mid(str,instr(str,"[RM="),instr(str,"[/RM]")-instr(str,"[RM=")+5)
    strurl= mid(strold,instr(strold,"]")+1,instr(strold,"[/RM]")-instr(strold,"]")-1)
    strnew= "<br><OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width="& width &" height="& height &"><PARAM NAME=SRC VALUE="& strurl &"><PARAM NAME=CONSOLE VALUE=Clip268><PARAM NAME=CONTROLS VALUE=imagewindow><PARAM NAME=AUTOSTART VALUE=true ></OBJECT><br><OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA id=video2 width="& width &" height=32><PARAM NAME=SRC VALUE="&strurl&"><PARAM NAME=AUTOSTART VALUE=true><PARAM NAME=CONTROLS VALUE=controlpanel><PARAM NAME=CONSOLE VALUE=Clip268></OBJECT><br>"
    str=replace(str,strold,strnew)
  loop
  ubbencode=str
  'Media轉換
  do while instr(str,"[MP=")<>0 and instr(str,",")<>0 and instr(str,"]")<>0 and instr(str,"[/MP]")<>0 and instr(str,"[MP=")<instr(str,",") and instr(str,",")<instr(str,"]") and instr(str,"]")<instr(str,"[/MP]")
    width=mid(str,instr(str,"[MP=")+4,instr(str,",")-instr(str,"[MP=")-4)
    height=mid(str,instr(str,",")+1,instr(str,"]")-instr(str,",")-1)
    strold= mid(str,instr(str,"[MP="),instr(str,"[/MP]")-instr(str,"[MP=")+5)
    strurl= mid(strold,instr(strold,"]")+1,instr(strold,"[/MP]")-instr(strold,"]")-1)
    strnew= "<br><object classid=clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6 align=middle  id=WindowsMediaPlayer1 width="& width &" height="& height &" ><PARAM NAME=AUTOSTART VALUE=false ><param name=URL value="& strurl &"></object><br>"
    str=replace(str,strold,strnew)
  loop
  ubbencode=str
End Function
%>