<%
Function HTMLEncode(ByVal strValue)
 '忽略错误
 On Error Resume Next
 '定义变量
 Dim strNewValue
 If strValue <> "" Then
  strNewValue = Replace(strValue,"<","&lt;")
  strNewValue = Replace(strNewValue,">","&gt;")
  strNewValue = Replace(strNewValue,"'","&#39;")
  strNewValue = Replace(strNewValue,"""","&quot;")
  strNewValue = Replace(strNewValue,vbCrLf,"<br>")
  strNewValue = Replace(strNewValue," ","&nbsp;")
 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=""

[1] [2] 下一页

在google里搜索更多很不错的一个UBB代码

	Web www.51ec.org

上一篇信息学院： ASP开发中数据库文件调用的捷径

下一篇信息学院： 正则表达式简介