我的一亩三分地 我就喜欢!
13fen  设为主页
 收藏本站
 
当前位置: > 一亩三分地：首页 > 网络学院 > 网络编程 > ASP专区 > Asp基础/应用 > 两种字幕的效果（很有用）
热门文章排行
热门文章排行 手推车”功能的实现(10-07)
八大法则防范ASP网站漏洞(10-23)
在JSP中访问数据库大全(10-23)
ASP教程十一、调试ASP脚本(10-23)
虚机服务中常见Asp.Net低级错误一览(03-21)
精采文章排行
精采文章排行 ASP.NET实现抓取网页中的链接(11-15)
ASP连接数据库的11种方法(11-10)
如何动态创建网页的RSS内容摘要(11-10)
ASP网站漏洞及入侵防范方法(11-10)
ASP自定义函数：对字符串正则替换(11-10)
技术专题推荐
网管论坛交流
　

两种字幕的效果（很有用） 

作者:佚名   来源:本站教程   点击:   日期:2007-03-22
<script language="vbscript" src="infoshow.vbs"></script>
<script language="vbscript" src="friendshow.vbs"></script>
用来调用这两个.vbs文件，

<table width="100%" border="0" cellspacing="0" cellpadding="2"><tr>
<td height="25" align="center" valign="bottom" id="info">&nbsp;</td>
</tr></table>

<table width="100%" border="0" cellspacing="1" cellpadding="2" class=bdall><tr>
<td height="15" align="center" id="friend" ></td>
</tr></table>


+++++++ friendshow.vbs ++++++++++++++++++++++++++++++++++++
'显示友情连接
arf=0
dim inff(4)
inff(0)="<a href='http://www.chinausbiz.com' target='_blank'>纽约中美商务网</a> | " & _
"<a href='../ad/luck.asp' target='_blank'>保定乐凯光学电子有限公司</a> | " & _
"<a href='http://www.chinamet.com/' target='_blank'>中国机电贸易网</a> | " & _
"<a href='http://www.ccct.org.cn/' target='_blank'>中国纺织品进出口商会</a>"
inff(1)="<a href='http://www.icecf.com/' target='_blank'>中国出口商品交易会</a> | " & _
"<a href='http://www.chinaim-export.com/cn/' target='_blank'>中华进出口在线</a> | " & _
"<a href='http://www.cn.bizipoint.com/gb/index.php3' target='_blank'>中国电子商会</a> | " & _
"<a href='http://www.chinafiw.com/e_m/site/mysystem154.asp' target='_blank'>中国外资网</a> | " & _
"<a href='http://www.cctvcr.com.cn' target='_blank'>央视国际</a> | " & _
"<a href='http://www.mc-ccpit.com' target='_blank'>中国冶金贸易会 </a>"
inff(2)="<a href='http://www.base56.com.cn' target='_blank'>中国物流基地联盟网</a> | " & _
"<a href='http://www.clii.com' target='_blank'>中国轻工业联合会</a> | " & _
"<a href='http://www.china-retailers.com/xr/dahui/' target='_blank'>2003中国城市商业服务业对外开放与利用外资大会</a>"
inff(3)="<href='http://www.chinabidding.com/pub/other/consultcenter/index.jsp' target='_blank'>中国国际招标网采购咨询站点</a> | " & _
"<a href='http://www.bjtzhwjmw.gov.cn' target='_blank'>北京市通州区对外经济贸易委员会</a> | " & _
"<a href='http://www.soufun.com' target='_blank'>房地产门户-搜房网</a>"
inff(4)="<a href='http://www.agriffchina.com/' target='_blank'>中国食品土畜进出口商会</a> | " & _
"<a href='http://www.chinaip.net' target='_blank'>中国投资项目网</a> | " & _
"<a href='http://www.oil.hc360.com' target='_blank'>hc360慧聪网石油 </a>"

function friend_show()
friend.innerhtml=inff(arf)
arf=arf+1
if arf>ubound(inff) then arf=0
settimeout "friend_show()",5000
end function
friend_show

+++++++ infoshow.vbs +++++++++++++++++++++++++++++++++++++++++
'显示每日提示
op=0
flag=0
ar=0
dim inf(3)
inf(0)="<font color='#FF0000'>服务热线：020-67665548</font>"
inf(1)="<font color='#0099FF'>您的关注就是我们的动力。</font>"
inf(2)="<font color='#FF9900'>欢迎加入手机贸易网会员服务。</font>"
inf(3)=""
function info_show()
if op=0 then
info.innerhtml=inf(ar)
ar=ar+1
if ar>ubound(inf) then ar=0
end if
info.style.filter="alpha(opacity=" & op & ")"
if flag=0 then op=op+20
if op>=300 then flag=100
if flag=100 then op=op-20
if op<=0 then flag=0
settimeout "info_show()",200
end function
info_show




【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【论坛讨论】

   相关文章:
·ASP中巧用Response属性 ·第六课:ASP脚本循环语句
·在 Web 页上使用条件数值格式 ·连接数据库查询手册（不仅仅适用于asp）
·警惕"给你的FileSystemObject对象加把锁" ·用ASP做全文检索

   文章评论:(条)
  
 请留名： 匿名评论   点击查看所有评论 网管论坛
 

  责任编辑:一分  声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。