欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

实现滚动新闻

程序员文章站 2022-07-05 23:15:49
经 常 在 一 些 站 点 看 到 有 这 样 的 东 东 ,一 个 方 框 , 里 面 的 内 容 ( 通 常 是 新 闻 标 题 )滚 动 播 出 , 周 而 复 始 。 其...
经 常 在 一 些 站 点 看 到 有 这 样 的 东 东 ,一 个 方 框 , 里 面 的
内 容 ( 通 常 是 新 闻 标 题 )滚 动 播 出 , 周 而 复 始 。 其 实 在
IE 4 上 显 示 这 样 的 功 能 是 异 常 简 单 的 事 情 。
    主 要 函 数 只 有 一 个 :
    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)="https://www.aaaaaaa.aaaaaa"

NewsStr(0,1)="xxx"
NewsStr(1,1)="https://www.xxx.com/"

NewsStr(0,2)="软件下载"
NewsStr(1,2)="https://www.xxx.com/"

NewsStr(0,3)="球迷贺卡"
NewsStr(1,3)="https://www.soccerchina.com/postcard"

NewsStr(0,4)="中文YAHOO"
NewsStr(1,4)="https://gbchinese.yahoo.com"

NewsStr(0,5)="足球世界"
NewsStr(1,5)="https://www.soccerchina.com"

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