<%
Function HTMLEncode(ByVal strValue)
 '忽略错误
 On Error Resume Next
 '定义变量
 Dim strNewValue
 If strValue <> "" Then
  strNewValue = Replace(strValue,"<","<")
  strNewValue = Replace(strNewValue,">",">")
  strNewValue = Replace(strNewValue,"'","'")
  strNewValue = Replace(strNewValue,"""",""")
  strNewValue = Replace(strNewValue,vbCrLf,"<br>")
  strNewValue = Replace(strNewValue," "," ")
 End If
 HTMLEncode = strNewValue
 '输出错误
 If Err.Number>0 Then
  Response.Write Err.Description
  Response.End
 End If
End Function

Function UBBCode(strValue) 
Dim RegExp 
'strValue=HTMLEncode(strValue)
Set RegExp=New RegExp 
RegExp.IgnoreCase =True 
RegExp.Global=True 

If strValue <> "" Then
RegExp.Pattern="(\[IMG\])(.[^\[]*)(\[\/IMG\])" 
strValue=RegExp.Replace(strValue,"<a href=""$2"" target=_blank><IMG SRC=""$2"" border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>") 

RegExp.Pattern="(\[FLASH\])(.[^\[]*)(\[\/FLASH\])" 
strValue=RegExp.Replace(strValue,"<OBJECT codebase=""http://download.macromedia.com/pub/sho ... h/swflash.cab#version=4,0,2,0"" classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=500 height=400 id=ShockwaveFlash1><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=""appl ... 00 height=400></embed></OBJECT>") 

RegExp.Pattern="(\[ZIP\])(.[^\[]*)(\[\/ZIP\])" 
strValue=RegExp.Replace(strValue,"<br><a href=""$2"">点击下载该文件</a>") 

RegExp.Pattern="(\[RAR\])(.[^\[]*)(\[\/RAR\])" 
strValue=RegExp.Replace(strValue,"<br><a href=""$2"">点击下载该文件</a>") 

'RegExp.Pattern="(\[UPLOAD=(.[^\[]*)\])(.[^\[]*)(\[\/UPLOAD\])" 
'strValue=RegExp.Replace(strValue,"<br><IMG SRC=""http://www.webjx.com/htmldata/2005-06-05/$2.gif"" border=0> <A HREF=""$3"" TARGET=_blank>

点击查看或下载该文件</A>") 
'strValue=RegExp.Replace(strValue,"<br><IMG SRC=""http://www.webjx.com/htmldata/2005-06-05/$2.gif"" border=0>

此主题相关图片如下：<br><A HREF=""$3"" TARGET=_blank><IMG SRC=""$3""

 border=0 alt=按此在新窗口浏览图片 onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>") 

RegExp.Pattern="(\[URL\])(http:\/\/.[^\[]*)(\[\/URL\])" 
strValue=RegExp.Replace(strValue,"<A HREF=""$2"" TARGET=_blank>$2</A>") 

RegExp.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])" 
strValue=RegExp.Replace(strValue,"<A HREF="" .net后台老板学习 什么书好 数据库是sql