<%
FunctionHTMLEncode(ByValstrValue)
'忽略错误
OnErrorResumeNext
'定义变量
DimstrNewValue
IfstrValue<>""Then
strNewValue=Replace(strValue,"<","<")
strNewValue=Replace(strNewValue,">",">")
strNewValue=Replace(strNewValue,"'","'")
strNewValue=Replace(strNewValue,"""","")
strNewValue=Replace(strNewValue,vbCrLf,"<br>")
strNewValue=Replace(strNewValue,"","")
EndIf
HTMLEncode=strNewValue
'输出错误
IfErr.Number>0Then
Response.WriteErr.Description
Response.End
EndIf
EndFunction
FunctionUBBCode(strValue)
DimRegExp
'strValue=HTMLEncode(strValue)
SetRegExp=NewRegExp
RegExp.IgnoreCase=True
RegExp.Global=True
IfstrValue<>""Then
RegExp.Pattern="(/[IMG/])(.[^/[]*)(/[//IMG/])"
strValue=RegExp.Replace(strValue,"<ahref=""$2""target=_blank><IMGSRC=""$2""border=0alt=按此在新窗口浏览图片onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>")
RegExp.Pattern="(/[FLASH/])(.[^/[]*)(/[//FLASH/])"
strValue=RegExp.Replace(strValue,"<OBJECTcodebase=""http://download.macromedia.com/pub/sho ... h/swflash.cab#version=4,0,2,0""classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000width=500height=400id=ShockwaveFlash1><PARAMNAME=movieVALUE=""$2""><PARAMNAME=qualityVALUE=high><embedsrc=""$2""quality=highpluginspage=""")' target=_blank rel=nofollow>http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash""type=""appl ... 00height=400></embed></OBJECT>")
RegExp.Pattern="(/[ZIP/])(.[^/[]*)(/[//ZIP/])"
strValue=RegExp.Replace(strValue,"<br><ahref=""$2"">点击下载该文件</a>")
RegExp.Pattern="(/[RAR/])(.[^/[]*)(/[//RAR/])"
strValue=RegExp.Replace(strValue,"<br><ahref=""$2"">点击下载该文件</a>")
'RegExp.Pattern="(/[UPLOAD=(.[^/[]*)/])(.[^/[]*)(/[//UPLOAD/])"
'strValue=RegExp.Replace(strValue,"<br><IMGSRC=""$2.gif""border=0><AHREF=""$3""TARGET=_blank>点击查看或下载该文件</A>")
'strValue=RegExp.Replace(strValue,"<br><IMGSRC=""$2.gif""border=0>此主题相关图片如下：<br><AHREF=""$3""TARGET=_blank><IMGSRC=""$3""border=0alt=按此在新窗口浏览图片onload=""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>")