经 常 在 一 些 站 点 看 到 有 这 样 的 东 东 ，一 个 方 框 ， 里 面 的 内 容 （ 通 常 是 新 闻 标 题 ）滚 动 播 出 ， 周 而 复 始 。 其 实 在 IE 4 上 显 示 这 样 的 功 能 是 异 常 简 单 的 事 情 。 飞 鸟 就 做 了 一 个 ， 不 敢 独 享 （ 反 正 我 也 没 有 ASP 站 点 好 用 ， 我 做 INTRANET ， 扔 在 公 司 局 网 上 除 了 自 己 也 没 人 会 看 ） ， 将 源 码 共 享 给 大 家 。

　 　 主 要 函 数 只 有 一 个 ：

　 　 sub ShowNews

　 　 (TitleStr,TitleLink,DateStr,left,top,NewsStr)

　 　 参 数 说 明 ：

　 　 TitleStr 方 框 的 标 题

　 　 TitleLink 方 框 标 题 的 联 接 ， 可 以 为 空 串

　 　 DateStr 如 果 是 新 闻 ， 当 然 要 显 示 日 期 ， 也 可 是 其 他 的 提 示 信 息

　 　 left,top 方 框 的 绝 对 坐 标

　 　 NewStr 实 际 显 示 的 信 息 及 其 联 接 ， 是 个 两 维 数 组 。

<<<<< 调 用 范 例 >>>>>

<!-- #include file="news.inc" -->

<%

dim NewsStr(1,5)

NewsStr(0,0)="下载本公告栏"

NewsStr(1,0)="/img_article/2005510163747734.zip"

NewsStr(0,1)="网络学堂"

NewsStr(1,1)="http://www.soccerchina.com/school/"

NewsStr(0,2)="软件下载"

NewsStr(1,2)="http://www.soccerchina.com/school/"

NewsStr(0,3)="球迷贺卡"

NewsStr(1,3)="http://www.soccerchina.com/postcard"

NewsStr(0,4)="中文YAHOO"

NewsStr(1,4)="http://gbchinese.yahoo.com"

NewsStr(0,5)="足球世界"

NewsStr(1,5)="http://www.soccerchina.com"

ShowNews "网站一览","","98-12-15",10,100,NewsStr

%>