经 常 在 一 些 站 点 看 到 有 这 样 的 东 东 ,一 个 方 框 , 里 面 的 内 容 ( 通 常 是 新 闻 标 题 )滚 动 播 出 , 周 而 复 始 。 其 实 在 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
%>