Asp编程
搜索
分类

ASP实例:幻灯片新闻代码

来源：webjx.com 时间：2008-11-21 17:40:00　

<!--这是一个主页文件-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>幻灯片新闻</title>
</head>
<body>
<!--#Include file="diaoyong.asp"-->
</body>
</html>

<!--
只要调用下面这个文件就可以了
这是一个文件名为：diaoyong.asp的文件
flash文件在符件里面
-->

<％
'幻灯片新闻
Db="../webjx_Data/webjx_Data.Asp"
Set conn = Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Conn.Open Connstr
sql="select top 5 * from [Music_List_Tupian_System] where IswNumsSex='轮换广告' order by IswNumsID desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
k=1
Num_total=rs.recordcount
for i=1 to 5
if i>Num_total then exit for
if i=1 then
imgUrl11="Img/"&rs("IswNumsPhoto")
 if len(rs("IswNumsUser"))>=18 then
 imgtext11= left(rs("IswNumsUser"),18)&"..."
 else
 imgtext11=rs("IswNumsUser")
 end if
imgLink11=rs("IswNumsClass")
end if
if i=2 then
imgUrl22="Img/"&rs("IswNumsPhoto")
 if len(rs("IswNumsUser"))>=18 then
 imgtext22= left(rs("IswNumsUser"),18)&"..."
 else
 imgtext22=rs("IswNumsUser")
 end if
imgLink22=rs("IswNumsClass")
end if
if i=3 then
imgUrl33="Img/"&rs("IswNumsPhoto")
 if len(rs("IswNumsUser"))>=18 then
 imgtext33= left(rs("IswNumsUser"),18)&"..."
 else
 imgtext33=rs("IswNumsUser")
 end if
imgLink33=rs("IswNumsClass")
end if
if i=4 then
imgUrl44="Img/"&rs("IswNumsPhoto")
 if len(rs("IswNumsUser"))>=18 then
 imgtext44= left(rs("IswNumsUser"),18)&"..."
 else
 imgtext44=rs("IswNumsUser")
 end if
imgLink44=rs("IswNumsClass")
end if
if i=5 then
imgUrl55="Img/"&rs("IswNumsPhoto")
 if len(rs("IswNumsUser"))>=18 then
 imgtext55= left(rs("IswNumsUser"),18)&"..."
 else
 imgtext55=rs("IswNumsUser")
 end if
imgLink55=rs("IswNumsClass")
end if
rs.movenext
k=k+1
next
else
response.write "暂时没有数据！"
end if
％>
<a target=_self href="javascript:goUrl()"> <span class="f14b">
<script type="text/javascript">
imgUrl1="<％=imgUrl11％>";
imgtext1="<％=imgtext11％>"
imgLink1=escape("<％=imgLink11％>");
imgUrl2="<％=imgUrl22％>";
imgtext2="<％=imgtext22％>"
imgLink2=escape("<％=imgLink22％>");
imgUrl3="<％=imgUrl33％>";
imgtext3="<％=imgtext33％>"
imgLink3=escape("<％=imgLink33％>");
imgUrl4="<％=imgUrl44％>";
imgtext4="<％=imgtext44％>"
imgLink4=escape("<％=imgLink44％>");
imgUrl5="<％=imgUrl55％>";
imgtext5="<％=imgtext55％>"
imgLink5=escape("<％=imgLink55％>");
var focus_width=200
 var focus_height=160
 var text_height=18
 var swf_height = focus_height+text_height
 <％if Num_total=1 then％>
 var pics=imgUrl1
 var links=imgLink1
 var texts=imgtext1
 <％elseif Num_total=2 then％>
 var pics=imgUrl1+"|"+imgUrl2
 var links=imgLink1+"|"+imgLink2
 var texts=imgtext1+"|"+imgtext2
 <％elseif Num_total=3 then％>
 var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3
 var links=imgLink1+"|"+imgLink2+"|"+imgLink3
 var texts=imgtext1+"|"+imgtext2+"|"+imgtext3
 <％elseif Num_total=4 then％>
 var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3+"|"+imgUrl4
 var links=imgLink1+"|"+imgLink2+"|"+imgLink3+"|"+imgLink4
 var texts=imgtext1+"|"+imgtext2+"|"+imgtext3+"|"+imgtext4
 <％elseif Num_total=5 then％>
 var pics=imgUrl1+"|"+imgUrl2+"|"+imgUrl3+"|"+imgUrl4+"|"+imgUrl5
 var links=imgLink1+"|"+imgLink2+"|"+imgLink3+"|"+imgLink4+"|"+imgLink5
 var texts=imgtext1+"|"+imgtext2+"|"+imgtext3+"|"+imgtext4+"|"+imgtext5
 <％end if％>
 
 document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
 document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="focus.swf"><param name="quality" value="high"><param name="bgcolor" value="#F0F0F0">');
 document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
 document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
 document.write('<embed src=http://www.chinaz.com/Program/Asp/"pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#F0F0F0" quality="high" width="'+ focus_width +'" height="'+ focus_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');  document.write('</object>');
 </script>
</span></a><span id=focustext class=f14b> </span>

标签：
0
投稿

猜你喜欢

  • OpenCV+python手势识别框架和实例讲解

    2021-09-06 19:47:43

  • Python使用Asyncio实现检查网站状态

    2023-01-23 18:56:39

  • Python面向对象封装操作案例详解

    2021-03-24 19:24:53

  • 解析PHP中VC6 X86和VC9 X86的区别及 Non Thread Safe的意思

    2023-11-06 13:11:37

  • win7安装python生成随机数代码分享

    2021-05-18 10:47:39

  • python爬虫实现爬取同一个网站的多页数据的实例讲解

    2021-04-11 13:52:09

  • 谈谈Python中的while循环语句

    2023-08-02 19:07:56

  • python中实现词云图的示例

    2021-08-04 22:11:33

  • asp如何分页显示数据库查询结果？

    2009-11-22 19:23:00

  • python实现外卖信息管理系统

    2021-07-16 07:00:26

  • Oracle的out参数实例详解

    2024-01-17 00:34:23

  • 细化解析：Mysql数据库对文件操作的封装

    2008-11-27 16:32:00

  • 由黄钻等级图标处理引发的思考

    2009-11-16 12:37:00

  • 基于JavaScript实现弹幕特效

    2024-04-22 22:30:23

  • 用什么视角做产品

    2009-08-18 12:17:00

  • golang中json和struct的使用说明

    2023-10-09 13:09:10

  • 前后端分离开发模式初体验

    2009-06-24 11:44:00

  • 数据挖掘之Apriori算法详解和Python实现代码分享

    2022-02-07 00:29:59

  • vuex实现简单的购物车功能

    2024-05-08 10:42:20

  • 详解model.train()和model.eval()两种模式的原理与用法

    2021-03-20 08:46:56
    • asp之家 网络编程 m.aspxhome.com