ASP教程之asp制作常见flash新闻图片轮换代码_ASP教程
教程Tag:暂无Tag,欢迎添加,赚取U币!
缂傚倸鍊搁崐鎼佸磹妞嬪海鐭嗗ù锝堫嚉濞差亝鏅濋柛灞炬皑閸旂數绱撴担鎻掍壕闂佺浜顤獵MS闂傚倷娴囧畷鐢稿窗閹扮増鍋¢柕澶堝剻濞戞ǚ鏀介悗锝冨妷閸嬫捇宕掗悙鏌ュ敹闂佸搫娲ㄩ崑鐐烘倵椤掆偓閳规垿鎮欓崣澶樻!闂佹悶鍔庨崰鏍ь嚕婵犳碍鏅搁柨鐕傛嫹濠电姷鏁搁崑鐐哄垂鐠轰警娼栭悷娆忓閻濆爼鏌涢埄鍐槈闁绘挻锕㈤弻鈥愁吋鎼粹€崇闂佹娊鏀辩敮锟犲蓟閵娾晜鍋嗛柛灞剧☉椤忥拷 缂傚倸鍊搁崐椋庣矆娓氣偓钘濋梺顒€绉寸粣妤呮煙闁箑澧鹃柤鏉挎健閺屾盯濡烽鐓庮潻缂備讲鍋撳鑸靛姈閻撳啴鏌曟径鍫濆闁绘繍浜弻锝呪攽閹炬潙顏� 闂傚倸鍊搁崐椋庢閿熺姴纾婚柛鏇ㄥ瀬閸ャ劍缍囬柍鍝勫暟椤︻垱绻濋姀锝嗙【闁哄牜鍓熷畷妤€饪伴崼鐔哄幐闂佹悶鍎崝宥夋儍閹达附鈷掑璺猴功鏁堥梺鍝勮閸婃牕岣胯箛娑樜╅柨鏃傜帛椤ユ稓绱撻崒娆戝妽闁哥偛顭烽獮蹇涙晸閿燂拷 闂傚倸鍊风粈渚€骞栭锕€鐤柣妤€鐗婇崣蹇涙煙缂併垹鏋涙俊鐐扮矙閺屸€愁吋鎼粹€茬敖闂佸憡顨嗙喊宥囨崲濞戙垹骞㈡俊顖濐嚙闂夊秴鈹戦鍡欑ɑ闁告梹顨婇崺鈧い鎺戝枤濞兼劙鏌熼鑲╁煟鐎规洘娲熼弻鍡楊吋閸涱垳鍘梻浣芥硶閸o箓骞忛敓锟�,闂傚倸鍊峰ù鍥儍椤愶箑绀嬫い鎰╁灩琚橀梻浣筋嚙濮橈箓锝炴径瀣濠电姴鍋嗛崵鏇㈡煕椤愶絾绀€缂佲偓閸愨斂浜滈柡鍌氱仢閹垶銇勮箛鏇炴瀾缂佺粯鐩獮瀣倷閺夋垹娈ら梻浣呵归鍡涘箲閸パ屾綎闁告繂瀚ч弸搴ㄦ煙椤栧棗瀚禍顏堟⒒娴e憡鍟為柣鐔村劤閹广垹螣娓氼垰娈ㄦ繝鐢靛У绾板秹寮查幖浣圭叆闁绘洖鍊圭€氾拷!
推荐:如何用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新闻图片轮换代码
。