Sehr guter UBB -Code

<%

FunctionHtmlencode (byvalstrValue)

'忽略错误

OnErrorresumeNext

'定义变量

DimstrnewValue

IfstrValue <> "" dann

StrnewValue = Ersetzen (StrValue, "<", "<")

StrnewValue = ersetzen (StrnewValue, ">", ">")

StrnewValue = Ersetzen (StrnewValue, "", "'")

StrnewValue = ersetzen (StrnewValue, "" ",", ")

StrnewValue = Ersetzen (StrnewValue, VBCRLF, "<br>")

StrnewValue = ersetzen (StrnewValue, "," ")

Endif

Htmlencode = stnewValue

'输出错误

Ireerr.number> 0Then

Response.writeerr.description

Antwort.end

Endif

Endfunktion

FunctionUbbCode (StrValue)

Dimregexp

'StrValue = htmlencode (StrValue)

SetRegExp = newRegExp

Regexp.ignorecase = true

Regexp.global = true

IfstrValue <> "" dann

Regexp.pattern = "(/[img/weibliches )(.;

StrValue = regexp.replace (StrValue, "<aHref =" "$ 2" "target = _blank> <imgsrc =" "$ 2" "border = 0alt = 按此在新窗口浏览图片 onload =" "javaScript: if (this.width> screen.width-333) this.width = screen.width-3333333333333333333333333333333333333333333333333333333333333333333333."

Regexp.pattern = "(/[flash/weibliche )(.;^/;])(/////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 = 500HEGT = 400ID = STOCKW AVEFLASH1> <paramname = movieValue = "" $ 2 ""> <paramname = qualityValue = High> <embredSrc = "" $ 2 "" quality = HighPluginSpage = "" ") 'target = _blank rel = nofollow> http://www.macromedia.com/shockwave/download/index.cgi?p1_prod_version=shockwaveFlash" "Typ =" "Appl ... 00Height = 400> </eingebunden> </Object>") ")") "))

Regexp.pattern = "(/[ZIP/weibliches)(.;

StrValue = Regexp.Replace (StrValue, "<br> <Ahref =" "$ 2" "> 点击下载该文件 </a>")

Regexp.pattern = "(/[rar/weibliches )(.;

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 (strsRalue, "<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>")