inc_ubb.asp

本息统基于中国网站技术人员最熟悉WindowsNT环境和Asp语言

<%
	dim CurrentPage '首页显示分页使用
	'根据分类id，返回分类名
	Public Function getsubname(str,id)
        Dim tmp1, tmp2
        id = Trim(id)
        tmp1 = InStr(Str, id & "!!??((")
        tmp2 = Len(id & "!!??((") + tmp1
        If tmp1 > 0 Then
            getsubname = Mid(Str, tmp2, InStr(tmp1, Str, "##))==") - tmp2)
        Else
            getsubname = ""
		End If
	end function
	
	
	public Function detable(strHTML)
	  Dim objRegExp, strOutput
	  Set objRegExp = New Regexp	  
	  strOutput=strHTML	
	  objRegExp.IgnoreCase = True
	  objRegExp.Global = True
	  objRegExp.Pattern = "</?table[^>]*>"
	  strOutput = objRegExp.Replace(strOutput, "")	  
	  objRegExp.Pattern = "</?tr[^>]*>"
	  strOutput = objRegExp.Replace(strOutput, "")	  
	  objRegExp.Pattern = "</?td[^>]*>"
	  strOutput = objRegExp.Replace(strOutput, "")	  
	  objRegExp.Pattern = "</?th[^>]*>"
	  strOutput = objRegExp.Replace(strOutput, "")	
	  objRegExp.Pattern = "</?BLOCKQUOTE[^>]*>"
	  strOutput = objRegExp.Replace(strOutput, "")	  
	  objRegExp.Pattern = "</?tbody[^>]*>"
	  strOutput = objRegExp.Replace(strOutput, "")	  
	  objRegExp.Pattern = "<style[^\s]*"
	  strOutput = objRegExp.Replace(strOutput, "")	  
		detable = strOutput   
	  Set objRegExp = Nothing
	End Function
		
	public function profilthtm(strHTML)
		Dim objRegExp, strOutput
		Set objRegExp = New Regexp  
		strOutput=strHTML
		objRegExp.IgnoreCase = True
		objRegExp.Global = True	
		objRegExp.Pattern = "<img"
		strOutput = objRegExp.Replace(strOutput,"♂")		
		objRegExp.Pattern = "(♂[^>]*)>"
		strOutput = objRegExp.Replace(strOutput,"$1♀")		
		objRegExp.Pattern = "<[^>]*>"
		strOutput = objRegExp.Replace(strOutput,"")		
		objRegExp.Pattern = "style[^\s]*"
		strOutput = objRegExp.Replace(strOutput, "")		
		objRegExp.Pattern = "♂"
		strOutput = objRegExp.Replace(strOutput,"<img")		
		objRegExp.Pattern = "♀"
		strOutput = objRegExp.Replace(strOutput,">")		
		profilthtm = strOutput   
		Set objRegExp = Nothing
	end function
	
	public Function RemoveHTML(strHTML) 
		ON ERROR RESUME NEXT
		Dim objRegExp, strOutput
		  Set objRegExp = New Regexp
		  objRegExp.IgnoreCase = True
		  objRegExp.Global = True
		  objRegExp.Pattern = "<.+?>"
		  strOutput = objRegExp.Replace(strHTML, "")
		  strOutput = Replace(strOutput, "<", "<")
		  strOutput = Replace(strOutput, ">", ">")
		  RemoveHTML = strOutput   
		  Set objRegExp = Nothing
	End Function 

	public Function filtimg(strHTML)
	  Dim objRegExp, strOutput
	  Set objRegExp = New Regexp	  
	  strOutput=strHTML	
	  objRegExp.IgnoreCase = True
	  objRegExp.Global = True
	   if oblog.setup(28,0)=1 then
		objRegExp.Pattern="<img.[^>]*src(=| )(.[^>]*)>"
		strOutput = objRegExp.Replace(strOutput, "<img src=$2 onmousewheel=""return bbimg(this)"" >")
	  end if	   
	  if oblog.setup(27,0)>0 then
		'objRegExp.Pattern = "(<[^>]*src=\x22([^ ]*)\x22[^>]*>)"
		'strOutput = objRegExp.Replace(strOutput, "<a href=""$2"" target=""_blank"">$1</a>")
		
		'objRegExp.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
		'strOutput = objRegExp.Replace(strOutput,"<a target=""_blank"" href=$1>$1</a>")
		'objRegExp.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)$"
		'strOutput = objRegExp.Replace(strOutput,"<a target=""_blank"" href=$1>$1</a>")
		'objRegExp.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
		'strOutput = objRegExp.Replace(strOutput,"$1<a target=""_blank"" href=$2>$2</a>")
	
		'objRegExp.Pattern = "(<img[^>]*)>"
		 objRegExp.Pattern="<img.[^>]*src(=| )(.[^>]*)>"
	  	strOutput=objRegExp.replace(strOutput,"<img src=$2 onclick=""javascript:window.open(this.src);"" style=""CURSOR: pointer"">" )
		
		objRegExp.Pattern = "<img(.[^>]*)>"
		strOutput = objRegExp.Replace(strOutput,"<img$1 onload=""javascript:if(this.width>"&oblog.setup(27,0)&")this.style.width="&oblog.setup(27,0)&";"">")
	  end if
	  	 
	  filtimg = strOutput   
	  Set objRegExp = Nothing
	End Function
	
	public Function filtskinpath(strHTML)           
		Dim objRegExp, strOutput
	 	 Set objRegExp = New Regexp  
	  	strOutput=strHTML
	 	 objRegExp.IgnoreCase = True
	 	 objRegExp.Global = True
		objRegExp.Pattern="src=([^\'^\u0022^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
		strOutput=objRegExp.replace(strOutput,"src="""&blogdir&"$1""")
		objRegExp.Pattern="src=[\'\u0022]([^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)[\'\u0022]"
		strOutput=objRegExp.replace(strOutput,"src="""&blogdir&"$1""")
		
		objRegExp.Pattern="href=([^\'^\u0022^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
		strOutput=objRegExp.replace(strOutput,"href="""&blogdir&"$1""")
		objRegExp.Pattern="href=[\'\u0022]([^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)[\'\u0022]"
		strOutput=objRegExp.replace(strOutput,"href="""&blogdir&"$1""")
		
		objRegExp.Pattern="url[\(]([^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)[\)]"
		strOutput=objRegExp.replace(strOutput,"url("&blogdir&"$1)")
		
		objRegExp.Pattern="background=([^\'^\u0022^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
		strOutput=objRegExp.replace(strOutput,"background="""&blogdir&"$1""")
		objRegExp.Pattern="background=[\'\u0022]([^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)[\'\u0022]"
		strOutput=objRegExp.replace(strOutput,"background="""&blogdir&"$1""")
		
		objRegExp.Pattern="value=([^\'^\u0022^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][^# ]*\.[^# \'\u0022^]*)"
		strOutput=objRegExp.replace(strOutput,"value="""&blogdir&"$1""")
		objRegExp.Pattern="value=[\'\u0022]([^\/^http^http\s^ftp^rt\sp^mm\s^#^\'^\.\.][^# ]*\.[^# ]*)[\'\u0022]"
		strOutput=objRegExp.replace(strOutput,"value="""&blogdir&"$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)
	  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)   
	  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 = "<!-- #include file=[^>]*>"
	  strOutput = objRegExp.Replace(strOutput, oblog.setup(82,0))
	   filt_include = strOutput   
	  Set objRegExp = Nothing
	End Function
	
	public Function filtscript(V)
	  If Not Isnull(V) Then
			Dim t,test,Replacelist,t1,re,s,rnum
			Set re=new RegExp
			re.IgnoreCase =True
			re.Global=True
			t=v
			t1=v
			s=v
			re.Pattern="&#36;"
			t1=re.Replace(t1,"$")
			re.Pattern="&#36"
			t1=re.Replace(t1,"$")
			re.Pattern="&#39;"
			t1=re.Replace(t1,"'")