ASP教程之asp制作常見flash新聞圖片輪換代碼_ASP教程
      
編輯Tag賺U幣
      


      教程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
      


      

      共2頁上一頁12下一頁
      


      來源：模板無憂//所屬分類：ASP教程/更新時間：2010-02-06


      


      



      


      



      相關ASP教程：