解析ASP實例:幻燈片新聞代碼_ASP教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:解讀處理多關鍵詞查詢實例代碼
      在web開發中經常遇到多關鍵詞對對單個字段查詢,我一般是通過動態數組來實現的。當然多個關鍵詞的一般是用空格或,隔開,我這幾假設多個關鍵詞用空格隔開,關鍵字字符串為keyStr,具體代碼為

      以下為引用的內容:

      <!--這是一個主頁文件-->
      <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="../mb5u_Data/mb5u_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%>");
      var focus_width=200
      var focus_height=160
      var text_height=18
      var swf_height = focus_height text_height
      <%if Num_total=1 then%>
      var pics=imgUrl1
      var links=imgLink1
      var texts=imgtext1
      <%elseif Num_total=2 then%>
      var pics=imgUrl1 "|" imgUrl2
      var links=imgLink1 "|" imgLink2
      var texts=imgtext1 "|" imgtext2
      <%elseif Num_total=3 then%>
      var pics=imgUrl1 "|" imgUrl2 "|" imgUrl3
      var links=imgLink1 "|" imgLink2 "|" imgLink3
      var texts=imgtext1 "|" imgtext2 "|" imgtext3
      <%elseif Num_total=4 then%>
      var pics=imgUrl1 "|" imgUrl2 "|" imgUrl3 "|" imgUrl4
      var links=imgLink1 "|" imgLink2 "|" imgLink3 "|" imgLink4
      var texts=imgtext1 "|" imgtext2 "|" imgtext3 "|" imgtext4
      <%elseif Num_total=5 then%>
      var pics=imgUrl1 "|" imgUrl2 "|" imgUrl3 "|" imgUrl4 "|" imgUrl5
      var links=imgLink1 "|" imgLink2 "|" imgLink3 "|" imgLink4 "|" imgLink5
      var texts=imgtext1 "|" imgtext2 "|" imgtext3 "|" imgtext4 "|" imgtext5
      <%end if%>

      document.write('<object classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="' focus_width '" height="' swf_height '">');
      document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="focus.swf"><param name="quality" value="high"><param name="bgcolor" value="#F0F0F0">');
      document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
      document.write('<param name="FlashVars" value="pics=' pics '&links=' links '&texts=' texts '&borderwidth=' focus_width '&borderheight=' focus_height '&textheight=' text_height '">');
      document.write('<embed src="pixviewer.swf" wmode="opaque" FlashVars="pics=' pics '&links=' links '&texts=' texts '&borderwidth=' focus_width '&borderheight=' focus_height '&textheight=' text_height '" menu="false" bgcolor="#F0F0F0" quality="high" width="' focus_width '" height="' focus_height '" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />'); document.write('</object>');
      </script>
      </span></a><span id=focustext class=f14b> </span>

      分享:asp動態頁面如何生成html頁面
      目前已經有很多生成html的新聞系統,但是都是用的模板,本函數實現把asp頁面產生的html代碼保存成為一個html文件,這樣就沒有必要改動原來的頁面就可以輕松 完成一個生成html的新聞系統

      來源:模板無憂//所屬分類:ASP教程/更新時間:2009-08-02
      相關ASP教程