当前位置:首页 > 站长笔记 > 正文
运行天数:3003 天 最后更新:2020-7-11

ASP幻灯片完美版(详细步骤)

用手机或者平板电脑扫描应用扫描本二维码,可以在手机浏览器继续浏览,也可以分享给你的联系人。

2012年09月01日 | 作者: 影子 | 分类: 站长笔记 | 点击量: 2,386

WDJA网站内容管理系统,免费开源可商用 点我获取,简单好用的PHP版CMS

ASP幻灯片完美版(详细步骤)

看到好多论坛里首页有那个幻灯片,但是不知道怎么实现,就在网上找了好久 ,总算找到了一个好的!这里有和大家分享下

比较自动化了—当然你可以自己对其中的值进行变动,甚至可以编写个asp来控制数据库,呵呵!

文件结构(同一目录下)

1.hdp.asp

2.diaoyong.asp

3.focus.swf

4.img文件夹(内有)

5.pic文件夹(内有数据库pic.mdb数据库内有表picc)

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

2.新建diaoyong.asp内容:

<%
‘幻灯片新闻
Db="pic/pic.mdb"
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 picc 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="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="never" allowNetworking="internal" autostart="0" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />’);  document.write(‘</object>’);
</script>
</span></a><span id=focustext class=f14b> </span>

其中:

var focus_width=200幻灯片宽度
var focus_height=160幻灯片高度
var text_height=18幻灯片下面文字说明的高度

3.新建文件夹命名为img,里面放入1.jpg,2.jpg,3.jpg,4.jpg,5.jpg

4.新建文件夹pic里面新建数据库pic.mdb里面新建表picc

字段为:

IswNumsID设置为自动编号

IswNumsUser图片的文字说明

IswNumsClass图片链接的目标地址(http://www.liuh.cn

IswNumsPhoto图片源地址(1.jpg,2.jpg,3.jpg,4.jpg,5.jpg)

IswNumsSex图片类别(把要显示的图片都写入“轮换广告”)

5.网上下载个focus.swf(http://www.webjx.com/files/soft/focus.rar)放到hdp.asp同一目录下。这个是幻灯片样式文件。



手机扫码浏览本文


关键词:

本文网址:https://www.menglei.net/253/,转载请以链接形式注明出处,谢谢合作!

*本站部分内容转载自其他媒体,版权归其所有。如若内容或图片侵犯您的权益,请与本站联系,我们将在24小时内处理完毕。

作者:清晨@深圳网站建设专家. | 清晨,领先的深圳网站优化品牌。

交流QQ号:925474725 邮件支持:shadoweb@qq.com