HTML2Text运用配合效果切换

 <%
public Function HTML2TEXT(ByVal strHTML)
  Dim objRegExp, Match, Matches
  Set objRegExp = New Regexp

  objRegExp.IgnoreCase = True
  objRegExp.Global = True
  '取闭合的<>
  objRegExp.Pattern = "<.+?>"
  '进行匹配
  Set Matches = objRegExp.Execute(strHTML)
 
  ' 遍历匹配集合，并替换掉匹配的项目
  For Each Match in Matches
    strHtml=Replace(strHTML,Match.Value,"")
  Next
 
  strHTML = Replace(strHTML,chr(34),"")
  strHTML = Replace(strHTML,chr(10),"")
  strHTML = Replace(strHTML,chr(13),"")
  strHTML = Replace(strHTML,vbcrlf,"") 
 
  HTML2TEXT=strHTML
  Set objRegExp = Nothing
End Function
dim pic
pic=pic+1%>
</script>
 <td  valign="top">
 <div id=demo style="overflow:hidden; width:335px; height:193px;"></div>
 <input type="hidden" id="xm<%=pic%>" value='<%=rs("Title")%>'>
 <input type="hidden" id="id<%=pic%>" value='<%=rs("ArticleID")%>'>
 <input type="hidden" id="pic<%=pic%>" value='<%=rs("defaultpicurl")%>'>
 <textarea id="div<%=pic%>" style="visibility:hidden"><%=HTML2TEXT(rs("Content")&"")%></textarea>
 <input type="hidden" id="picsum" value="<%=pic%>">

<script>
var speed=5000
var curPic=1,picSum=this.document.all("picsum").value-0;
function Marquee1(){
 if (curPic>picSum)
  curPic=1;
 if (curPic==1){
  clearInterval(MyMar)
  MyMar=setInterval(Marquee1,speed)
 }
 var tdElement=this.document.all("demo");
 var xmElement=this.document.all("xm"+curPic);
 var divElement=this.document.all("div"+curPic);
 var picElement=this.document.all("pic"+curPic);
 var idElement=this.document.all("id"+curPic);
 var text=divElement.value+"";
 var xm=xmElement.value+"";
 text=text.replace(xm.trim(),"");
 if (text.length>145)
  text=text.substring(0,145)+"......";
 var html="<table VALIGN=TOP align='left'><TR><TD><a target='_blank' href='01.asp?ID="+idElement.value
 +"' class='articleTitleList01' title="+xmElement.value+"><IMG src="+picElement.value+" border=0></a></TD><TD><a target='_blank' href='01.asp?ArticleID="+idElement.value
 +"' class='articleTitleList01' title="+xmElement.value+">"+text+"</a></TD></TR></TABLE>";
 tdElement.innerHTML=html
 curPic++; 
}
var MyMar=setInterval(Marquee1,100)
demo.οnmοuseοver=function() {clearInterval(MyMar)}
demo.οnmοuseοut=function() {MyMar=setInterval(Marquee1,speed)}
</script>