ASP实例:幻灯片新闻代码

当前位置：网学 > 编程文档 > ASP > 正文

ASP实例:幻灯片新闻代码

作者：用户投稿来源：网络发布时间： 12/11/25

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>幻灯片新闻</title>
</head>
<body>

</body>
</html>

<%
''幻灯片新闻
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="/uploadfile/201211/25/C422466836.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=/uploadfile/201211/25/2E22467683.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>
下面是flash文件的下载地址(我弄到别的网站上的,如果没被发现那大家就可以下载了,不过我想暂时还没有问题):点击这里下载：focus.rar

(责任编辑：admin)

点击进入论坛和大家一起交流设计,分享设计素材,结交设计朋友

上一篇资讯：国内ASP应用，不容乐观

下一篇资讯： ASP关于类的Let,Set和Get的用法的异同