ASP实例:幻灯片新闻代码
作者 佚名技术
来源 ASP编程
浏览
发布时间 2012-03-12
<!--这是一个主页文件-->
<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%>"); |
|
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
上一篇:
ASP操作XML文件的主要方法和实现
下一篇:
更改windows XP 的IIS连接数
关于
ASP实例:幻灯片新闻代码
的所有评论