动网6的ubb..(小狗改进版)

FierCe 2004-1-17 16:41
<%
function matchReplace(strContent, re, tag, etag, rString)
	dim tmpString
	re.Pattern="\[" & tag & "\](.*?(?!\[" & tag & "\]).*?)\[\/" & etag & "\]"
	tmpString = ""
	strContent=re.Replace(strContent,rString) 
	do while tmpString <> strContent
		tmpString = strContent
		strContent=re.Replace(strContent,rString)
	loop
	
	matchReplace=strContent
end function

'入口参数:strContent内容，PostUserGroup用户组ID，PostType使用类型（1表示帖子，2表示公告，3表示短信）
function DvBCode(strContent,PostUserGroup,PostType)
'HTML Code
if PostType=3 or PostType=2 then
	redim Board_Setting(23)
	Board_Setting(6)=1
	Board_Setting(5)=0:Board_Setting(7)=1
	Board_Setting(8)=1:Board_Setting(9)=1
	Board_Setting(10)=0:Board_Setting(11)=0
	Board_Setting(12)=0:Board_Setting(13)=0
	Board_Setting(14)=0:Board_Setting(15)=0
	Board_Setting(23)=0
end if
if Cint(Board_Setting(5)) <> 1 then
	strContent = dvHTMLEncode(strContent)
else
	strContent = HTMLcode(strContent)
end if
'UbbCode
if Cint(Board_Setting(6))<>1 and PostUserGroup>2 then
	DvBCode=strContent
	exit function
end if
dim re
dim po,ii,iii
dim SplitBuyUser,iPostBuyUser
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
po=0
ii=0

re.Pattern="(&#106avascript)"
strContent=re.Replace(strContent,"[i]&#106avascript[/i]")
re.Pattern="(&#106script:)"
strContent=re.Replace(strContent,"[i]&#106script:[/i]")
re.Pattern="(&#106s:)"
strContent=re.Replace(strContent,"[i]&#106s:[/i]")
re.Pattern="(&#118alue)"
strContent=re.Replace(strContent,"[i]&#118alue[/i]")
re.Pattern="(about&#58)"
strContent=re.Replace(strContent,"[i]about&#58[/i]")
re.Pattern="(file&#58)"
strContent=re.Replace(strContent,"[i]file&#58[/i]")
re.Pattern="(documents&#46cookie)"
strContent=re.Replace(strContent,"[i]documents&#46cookie[/i]")
re.Pattern="(&#118bscript:)"
strContent=re.Replace(strContent,"[i]&#118bscript:[/i]")
re.Pattern="(&#118bs:)"
strContent=re.Replace(strContent,"[i]&#118bs:[/i]")
re.Pattern="(on(mouse|exit|error|click|key))"
strContent=re.Replace(strContent,"[i]&#111n		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				[/i]")

'Img Code
if Cint(Board_Setting(7)) = 1 or PostUserGroup<4 then
	re.Pattern="\[IMG\](http|https|ftp):\/\/(.[^\[]*)\[\/IMG\]"
	strContent=re.Replace(strContent,"<a onfocus=this.blur() href=""://		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" target=_blank><IMG SRC=""://		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" border=0 alt=按此在新窗口浏览图片 onload=""&#106avascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>")
	re.Pattern="\[UPLOAD=(gif|jpg|jpeg|bmp|png)\](.[^\[]*)(gif|jpg|jpeg|bmp|png)\[\/UPLOAD\]"
	strContent= re.Replace(strContent,"
<IMG SRC=""images/files/.gif"" border=0>此主题相关图片如下：
<A HREF=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" TARGET=_blank><IMG SRC=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" border=0 alt=按此在新窗口浏览图片 onload=""&#106avascript:if(this.width>screen.width-333)this.width=screen.width-333""></A>")
else
	re.Pattern="\[IMG\](http|https|ftp):\/\/(.[^\[]*)\[\/IMG\]"
	strContent=re.Replace(strContent,"<IMG SRC=""images/files/gif.gif"" border=0><a onfocus=this.blur() href=""://		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" target=_blank>://		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</a>")
	re.Pattern="\[UPLOAD=(gif|jpg|jpeg|bmp|png)\](.[^\[]*)(gif|jpg|jpeg|bmp|png)\[\/UPLOAD\]"
	strContent= re.Replace(strContent,"
<IMG SRC=""images/files/.gif"" border=0><A HREF=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" TARGET=_blank>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</A>")
end if

re.Pattern="\[UPLOAD=(.[^\[]*)\](.[^\[]*)\[\/UPLOAD\]"
strContent= re.Replace(strContent,"
<IMG SRC=""images/files/.gif"" border=0> <a href=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"">点击浏览该文件</a>")

'多媒体标签
if cint(Board_Setting(9))=1 or PostUserGroup<4 then
	re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]"
	strContent=re.Replace(strContent,"<object classid=clsid:166B1BCA-3F9C-11CF-8075-444553540000 codebase=http://download.macromedia.com/pub/shockwave/cabs/director/sw.cab#version=7,0,2,0 width= height=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				><param name=src &#118alue=$3><embed src=$3 pluginspage=http://www.macromedia.com/shockwave/download/ width= height=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				></embed></object>")
	re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]"
	strContent=re.Replace(strContent,"<embed src=$3 width= height=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				 autoplay=true loop=false controller=true playeveryframe=false cache=false scale=TOFIT bgcolor=#000000 kioskmode=false targetcache=false pluginspage=http://www.apple.com/quicktime/>")
	re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]"
	strContent=re.Replace(strContent,"<object align=middle classid=CLSID:22d6f312-b0f6-11d0-94ab-0080c74c7e95 class=OBJECT id=MediaPlayer width= height=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				 ><param name=ShowStatusBar &#118alue=-1><param name=Filename &#118alue=$3><embed type=application/x-oleobject codebase=http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701 flename=mp src=$3 width= height=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				></embed></object>")
	re.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/RM]"
	strContent=re.Replace(strContent,"<OBJECT classid=clsid:CFCDAA03-8BE4-11cf-B84B-0020AFBBCCFA class=OBJECT id=RAOCX width= height=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				><PARAM NAME=SRC &#118alue=$3><PARAM NAME=CONSOLE &#118alue=Clip1><PARAM NAME=CONTROLS &#118alue=imagewindow><PARAM NAME=AUTOSTART &#118alue=true></OBJECT>
<OBJECT classid=CLSID:CFCDAA03-8BE4-11CF-B84B-0020AFBBCCFA height=32 id=video2 width=><PARAM NAME=SRC &#118alue=$3><PARAM NAME=AUTOSTART &#118alue=-1><PARAM NAME=CONTROLS &#118alue=controlpanel><PARAM NAME=CONSOLE &#118alue=Clip1></OBJECT>")

	re.Pattern="(\[FLASH\])(.[^\[]*)(\[\/FLASH\])"
	strContent= re.Replace(strContent,"<a href=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" TARGET=_blank><IMG SRC=pic/swf.gif border=0 alt=点击开新窗口欣赏该FLASH动画! height=16 width=16>[全屏欣赏]</a>
<OBJECT 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 &#118alue=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				""><PARAM NAME=quality &#118alue=high><embed src=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=500 height=400>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</embed></OBJECT>")

	re.Pattern="(\[FLASH=*([0-9]*),*([0-9]*)\])(.[^\[]*)(\[\/FLASH\])"
	strContent= re.Replace(strContent,"<a href=""$4"" TARGET=_blank><IMG SRC=pic/swf.gif border=0 alt=点击开新窗口欣赏该FLASH动画! height=16 width=16>[全屏欣赏]</a>
<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				 height=$3><PARAM NAME=movie &#118alue=""$4""><PARAM NAME=quality &#118alue=high><embed src=""$4"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				 height=$3>$4</embed></OBJECT>")

	re.Pattern="(\[sound\])(.[^\[]*)(\[\/sound\])" 
	strContent=re.Replace(strContent,"<a href=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" target=_blank><IMG SRC=pic/mid.gif border=0 alt='背景音乐'></a><bgsound src=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" loop=""-1"">")
else
	re.Pattern="\[DIR=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/DIR]"
	strContent=re.Replace(strContent,"<a href=$3 target=_blank>$3</a>")
	re.Pattern="\[QT=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/QT]"
	strContent=re.Replace(strContent,"<a href=$3 target=_blank>$3</a>")
	re.Pattern="\[MP=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/MP]"
	strContent=re.Replace(strContent,"<a href=$3 target=_blank>$3</a>")
	re.Pattern="\[RM=*([0-9]*),*([0-9]*)\](.[^\[]*)\[\/RM]"
	strContent=re.Replace(strContent,"<a href=$3 target=_blank>$3</a>")
	re.Pattern="(\[FLASH\])(.[^\[]*)(\[\/FLASH\])"
	strContent= re.Replace(strContent,"<IMG SRC="&Forum_info(7)&"swf.gif border=0><a href=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				 target=_blank>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</a>")
	re.Pattern="(\[FLASH=*([0-9]*),*([0-9]*)\])(.[^\[]*)(\[\/FLASH\])"
	strContent= re.Replace(strContent,"<IMG SRC="&Forum_info(7)&"swf.gif border=0><a href=$4 target=_blank>$4</a>")
end if

'积分可见
if (Cint(Board_Setting(11))=1 or PostUserGroup<4) and PostType=1 then
	re.Pattern="(^.*)(\[point=*([0-9]*)\])(.[^\[]*)(\[\/point\])(.*)"
	po=re.Replace(strContent,"$3")
	if IsNumeric(po) then
		ii=int(po)
	else
		ii=0
	end if
	if membername=username or myuserep>ii then
		strContent=re.Replace(strContent,"<hr noshade size=1>以下为需要积分达到[b]$3[/b]才能浏览的内容
$4<hr noshade size=1>$6")
	else
		strContent=re.Replace(strContent,"<hr noshade size=1>[color=&Forum_body(8)&]此内容要求积分达到$3以上才可以浏览[/color]<hr noshade size=1>$6")
	end if
else
	re.Pattern="(\[point=*([0-9]*)\])(.[^\[]*)(\[\/point\])"
	strContent=re.Replace(strContent,"$3")
end if
'魅力可见
if (Cint(Board_Setting(12))=1 or PostUserGroup<4) and PostType=1 then
	re.Pattern="(^.*)(\[UserCP=*([0-9]*)\])(.[^\[]*)(\[\/UserCP\])(.*)"
	po=re.Replace(strContent,"$3")
	if IsNumeric(po) then
		ii=int(po)
	else
		ii=0
	end if
	if membername=username or myusercp>ii then
		strContent=re.Replace(strContent,"<hr noshade size=1>以下为需要魅力达到[b]$3[/b]才能浏览的内容
$4<hr noshade size=1>$6")
	else
		strContent=re.Replace(strContent,"<hr noshade size=1>[color=&Forum_body(8)&]此内容要求魅力达到$3以上才可以浏览[/color]<hr noshade size=1>$6")
	end if
else
	re.Pattern="(\[UserCP=*([0-9]*)\])(.[^\[]*)(\[\/UserCP\])"
	strContent=re.Replace(strContent,"$3")
end if
'威望可见
if (Cint(Board_Setting(13))=1 or PostUserGroup<4) and PostType=1 then
	re.Pattern="(^.*)(\[Power=*([0-9]*)\])(.[^\[]*)(\[\/Power\])(.*)"
	po=re.Replace(strContent,"$3")
	if IsNumeric(po) then
		ii=int(po) 
	else
		ii=0
	end if
	if membername=username or mypower>ii then
		strContent=re.Replace(strContent,"<hr noshade size=1>以下为需要威望达到[b]$3[/b]才能浏览的内容
$4<hr noshade size=1>$6")
	else
		strContent=re.Replace(strContent,"<hr noshade size=1>[color=&Forum_body(8)&]此内容要求威望达到$3以上才可以浏览[/color]<hr noshade size=1>$6")
	end if
else
	re.Pattern="(\[Power=*([0-9]*)\])(.[^\[]*)(\[\/Power\])"
	strContent=re.Replace(strContent,"$3")
end if
'文章可见
if (Cint(Board_Setting(14))=1 or PostUserGroup<4) and PostType=1 then
	re.Pattern="(^.*)(\[Post=*([0-9]*)\])(.[^\[]*)(\[\/Post\])(.*)"
	po=re.Replace(strContent,"$3")
	if IsNumeric(po) then
		ii=int(po) 
	else
		ii=0
	end if
	if membername=username or myArticle>ii then
		strContent=re.Replace(strContent,"<hr noshade size=1>以下为需要文章数达到[b]$3[/b]才能浏览的内容
$4<hr noshade size=1>$6")
	else
		strContent=re.Replace(strContent,"<hr noshade size=1>[color=&Forum_body(8)&]此内容要求文章数达到$3以上才可以浏览[/color]<hr noshade size=1>$6")
	end if
else
	re.Pattern="(\[Post=*([0-9]*)\])(.[^\[]*)(\[\/Post\])"
	strContent=re.Replace(strContent,"$3")
end if
'金钱可见
if (Cint(Board_Setting(10))=1 or PostUserGroup<4) and PostType=1 then
	re.Pattern="(^.*)(\[money=*([0-9]*)\])(.[^\[]*)(\[\/money\])(.*)"
	po=re.Replace(strContent,"$3")
	if IsNumeric(po) then
		ii=int(po) 
	else
		ii=0
	end if
	if membername=username or mymoney>ii then
		strContent=re.Replace(strContent,"<hr noshade size=1>以下为需要金钱数达到[b]$3[/b]才能浏览的内容
$4<hr noshade size=1>$6")
	else
		strContent=re.Replace(strContent,"<hr noshade size=1>[color=&Forum_body(8)&]此内容要求金钱数达到$3以上才可以浏览[/color]<hr noshade size=1>$6")
	end if
else
	re.Pattern="(\[money=*([0-9]*)\])(.[^\[]*)(\[\/money\])"
	strContent=re.Replace(strContent,"$3")
end if
'回复可见
if (Cint(Board_Setting(15))=1 or PostUserGroup<4) and PostType=1 then
if instr(lcase(strContent),"[replyview]")>0 and instr(lcase(strContent),"[/replyview]")>0 then
	dim vrs
	set vrs=conn.execute("select AnnounceID from "&TotalUseTable&" where rootid="&Announceid&" and PostUserID="&UserID)
	re.Pattern="(\[replyview\])(.[^\[]*)(\[\/replyview\])"
	if vrs.eof and vrs.bof then
	strContent=re.Replace(strContent,"<hr noshade size=1>[color=&Forum_body(8)&]此内容需要回复才能浏览[/color]<hr noshade size=1>")
	else
	strContent=re.Replace(strContent,"<hr noshade size=1>以下内容为需要回复才能浏览
		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				<hr noshade size=1>")
	end if
	set vrs=nothing
end if
else
	re.Pattern="(\[replyview\])(.[^\[]*)(\[\/replyview\])"
	strContent=re.Replace(strContent,"		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				")
end if
'购买帖子
if (Cint(Board_Setting(23))=1 or PostUserGroup<4) and PostType=1 then
re.Pattern="(^.*)(\[usemoney=*([0-9]*)\])(.[^\[]*)(\[\/usemoney\])(.*)"
po=re.Replace(strContent,"$3")
if IsNumeric(po) then
	ii=int(po) 
else
	ii=0
end if
if membername=username then
	if (not isnull(PostBuyUser)) and PostBuyUser<>"" then
		SplitBuyUser=split(PostBuyUser,"|")
		iPostBuyUser="<option &#118alue=0>已购买用户</option>"
		for iii=0 to ubound(SplitBuyUser)
			iPostBuyUser=iPostBuyUser & "<option &#118alue="&iii&">"&SplitBuyUser(iii)&"</option>"
		next
	else
		iPostBuyUser="<option &#118alue=0>还没有用户购买</option>"
	end if
	strContent=re.Replace(strContent,"<hr noshade size=1>以下为需要金钱数达到[b]$3[/b]才能浏览的内容&nbsp;&nbsp;<select size=1 name=buyuser>"&iPostBuyUser&"</select>
$4<hr noshade size=1>$6")
elseif mymoney>ii then
	if membername=username or master or boardmaster or superboardmaster then
	if (not isnull(PostBuyUser)) and PostBuyUser<>"" then
		SplitBuyUser=split(PostBuyUser,"|")
		iPostBuyUser="<select name=buyuser size=1><option &#118alue=0>已购买用户</option>"
		for iii=0 to ubound(SplitBuyUser)
			iPostBuyUser=iPostBuyUser & "<option &#118alue="&iii&">"&SplitBuyUser(iii)&"</option>"
		next
		iPostBuyUser=iPostBuyUser & "</select>"
	else
		iPostBuyUser="<select name=buyuser size=1><option &#118alue=0>还没有用户购买</option></select>"
	end if
	end if
	if (not isnull(PostBuyUser)) and PostBuyUser<>"" then
	if instr("|"&PostBuyUser&"|","|"&membername&"|")>0 then
	strContent=re.Replace(strContent,"<hr noshade size=1>以下为需要花[b]$3[/b]金钱才能购买并浏览的内容，您已经购买本贴
$4<hr noshade size=1>$6")
	else
	strContent=re.Replace(strContent,"<Form action=""BuyPost.asp"" mothod=post>[color=&Forum_body(8)&]此帖子内容需要您花$3金钱来购买浏览&nbsp;&nbsp;<input type=hidden name=boardid &#118alue="&boardid&"><input type=hidden &#118alue="&replyid&" name=replyid><input type=hidden &#118alue="&AnnounceID&" name=id><input type=hidden &#118alue="&totalusetable&" name=posttable><input type=submit name=submit &#118alue=好黑啊…我…我买了！>&nbsp;&nbsp;"&iPostBuyUser&"[/color]</form>$6")
	end if
	else
	strContent=re.Replace(strContent,"<Form action=""BuyPost.asp"" mothod=post>[color=&Forum_body(8)&]此帖子内容需要您花$3金钱来购买浏览&nbsp;&nbsp;<input type=hidden name=boardid &#118alue="&boardid&"><input type=hidden &#118alue="&replyid&" name=replyid><input type=hidden &#118alue="&AnnounceID&" name=id><input type=hidden &#118alue="&totalusetable&" name=posttable><input type=submit name=submit &#118alue=好黑啊…我…我买了！>&nbsp;&nbsp;"&iPostBuyUser&"[/color]</form>$6")
	end if
else
	strContent=re.Replace(strContent,"<hr noshade size=1>[color=&Forum_body(8)&]此内容要求金钱数达到$3以上才可以购买并浏览[/color]<hr noshade size=1>$6")
end if
else
	re.Pattern="(\[usemoney=*([0-9]*)\])(.[^\[]*)(\[\/usemoney\])"
	strContent=re.Replace(strContent,"$3")
end if

re.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"<A HREF=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" TARGET=_blank>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</A>")
re.Pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"<A HREF=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" TARGET=_blank>$3</A>")

re.Pattern="(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"<img align=absmiddle src=pic/email1.gif><A HREF=""mailto:		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"">		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</A>")
re.Pattern="(\[EMAIL=(\S+\@.[^\[]*)\])(.[^\[]*)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"<img align=absmiddle src=pic/email1.gif><A HREF=""mailto:		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" TARGET=_blank>$3</A>")

'自动识别网址
re.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=></a>")
re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+){logcontent}quot;
strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=></a>")
re.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</a>")

'自动识别www等开头的网址
re.Pattern = "([^(http://|http:\\)])((www|cn)[.](\w)+[.]{1,}(net|com|cn|org|cc)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)"
strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=http://		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</a>")

'自动识别Email地址，如打开本功能在浏览内容很多的帖子会引起服务器停顿
're.Pattern = "([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)"
'strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=""mailto:		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"">		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</a>")

'em code
if (Cint(Board_Setting(8)) = 1 or PostUserGroup<4) and instr(lcase(strContent),"[em")>0 then
	for ii=0 to Forum_emotNum
	if len(ii)=1 then po="0" & ii else po=ii
	strContent=replace(lcase(strContent),"[em"&po&"]","<img src="&Forum_info(10)&Forum_emot(ii)&" border=0 align=middle>")
	next
else
	re.Pattern="\[em(.[^\[]*)\]"
	strContent=re.Replace(strContent,"")
end if

re.Pattern="\[HTML\](.[^\[]*)\[\/HTML\]"
strContent=re.Replace(strContent,"<table width='100%' border='0' cellspacing='0' cellpadding='6' class='"&abgcolor&"'><td>[b]以下内容为程序代码:[/b]
</td></table>")
re.Pattern="\[code\](.[^\[]*)\[\/code\]"
strContent=re.Replace(strContent,"<table width='100%' border='0' cellspacing='0' cellpadding='6' class='"&abgcolor&"'><td>[b]以下内容为程序代码:[/b]
</td></table>")

're.Pattern="\[color=(.[^\[]*)\](.[^\[]*)\[\/color\]"
'strContent=re.Replace(strContent,"<font color=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</font>")
strContent=matchReplace(strContent, re, "color=(.[^\[]*)", "color", "<font color=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</font>")

're.Pattern="\[face=(.[^\[]*)\](.[^\[]*)\[\/face\]"
'strContent=re.Replace(strContent,"<font face=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</font>")
strContent=matchReplace(strContent, re, "face=(.[^\[]*)", "face", "<font face=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</font>")

're.Pattern="\[align=(center|left|right)\](.*)\[\/align\]"
'strContent=re.Replace(strContent,"<div align=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</div>")
strContent=matchReplace(strContent, re, "align=(center|left|right)", "align", "<div align=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</div>")

strContent=matchReplace(strContent, re, "QUOTE", "QUOTE", "<table style=""width:100%"" cellpadding=5 cellspacing=1 class=tableborder1><TR><TD class="&abgcolor&" width=""100%""></td></tr></table>
")

re.Pattern="\[fly\](.*)\[\/fly\]"
strContent=re.Replace(strContent,"<marquee width=90% behavior=alternate scrollamount=3></marquee>")
re.Pattern="\[move\](.*)\[\/move\]"
strContent=re.Replace(strContent,"<MARQUEE scrollamount=3></marquee>")	
re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]"
strContent=re.Replace(strContent,"<table width= ><tr><td style=""filter:shadow(color=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				, strength=$3)"">$4</td></tr></table>")
re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]"
strContent=re.Replace(strContent,"<table width= ><tr><td style=""filter:glow(color=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				, strength=$3)"">$4</td></tr></table>")

're.Pattern="\[i\](.[^\[]*)\[\/i\]"
'strContent=re.Replace(strContent,"[i][/i]")
strContent=matchReplace(strContent, re, "i", "i", "[i][/i]")

're.Pattern="\[u\](.[^\[]*)(\[\/u\])"
'strContent=re.Replace(strContent,"[u][/u]")
strContent=matchReplace(strContent, re, "u", "u", "[u][/u]")

're.Pattern="\[b\](.[^\[]*)(\[\/b\])"
'strContent=re.Replace(strContent,"[b][/b]")
strContent=matchReplace(strContent, re, "b", "b", "[b][/b]")

're.Pattern="\[size=([1-4])\](.[^\[]*)\[\/size\]"
'strContent=re.Replace(strContent,"<font size=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</font>")
strContent=matchReplace(strContent, re, "size=([1-9])", "size", "<font size=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</font>")

strContent=replace(strContent,"[i]</I>","")
set re=Nothing
DvBcode=strContent
end function

function DvSignCode(strContent,PostUserGroup)
if Forum_Setting(66)<>1 then
	strContent = dvHTMLEncode(strContent)
else
	strContent = HTMLcode(strContent)
end if
if Forum_Setting(65)<>1 and PostUserGroup>2 then
	DvSignCode=strContent
	exit function
end if
dim re,ii,po
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True

re.Pattern="(&#106avascript)"
strContent=re.Replace(strContent,"<I>&#106avascript[/i]")
re.Pattern="(&#106script:)"
strContent=re.Replace(strContent,"[i]&#106script:[/i]")
re.Pattern="(&#106s:)"
strContent=re.Replace(strContent,"[i]&#106s:[/i]")
re.Pattern="(&#118alue)"
strContent=re.Replace(strContent,"[i]&#118alue[/i]")
re.Pattern="(about&#58)"
strContent=re.Replace(strContent,"[i]about&#58[/i]")
re.Pattern="(file&#58)"
strContent=re.Replace(strContent,"[i]file&#58[/i]")
re.Pattern="(documents&#46cookie)"
strContent=re.Replace(strContent,"[i]documents&#46cookie[/i]")
re.Pattern="(&#118bscript:)"
strContent=re.Replace(strContent,"[i]&#118bscript:[/i]")
re.Pattern="(&#118bs:)"
strContent=re.Replace(strContent,"[i]&#118bs:[/i]")
re.Pattern="(on(mouse|exit|error|click|key))"
strContent=re.Replace(strContent,"[i]&#111n		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				[/i]")

if Cint(Forum_Setting(67))=1 or PostUserGroup<4 then
	re.Pattern="\[IMG\](http|https|ftp):\/\/(.[^\[]*)\[\/IMG\]"
	strContent=re.Replace(strContent,"<IMG SRC=""://		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" border=0 onload=""&#106avascript:if(this.width>screen.width-500)this.width=screen.width-500"">")
else
	re.Pattern="\[IMG\](http|https|ftp):\/\/(.[^\[]*)\[\/IMG\]"
	strContent=re.Replace(strContent,"<IMG SRC="""&Forum_info(7)&"gif.gif"" border=0><a onfocus=this.blur() href=""://		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" target=_blank>://		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</a>")
end if

if Cint(Forum_Setting(67))=1 or PostUserGroup<4 then
	re.Pattern="(\[FLASH\])(http://.[^\[]*(.swf))(\[\/FLASH\])"
	strContent= re.Replace(strContent,"<a href=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" TARGET=_blank><IMG SRC=pic/swf.gif border=0 alt=点击开新窗口欣赏该FLASH动画! height=16 width=16>[全屏欣赏]</a>
<OBJECT 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 &#118alue=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				""><PARAM NAME=quality &#118alue=high><embed src=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=500 height=400>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</embed></OBJECT>")

	re.Pattern="(\[FLASH=*([0-9]*),*([0-9]*)\])(http://.[^\[]*(.swf))(\[\/FLASH\])"
	strContent= re.Replace(strContent,"<a href=""$4"" TARGET=_blank><IMG SRC=pic/swf.gif border=0 alt=点击开新窗口欣赏该FLASH动画! height=16 width=16>[全屏欣赏]</a>
<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 width=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				 height=$3><PARAM NAME=movie &#118alue=""$4""><PARAM NAME=quality &#118alue=high><embed src=""$4"" quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				 height=$3>$4</embed></OBJECT>")
else
	re.Pattern="(\[FLASH\])(.[^\[]*)(\[\/FLASH\])"
	strContent= re.Replace(strContent,"<IMG SRC="&Forum_info(7)&"swf.gif border=0><a href=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				 target=_blank>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</a>")
	re.Pattern="(\[FLASH=*([0-9]*),*([0-9]*)\])(.[^\[]*)(\[\/FLASH\])"
	strContent= re.Replace(strContent,"<IMG SRC="&Forum_info(7)&"swf.gif border=0><a href=$4 target=_blank>$4</a>")
end if

re.Pattern="(\[URL\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"<A HREF=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" TARGET=_blank>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</A>")
re.Pattern="(\[URL=(.[^\[]*)\])(.[^\[]*)(\[\/URL\])"
strContent= re.Replace(strContent,"<A HREF=""		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" TARGET=_blank>$3</A>")

re.Pattern="(\[EMAIL\])(\S+\@.[^\[]*)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"<img align=absmiddle src=pic/email1.gif><A HREF=""mailto:		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"">		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</A>")
re.Pattern="(\[EMAIL=(\S+\@.[^\[]*)\])(.[^\[]*)(\[\/EMAIL\])"
strContent= re.Replace(strContent,"<img align=absmiddle src=pic/email1.gif><A HREF=""mailto:		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"" TARGET=_blank>$3</A>")

'自动识别网址
re.Pattern = "^((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=></a>")
re.Pattern = "((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+){logcontent}quot;
strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=></a>")
re.Pattern = "([^>=""])((http|https|ftp|rtsp|mms):(\/\/|\\\\)[A-Za-z0-9\./=\?%\-&_~`@[\]\':+!]+)"
strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</a>")

'自动识别www等开头的网址
re.Pattern = "([^(http://|http:\\)])((www|cn)[.](\w)+[.]{1,}(net|com|cn|org|cc)(((\/[\~]*|\\[\~]*)(\w)+)|[.](\w)+)*(((([?](\w)+){1}[=]*))*((\w)+){1}([\&](\w)+[\=](\w)+)*)*)"
strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=http://		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</a>")

'自动识别Email地址
're.Pattern = "([^(=)])((\w)+[@]{1}((\w)+[.]){1,3}(\w)+)"
'strContent = re.Replace(strContent,"<img align=absmiddle src=pic/url.gif border=0><a target=_blank href=""mailto:		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				"">		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</a>")

re.Pattern="\[em(.[^\[]*)\]"
strContent=re.Replace(strContent,"<img src="&Forum_info(7)&"em.gif border=0 align=middle>")

're.Pattern="\[color=(.[^\[]*)\](.[^\[]*)\[\/color\]"
'strContent=re.Replace(strContent,"<font color=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</font>")
strContent=matchReplace(strContent, re, "color=(.[^\[]*)", "color", "<font color=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</font>")

're.Pattern="\[face=(.[^\[]*)\](.[^\[]*)\[\/face\]"
'strContent=re.Replace(strContent,"<font face=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</font>")
strContent=matchReplace(strContent, re, "face=(.[^\[]*)", "face", "<font face=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</font>")

're.Pattern="\[align=(center|left|right)\](.*)\[\/align\]"
'strContent=re.Replace(strContent,"<div align=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</div>")
strContent=matchReplace(strContent, re, "align=(center|left|right)", "align", "<div align=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</div>")

re.Pattern="\[SHADOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/SHADOW]"
strContent=re.Replace(strContent,"<table width= ><tr><td style=""filter:shadow(color=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				, strength=$3)"">$4</td></tr></table>")
re.Pattern="\[GLOW=*([0-9]*),*(#*[a-z0-9]*),*([0-9]*)\](.[^\[]*)\[\/GLOW]"
strContent=re.Replace(strContent,"<table width= ><tr><td style=""filter:glow(color=		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				, strength=$3)"">$4</td></tr></table>")

're.Pattern="\[i\](.[^\[]*)\[\/i\]"
'strContent=re.Replace(strContent,"[i][/i]")
strContent=matchReplace(strContent, re, "i", "i", "[i][/i]")

're.Pattern="\[u\](.[^\[]*)(\[\/u\])"
'strContent=re.Replace(strContent,"[u][/u]")
strContent=matchReplace(strContent, re, "u", "u", "[u][/u]")

're.Pattern="\[b\](.[^\[]*)(\[\/b\])"
'strContent=re.Replace(strContent,"[b][/b]")
strContent=matchReplace(strContent, re, "b", "b", "[b][/b]")

're.Pattern="\[size=([1-9])\](.[^\[]*)\[\/size\]"
'strContent=re.Replace(strContent,"<font size=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</font>")
strContent=matchReplace(strContent, re, "size=([1-9])", "size", "<font size=>		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				</font>")

strContent=replace(strContent,"[i]</I>","")
set re=Nothing
DvSignCode=strContent
end function

function reUBBCode(strContent)
strContent = dvHTMLEncode(strContent)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
strContent=replace(strContent,"&nbsp;"," ")
re.Pattern="(\[QUOTE\])(.[^\[]*)(\[\/QUOTE\])"
strContent=re.Replace(strContent,"")
re.Pattern="(\[point=*([0-9]*)\])(.*)(\[\/point\])"
strContent=re.Replace(strContent,"&nbsp;")
re.Pattern="(\[post=*([0-9]*)\])(.*)(\[\/post\])"
strContent=re.Replace(strContent,"&nbsp;")
re.Pattern="(\[power=*([0-9]*)\])(.*)(\[\/power\])"
strContent=re.Replace(strContent,"&nbsp;")
re.Pattern="(\[usercp=*([0-9]*)\])(.*)(\[\/usercp\])"
strContent=re.Replace(strContent,"&nbsp;")
re.Pattern="(\[money=*([0-9]*)\])(.*)(\[\/money\])"
strContent=re.Replace(strContent,"&nbsp;")
re.Pattern="(\[replyview\])(.*)(\[\/replyview\])"
strContent=re.Replace(strContent,"&nbsp;")
re.Pattern="(\[usemoney=*([0-9]*)\])(.*)(\[\/usemoney\])"
strContent=re.Replace(strContent,"&nbsp;")
strContent=replace(strContent,"<I>[/i]","")

set re=Nothing
reUBBCode=strContent
end function

Function FilterJS(v)
if not isnull(v) then
dim t
dim re
dim reContent
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(&#)"
t=re.Replace(v,"[i]&#[/i]")
re.Pattern="(&#106avascript)"
t=re.Replace(t,"[i]&#106avascript[/i]")
re.Pattern="(&#106script:)"
t=re.Replace(t,"[i]&#106script:[/i]")
re.Pattern="(&#106s:)"
t=re.Replace(t,"[i]&#106s:[/i]")
re.Pattern="(&#118alue)"
t=re.Replace(t,"[i]&#118alue[/i]")
re.Pattern="(about&#58)"
t=re.Replace(t,"[i]about&#58[/i]")
re.Pattern="(file&#58)"
t=re.Replace(t,"[i]file&#58[/i]")
re.Pattern="(documents&#46cookie)"
t=re.Replace(t,"[i]documents&#46cookie[/i]")
re.Pattern="(&#118bscript:)"
t=re.Replace(t,"[i]&#118bscript:[/i]")
re.Pattern="(&#118bs:)"
t=re.Replace(t,"[i]&#118bs:[/i]")
re.Pattern="(on(mouse|exit|error|click|key))"
t=re.Replace(t,"[i]&#111n		

				
				
					
					
						
							
							-
							+
							P
							A
												
					
				
				
					
						 
							-
							{logtitle}
						
						
															
								 
								 
								 
							
							{Class}
							{publishtime}
						
						
							{logsummary}
							
								标签集:TAGS:{tags}
							
						
													
							
								我要留言To Comment 
								阅读全文Read All 
								|
							
							回复Comments({commentcount})
							点击Count({viewcount})			
						
					
				
				
				
				
				

				
				
				
				
					
						
							
						
						{phototitle}
						
							点击:Hits:{viewcount}
							回复:Comments:{commentcount}
							发表:PostTime:{posttime}
						
						{logsummary}
					
				
				
				
				
				

				
				
				
				
					 
						{logtitle}
					
					
														
							 
							 
							 
						
						{Class}
						{publishtime}
					
					
						{logcontent}
						
							标签集:TAGS:{tags}
						
					
												
						回复Comments({commentcount})
						点击Count({viewcount})			
					
				
				
				
				
				

				
				回复Comments
				
				

  
    
    
    {commentauthor}
    {commenttime}
    {commentnum}
  
  {commentcontent}
  作者:
{commentrecontent}
}   
	
				
				
				
				
							

				[/i]")
FilterJS=t
set re=nothing
end if
End Function

function dvHTMLEncode(fString)
if not isnull(fString) then
    fString = replace(fString, ">", "&gt;")
    fString = replace(fString, "<", "&lt;")
    fString = replace(fString, "&#", "[i]&#[/i]")

    fString = Replace(fString, CHR(32), "<I></I>&nbsp;")
    fString = Replace(fString, CHR(9), "&nbsp;")
    fString = Replace(fString, CHR(34), "&quot;")
    fString = Replace(fString, CHR(39), "&#39;")
    fString = Replace(fString, CHR(13), "")
    fString = Replace(fString, CHR(10) & CHR(10), "

 ")
    fString = Replace(fString, CHR(10), "
 ")

    fString=ChkBadWords(fString)
    dvHTMLEncode = fString
end if
end function
%>
标签集:TAGS:
回复Comments() 点击Count()

回复Comments

{commentauthor}
{commenttime}
{commentnum}
{commentcontent}
作者:

{commentrecontent}
}
动网6的ubb..(小狗改进版)

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})

{phototitle}

{logtitle}

回复Comments({commentcount}) 点击Count({viewcount})

回复Comments

作者:

我要留言To Comment 阅读全文Read All | 回复Comments({commentcount}) 点击Count({viewcount})
