ASP教程之asp制作常见flash新闻图片轮换代码_ASP教程
教程Tag：暂无Tag,欢迎添加,赚取U币!
推荐：如何用asp程序处理数据库被挂马的问题数据库被挂马后很多人不知怎么处理，或处理的不完全，导致网页打开后仍有木马，本文介绍一种比较好的处理办法，供大家参考。 第一步 ：为现有数据库做好备份。 第二步 ：执行如下ASP文件，就可以去掉数据库当中的JS木马。（注：conn.asp从略） ’这里放入JS木
这是一个正常的网页文件| 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="../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 next else response.write "暂时没有数据！" end if %> |
分享：详解asp之FileSystemObject对象指定的驱动器存在吗？ 本例演示如何使用DriveExists方法来探测某个驱动器是否存在。 代码如下： html body % Setfs=Server.CreateObject(Scripting.FileSystemObject) iffs.driveexists(c:)=truethen Response.Write(驱动器c:存在。) Else Response.Wr
相关ASP教程：
- 相关链接：
- 教程说明：
ASP教程-ASP教程之asp制作常见flash新闻图片轮换代码
。