'SetCssName经常用于设置新闻列表颜色轮换
'特别说明，列表内容DIV块必须有命名，轮换样式ID命名格式:外层ID名_变量_setcss
Sub SetCssName(TagID,Css1,Css2)
	dim tContent
	tContent=Document.GetElementById(TagID).InnerHtml
	Dim re,GetI,GetIArray,tI
	Set re = New RegExp 
	re.IgnoreCase = True 
	re.Global = True 
	re.Pattern = "("&TagID&"\_(.[^\<]*)?()\_setcss)"
	Set GetIArray = re.Execute(tContent)
	tI=0
	For Each GetI in GetIArray
		If (tI Mod 2)=0 Then
			Document.GetElementById(GetI).className=Css1
		Else
			Document.GetElementById(GetI).className=Css2
		End If
		tI=tI+1
	Next
	Set re = Nothing 
End Sub