dv_ubbcode.asp

一个功能强大的asp招聘求职系统

				"<param name=""src"" value=""$3"" /><param name=""AUTOSTART"" value=""false"" />"&_
				"<param name=""CONtrOLS"" value=""controlpanel"" />"&_
				"<param name=""CONSOLE"" value=""Clip1"" /></object></div>"& replace(Mtinfo,"$4","$3"),_
				PostUserGroup,Cint(Board_Setting(9) * mt),"=*([0-9]*),*([0-9]*)")
				'Dv7 RealPlayer自定义播放模式；
				s=Dv_UbbCode_iS2(s,"rm",_
				"<div><object "& DV_UBB_TITLE &" classid=""clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"" class=""object"" id=""RAOCX"" width=""$1"" height=""$2"">"&_
				"<param name=""src"" value=""$4"" /><param name=""CONSOLE"" value=""$4"" /><param name=""CONtrOLS"" value=""imagewindow"" />"&_
				"<param name=""AUTOSTART"" value=""$3"" /></object></div>"&_
				"<div><object "& DV_UBB_TITLE &" classid=""CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA"" height=""32"" id=""video"" width=""$1"">"&_
				"<param name=""src"" value=""$4"" />"&_
				"<param name=""AUTOSTART"" value=""$3"" />"&_
				"<param name=""CONtrOLS"" value=""controlpanel"" /><param name=""CONSOLE"" value=""$4"" /></object></div>",_
				"<div><object "& DV_UBB_TITLE &" classid=""clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA"" class=""object"" id=""RAOCX"" width=""$1"" height=""$2"">"&_
				"<param name=""src"" value=""$4"" /><param name=""CONSOLE"" value=""$4"" /><param name=""CONtrOLS"" value=""imagewindow"" />"&_
				"<param name=""AUTOSTART"" value=""false"" /></object></div>"&_
				"<div><object "& DV_UBB_TITLE &" classid=""CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA"" height=""32"" id=""video"" width=""$1"">"&_
				"<param name=""src"" value=""$4"" />"&_
				"<param name=""AUTOSTART"" value=""false"" />"&_
				"<param name=""CONtrOLS"" value=""controlpanel"" /><param name=""CONSOLE"" value=""$4"" /></object></div>"&_
				Mtinfo,PostUserGroup,Cint(Board_Setting(9) * mt),"=*([0-9]*),*([0-9]*),*([0|1|true|false]*)")
			End If
			If InStr(Ubblists,",7,")>0 Or sType=1 Then
				s=Dv_UbbCode_iS2(s,"sound",_
				"<a href=""$1"" target=""_blank""><img "& DV_UBB_TITLE &" src=""skins/default/filetype/mid.gif"" border=""0"" alt=""背景音乐"" /></a><bgsound src=""$1"" loop=""-1"" />",_
				"<a href=""$1"" target=""_blank"">$1</a>"& replace(Mtinfo,"$4","$1"),_
				PostUserGroup,Cint(Board_Setting(9) * mt),"")
			End If
			'flash code
			If InStr(Ubblists,",8,")>0 Or sType=1 Then
				s=Dv_UbbCode_iS2(s,"flash",_
				"<a href=""$1"" target=""_blank""><img "& DV_UBB_TITLE &" src=""skins/default/filetype/swf.gif"" border=""0"" alt=""点击开新窗口欣赏该FLASH动画!"" height=""16"" width=""16"" />[全屏欣赏]</a><br/>"&_
				"<object "& DV_UBB_TITLE &" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000""  width=""500"" height=""400"">"&_
				"<param name=""movie"" value=""$1"" /><param name=""quality"" value=""high"" />"&_
				"<embed "& DV_UBB_TITLE &" src=""$1"" quality=""high"" pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""application/x-shockwave-flash"" width=""500"" height=""400"">$1</embed></object>",_
				"<img "& DV_UBB_TITLE &" src=""skins/default/filetype/swf.gif"" border=""0""> <a href=$1 target=""_blank"">$1</a>"& replace(Mtinfo,"$4","$1"),_
				PostUserGroup,Cint(Board_Setting(44)),"")
				s=Dv_UbbCode_iS2(s,"flash",_
				"<a href=""$3"" target=""_blank""><img "& DV_UBB_TITLE &" src=""skins/default/filetype/swf.gif"" border=""0"" alt=""点击开新窗口欣赏该FLASH动画!"" height=""16"" width=""16"" />[全屏欣赏]</a><br/>"&_
				"<object "& DV_UBB_TITLE &" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0"" classid=""clsid:D27CDB6E-AE6D-11cf-96B8-444553540000""  width=""$1"" height=""$2"">"&_
				"<param name=""movie"" value=""$3"" /><param name=""quality"" value=""high"" />"&_
				"<embed "& DV_UBB_TITLE &" src=""$3"" quality=""high"" pluginspage=""http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash"" type=""application/x-shockwave-flash"" width=""$1"" height=""$2"">$3</embed></object>",_
				"<a href=""$3"" target=""_blank"">$3</a>",PostUserGroup,Cint(Board_Setting(44)),"=*([0-9]*),*([0-9]*)")
			End If
			'point view
			If InStr(Ubblists,",9,")>0 Or sType=1 Then
				s=Dv_UbbCode_Get(s,PostUserGroup,PostType,"money",_
				"<hr size=""1"" /><font color=""gray"">以下内容需要金钱数达到<b>$1</b>才可以浏览</font><br />$2<hr size=""1"" />",_
				"<hr size=""1"" /><font color="""&Dvbbs.Mainsetting(1)&""">以下内容需要金钱数达到<b>$1</b>才可以浏览</font><hr size=""1"" />",_
				UserPointInfo(0),Cint(Board_Setting(10)))
			End If
			If InStr(Ubblists,",10,")>0 Or sType=1 Then
				s=Dv_UbbCode_Get(s,PostUserGroup,PostType,"point",_
				"<hr size=""1"" /><font color=""gray"">以下内容需要积分达到<b>$1</b>才可以浏览</font><br/>$2<hr size=""1"" />",_
				"<hr size=""1"" /><font color="""&Dvbbs.Mainsetting(1)&""">以下内容需要积分达到<b>$1</b>才可以浏览</font><hr size=""1"" />",_
				UserPointInfo(1),Cint(Board_Setting(11)))
			End If
			If InStr(Ubblists,",11,")>0 Or sType=1 Then
				s=Dv_UbbCode_Get(s,PostUserGroup,PostType,_
				"UserCP","<hr size=""1"" /><font color=""gray"">以下内容需要魅力达到<b>$1</b>才可以浏览</font><br/>$2<hr size=""1"" />",_
				"<hr size=""1"" /><font color="""&Dvbbs.Mainsetting(1)&""">以下内容需要魅力达到<b>$1</b>才可以浏览</font><hr size=""1"" />",_
				UserPointInfo(2),Cint(Board_Setting(12)))
			End If
			If InStr(Ubblists,",12,")>0 Or sType=1 Then
				s=Dv_UbbCode_Get(s,PostUserGroup,PostType,_
				"Power","<hr size=""1"" /><font color=""gray"">以下内容需要威望达到<b>$1</b>才可以浏览</font><br/>$2<hr size=""1"" />",_
				"<hr size=""1"" /><font color="""&Dvbbs.Mainsetting(1)&""">以下内容需要威望达到<b>$1</b>才可以浏览</font><hr size=""1"" />",_
				UserPointInfo(3),Cint(Board_Setting(13)))
			End If
			If InStr(Ubblists,",13,")>0 Or sType=1 Then
				s=Dv_UbbCode_Get(s,PostUserGroup,PostType,"Post",_
				"<hr size=""1"" /><font color=""gray"">以下内容需要帖子数达到<b>$1</b>才可以浏览</font><br/>$2<hr size=""1"" />",_
				"<hr size=""1"" /><font color="""&Dvbbs.Mainsetting(1)&""">以下内容需要帖子数达到<b>$1</b>才可以浏览</font><hr size=""1"" />",_
				UserPointInfo(4),Cint(Board_Setting(14)))
			End If
			If InStr(Ubblists,",14,")>0 Or sType=1 Then
				s=UBB_REPLYVIEW(s,PostUserGroup,PostType)
			End If
			If InStr(Ubblists,",15,")>0 Or sType=1 Then
				s=UBB_USEMONEY(s,PostUserGroup,PostType)
			End If
			'url code
			If InStr(Ubblists,",16,")>0 Or sType=1 Then
				s=Dv_UbbCode_S1(s,"url","<a href=""$1"" target=""_blank"">$1</a>")
				s=Dv_UbbCode_UF(s,"url","<a href=""$1"" target=""_blank"">$2</a>","0")
			End If
			'email code
			If InStr(Ubblists,",17,")>0 Or sType=1 Then
				s=Dv_UbbCode_S1(s,"email","<img "& DV_UBB_TITLE &" align=""absmiddle"" src=""skins/default/email1.gif"" alt=""""/><a href=""mailto:$1"">$1</a>")
				s=Dv_UbbCode_UF(s,"email","<img "& DV_UBB_TITLE &" align=""absmiddle"" src=""skins/default/email1.gif"" alt=""""/><a href=""mailto:$1"" target=""_blank"">$2</a>","0")
			End If
			If InStr(Ubblists,",37,")>0 Or sType=1 Then
				If (Cint(Board_Setting(8)) = 1 Or PostUserGroup<4) And InStr(Lcase(s),"[em")>0 Then
					re.Pattern="\[em([0-9]+)\]"
					s=re.Replace(s,"<img "& DV_UBB_TITLE &" src="""&EmotPath&"em$1.gif"" border=""0"" align=""middle"" alt="""" />")
				End If
			End If
			If InStr(Ubblists,",23,")>0 Or sType=1 Then
				s=Dv_UbbCode_C(s,"html")
			End If
			If InStr(Ubblists,",24,")>0 Or sType=1 Then
				s=Dv_UbbCode_S1(s,"code","<pre class=""htmlcode""><b>以下内容为程序代码:</b><br/>$1</pre>")
			End If
			If InStr(Ubblists,",25,")>0 Or sType=1 Then
				s=Dv_UbbCode_UF(s,"color","<font color=""$1"">$2</font>","1")
			End If
			If InStr(Ubblists,",26,")>0 Or sType=1 Then
				s=Dv_UbbCode_UF(s,"face","<font face=""$1"">$2</font>","1")
			End If
			If InStr(Ubblists,",27,")>0 Or sType=1 Then
				s=Dv_UbbCode_Align(s)
			End If
			If InStr(Ubblists,",42,")>0 Or sType=1 Then
				s=Dv_UbbCode_S1(s,"center","<div align=""center"">$1</div>")
			End If
			If InStr(Ubblists,",28,")>0 Or sType=1 Then
				s=Dv_UbbCode_Q(s)
			End If
			If InStr(Ubblists,",29,")>0 Or sType=1 Then
				s=Dv_UbbCode_S1(s,"fly","<marquee width=""90%"" behavior=""alternate"" scrollamount=""3"">$1</marquee>")
			End If
			If InStr(Ubblists,",30,")>0 Or sType=1 Then
				s=Dv_UbbCode_S1(s,"move","<marquee scrollamount=""3"">$1</marquee>")
			End If
			If InStr(Ubblists,",31,")>0 Or sType=1 Then
				s=Dv_UbbCode_iS1(s,"shadow","<div style=""width:$1px;filter:shadow(color=$2, strength=$3)"">$4</div>")
			End If
			If InStr(Ubblists,",32,")>0 Or sType=1 Then
				s=Dv_UbbCode_iS1(s,"glow","<div style=""width:$1px;filter:glow(color=$2, strength=$3)"">$4</div>")
			End If
			If InStr(Ubblists,",33,")>0 Or sType=1 Then
				s=Dv_UbbCode_UF(s,"size","<font size=""$1"">$2</font>","1")
			End If
			If InStr(Ubblists,",34,")>0 Or sType=1 Then
				s=Dv_UbbCode_S1(s,"i","<i>$1</i>")
			End If
			If InStr(Ubblists,",35,")>0 Or sType=1 Then
				s=Dv_UbbCode_S1(s,"b","<b>$1</b>")
			End If
			If InStr(Ubblists,",36,")>0 Or sType=1 Then
				s=Dv_UbbCode_S1(s,"u","<u>$1</u>")
			End If
			If InStr(Ubblists,",41,")>0 Or sType=1 Then
				s= Dv_UbbCode_name(s)
			End If
			'如果没有更新过帖子数据，而定员帖失效的，请把下面的注释去掉，建议进行帖子数据更新，以提高性能 2005.10.10 By Winder.F
			'If InStr(Lcase(s),"[username")>0 Then s= Dv_UbbCode_name(s)
			
			If InStr(s,"payto:") = 0 Then
				s = Replace(s,"https://www.alipay.com/payt","https://www.alipay.com/payto:")
			End If
			If InStr(Ubblists,",40,")>0 Then
				s=Dv_Alipay_PayTo(s)
			End If
			'自动识别网址
			'If InStr(Ubblists,",18,")>0 Or InStr(Ubblists,",19,")>0 Or InStr(Ubblists,",20,")>0 Or InStr(Ubblists,",21,")>0 Or InStr(Ubblists,",22,")>0 Or sType=1 Then
			'	re.Pattern = "(^|[^<=""])(((http|https|ftp|rtsp|mms):(\/\/|\\\\))(([\w\/\\\+\-~`@:%])+\.)+([\w\/\\\.\=\?\+\-~`@\':!%#]|(&amp;)|&)+)"
			'	s = re.Replace(s,"$1<a target=""_blank"" href=""$2"">$2</a>")
			'End If
			'自动识别www等开头的网址
			'If InStr(Ubblists,",38,")>0 Or sType=1 Then
			'	re.Pattern = "(^|[^\/\\\w\=])((www|bbs)\.(\w)+\.([\w\/\\\.\=\?\+\-~`@\'!%#]|(&amp;))+)"
			'	s = re.Replace(s,"$1<a  href=""http://$2"">$2</a>")
			'End If
			If textonly Then
				If xml.loadxml("<div>" & xmlencode(s) &"</div>") Then
					s=checkXHTML(mt,PostUserGroup)
					s=checkimg(s)
					If showisxhtml=1 and Dvbbs.master Then
						s=s&"<p style=""color:green"" align=""right"">[符合XHML规范，内容为纯文本或UBB(UBB解释文件版本："&ubb_version&")]</p>"
					End If
				Else
					If Dv_FilterJS(s) Then
							re.Pattern="\[(br)\]"
							s=re.Replace(s,"<$1>")
							re.Pattern = "(&nbsp;)"
							s = re.Replace(s,Chr(9))
							re.Pattern = "(<br/>)"
							s = re.Replace(s,vbNewLine)
							re.Pattern = "(<br>)"
							s = re.Replace(s,vbNewLine)
							re.Pattern = "(<p>)"
							s = re.Replace(s,"")
							re.Pattern = "(<\/p>)"
							s = re.Replace(s,vbNewLine)
							s=server.htmlencode(s)
							s="<form name=""scode"&replyid&""" method=""post"" action=""""><table class=""tableborder2"" cellspacing=""1"" cellpadding=""3"" width=""100%"" align=""center"" border=""0""><tr><th height=""22"">以下内容含脚本,或可能导致页面不正常的代码</th></tr><tr><td class=""tablebody1"" align=""middle"" width=""98%""><textarea id=""CodeText"" style=""BORDER-RIGHT: 1px dotted; BORDER-TOP: 1px dotted; OVERFLOW-Y: visible; OVERFLOW: visible; BORDER-LEFT: 1px dotted; WIDth: 98%; COLOR: #000000; BORDER-BOTTOM: 1px dotted"" rows=""20"" cols=""120"">"&s&"</textarea></td></tr><tr><td class=""tablebody2"" align=""middle"" width=""98%""><b>说明：</b>上面显示的是代码内容。您可以先检查过代码没问题，或修改之后再运行.</td></tr><tr><td class=""tablebody1"" align=""middle"" width=""98%""><input type=""button"" name=""run"" value=""运行代码"" onclick=""Dvbbs_ViewCode("&replyid&");""></td></tr></table></form>"
							Dv_UbbCode=s
							Exit Function
						Else
							s=bbimg(s)
						End If
						If showisxhtml=1 and Dvbbs.master Then
								s=s&"<p style=""color:red"" align=""right"">[不符合XHML规范(UBB解释文件版本："&ubb_version&")]</p>"
						End If
				End If
			Else	
				If xml.loadxml("<div>" & xmlencode(s) &"</div>") Then
					s=checkXHTML(mt,PostUserGroup)
					s=checkimg(s)
					If showisxhtml=1 and Dvbbs.master Then
						 	s=s&"<p style=""color:green"" align=""right"">[符合XHML规范，内容含HTML代码(UBB解释文件版本："&ubb_version&")]</p>"
					End If
				Else
						If Dv_FilterJS(s) Then
							re.Pattern="\[(br)\]"
							s=re.Replace(s,"<$1>")
							re.Pattern = "(&nbsp;)"
							s = re.Replace(s,Chr(9))
							re.Pattern = "(<br/>)"
							s = re.Replace(s,vbNewLine)
							re.Pattern = "(<br>)"
							s = re.Replace(s,vbNewLine)
							re.Pattern = "(<p>)"
							s = re.Replace(s,"")
							re.Pattern = "(<\/p>)"
							s = re.Replace(s,vbNewLine)
							s=server.htmlencode(s)
							s="<form name=""scode"&replyid&""" method=""post"" action=""""><table class=""tableborder2"" cellspacing=""1"" cellpadding=""3"" width=""100%"" align=""center"" border=""0""><tr><th height=""22"">以下内容含脚本,或可能导致页面不正常的代码</th></tr><tr><td class=""tablebody1"" align=""middle"" width=""98%""><textarea id=""CodeText"" style=""BORDER-RIGHT: 1px dotted; BORDER-TOP: 1px dotted; OVERFLOW-Y: visible; OVERFLOW: visible; BORDER-LEFT: 1px dotted; WIDth: 98%; COLOR: #000000; BORDER-BOTTOM: 1px dotted"" rows=""20"" cols=""120"">"&s&"</textarea></td></tr><tr><td class=""tablebody2"" align=""middle"" width=""98%""><b>说明：</b>上面显示的是代码内容。您可以先检查过代码没问题，或修改之后再运行.</td></tr><tr><td class=""tablebody1"" align=""middle"" width=""98%""><input type=""button"" name=""run"" value=""运行代码"" onclick=""Dvbbs_ViewCode("&replyid&");""></td></tr></table></form>"
							Dv_UbbCode=s
							Exit Function
						Else
							s=bbimg(s)
						End If
						If showisxhtml=1 and Dvbbs.master Then
								s=s&"<p style=""color:red"" align=""right"">[不符合XHML规范(UBB解释文件版本："&ubb_version&")]</p>"
						End If
					End If
			End If
		
		Dv_UbbCode = Rexmlencode(s)
	End Function
	Private Sub checktag(mt,PostUserGroup)
		Dim node,newnode,nodetext,attributes1,attributes2,Fnode,iskill
		Rem  新xhtml 格式处理
		Rem 检索有害标记实行过滤
		Dim Stylestr,style,style1,newstyle,style_a,style_b
		For Each Node in xml.documentElement.getElementsByTagName("*")
			If LCase(Node.nodeName)="link" _
			Or LCase(Node.nodeName)="iframe" _
			Or LCase(Node.nodeName)="meta" _
			Or LCase(Node.nodeName)="script"  _
			Or LCase(Node.nodeName)="frameset"  _
			Or LCase(Node.nodeName)="layer"  _
			Or LCase(Node.nodeName)="style"  _
			Or LCase(Node.nodeName)="xss"  _
			Or LCase(Node.nodeName)="base"  _
			Or LCase(Node.nodeName)="html"  _
			Or LCase(Node.nodeName)="xhtml"  _
			Or LCase(Node.nodeName)="xml"  _
			Then
				Set newnode=xml.createTextNode(node.xml)		
				node.parentNode.replaceChild newnode,node
				checktag mt,PostUserGroup
				Exit Sub
			End If
			If LCase(Node.nodeName)="object" Then
				For Each newnode in node.attributes
					If LCase(newNode.nodeName)="data" Then
						node.attributes.removeNamedItem(newNode.nodeName)
						checktag mt,PostUserGroup
						Exit Sub
					End If
				Next
			End If
			If LCase(Node.nodeName)="a" Then
					Node.attributes.setNamedItem(xml.createNode(2,"target","")).text="_blank"
			End If
		Next
		'在style里吃掉xss和expression
		Dim i
		For Each node in xml.documentElement.selectNodes("//@*")
				If LCase(Node.nodeName)="style" Then
					Stylestr=node.text
					Stylestr=split(Stylestr,";")