\./=\?%\-&_~`@[\]\':+!]+)" strOutput=objRegExp.replace(strOutput,"href="""&blogurl&"$1""") objRegExp.Pattern="href=[\'\u0022]([^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)[\'\u0022]" strOutput=objRegExp.replace(strOutput,"href="""&blogurl&"$1""") objRegExp.Pattern="url[\(]([^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)[\)]" strOutput=objRegExp.replace(strOutput,"url("&blogurl&"$1)") objRegExp.Pattern="background=([^\'^\u0022^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)" strOutput=objRegExp.replace(strOutput,"background="""&blogurl&"$1""") objRegExp.Pattern="background=[\'\u0022]([^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)[\'\u0022]" strOutput=objRegExp.replace(strOutput,"background="""&blogurl&"$1""") objRegExp.Pattern="value=([^\'^\u0022^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][^# ]*\.[^# \'\u0022^]*)" strOutput=objRegExp.replace(strOutput,"value="""&blogurl&"$1""") objRegExp.Pattern="value=[\'\u0022]([^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][^# ]*\.[^# ]*)[\'\u0022]" strOutput=objRegExp.replace(strOutput,"value="""&blogurl&"$1""") if f_ext="asp" then strOutput=Replace(strOutput,"<%","<%") 'objRegExp.Pattern="\%\>" 'strOutput=objRegExp.replace(strOutput,"%>") objRegExp.Pattern="(runat)[^>]*=[^>]*(server)" strOutput=objRegExp.replace(strOutput,"$1=$2") end if filtskinpath=strOutput set objRegExp=nothing end Function public function filt_inc(strHTML) On Error Resume Next Dim objRegExp, strOutput Set objRegExp = New Regexp strOutput=strHTML objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "#include" strOutput = objRegExp.replace(strOutput, "#i nclude") objRegExp.Pattern = "#echo" strOutput = objRegExp.replace(strOutput, "#e cho") objRegExp.Pattern = "#flastmod" strOutput = objRegExp.replace(strOutput, "#f lastmod") objRegExp.Pattern = "#fsize" strOutput = objRegExp.replace(strOutput, "#f size") objRegExp.Pattern = "#exec" strOutput = objRegExp.replace(strOutput, "#e xec") objRegExp.Pattern = "#config" strOutput = objRegExp.replace(strOutput, "#c onfig") strOutput=Replace(strOutput,"#此前在首页部分显示#","") ' filt_inc = UBBCode(strOutput,1) filt_inc = strOutput Set objRegExp = Nothing end function public Function filt_include(strHTML) Dim objRegExp, strOutput Set objRegExp = New Regexp strOutput=strHTML objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "