自定义的Title(VBS版本)

可以学习到各种虑镜的切换效果，外观还是不错的。
由于CSDN上的圪圪朋友说HTC版本，对系统压力大。改成了VBS版
嘘——这家伙打击偶，嘿嘿~~
复制过来，竟然没有了Tab，竟然都对齐了，郁闷阿，没有上传空间，没法子看，呵呵~

共有三个文件：
Title.css：
.TitleTable {filter:progid:DXImageTransform.Microsoft.DropShadow(color=#CECFCD,offX=3,offY=3);BORDER-RIGHT: #669900 1px solid; BORDER-TOP: #669900 1px solid; BORDER-LEFT: #669900 1px solid; BORDER-BOTTOM: #669900 1px solid; BACKGROUND-COLOR: #fff}
.TitleContent  {LINE-HEIGHT: normal; BACKGROUND-COLOR: #ffffff;FONT-SIZE: 11px; LINE-HEIGHT: 18px; FONT-FAMILY: verdana, 宋体, fantasy}

Title.Vbs：
'*********************************************************************
'说明：蒋玉龙编写于2006年4月
'Email:loving-kiss@163.com
'Tel:保密
'QQ:66840199 转载请保留信息
'版本：1.02
'//JS版本改编By小虫虫,QQ:38477904  蒋玉龙改编为VBS版本
'不使用Htc的原因是因为如果效果文本太多，会造成加载速度极慢
'=====================================================================
Dim TitleName,TopicNowrap,ContentNowrap
TitleName="食品集团有限公司" 'Title：默认题头
TopicNowrap="Nowrap" '默认标题栏不换行
ContentNowrap="" '默认内容换行
'=====================================================================
window.attachEvent "onlo