常用Flash新闻图片交替展示的Code in ASP教程

发布时间：2023-10-12 13:23:14 所属栏目：Asp教程来源：

导读：这是一个正常的网页文件html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>新闻图片轮换</title></head><body></body></h

这是一个正常的网页文件

html>

<head>

<title>新闻图片轮换</title>

</head>

<body>

</body>

</html>

任何网页只要调用下面这个文件（diaoyong.asp）就可以了，所用flash文件在附件里面。

’新闻图片轮换

Db="../Data/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

else

response.write "暂时没有数据！"

end if

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!