用ASP構建你的網站新聞發布(三)

來源:互聯網
上載者:User
(三)把新聞代碼插入你的頁面
    最好的新聞發布,當然是為網站本身定做的,那樣才能與首頁風格一致,但如此一來,新聞發布系統有缺乏了通用性了,不能移值到別的網站上使用,有得必有失,在這個基礎上關鍵是找一個平行點。綜合來考濾,最好的做法是與頁面分離,那樣就可以不影響網頁的外觀,而也能達到很好的效果,在使用新聞的網頁上我們可以通過放置一條這樣的script語句來調用新聞代碼
    <script language="JavaScript"
  src="http//xxx.com.cn/special/linux/lnews/autoup.asp">
    大家可以到這裡看看效果
    現在請大家看看autoup.asp的代碼。
  <% @language="vbscript" %>
  <!--#include Virtual="/news/data/data.inc"-->
  <%
  Set rs = Server.CreateObject("ADODB.Recordset")
  sql="select * from data Order by news_id Desc"
  rs.open sql,conn,3,2
  if rs.bof then
  response.end
  end if
  
  
  dispmess="<table border=0 width=100% cellpadding=0>"
  
  rs.movefirst
  disp=""
  count=0
  
  disp="<tr><td width=100% ><b>廣州市場</b></td></tr>"
  
  do while not rs.eof
  
  '廣州市場
  
  if Cint(rs("news_class"))=3 then
  
  disp=disp&"<tr><td width=100% ><a href=http://www.aaaaa.com.cn/news/read.asp?news_id="&rs("news_id")&" target=_blank>>>"&rs("news_title")&"</a>(<font size=1>"&rs("news_year")&"-"&rs("news_month")&"-"&rs("news_day")&" "&rs("news_time")&"</font>)</td></tr>"
  if count>=10 then 'clng(application("disp_1"))-1 then
  exit do
  end if
  count=count+1
  
  
  end if
  rs.movenext
  
  loop
  disp=disp&"<tr><td width=100% align=right>【更多新聞...】      </td></tr>"
  dispmess=dispmess&disp
  
  
  
  
  rs.movefirst
  disp=""
  count=0
  
  disp="<tr><td width=100% ><b>市場風雲</b></td></tr>"
  
  do while not rs.eof
  
  '市場風雲
  
  if Cint(rs("news_class"))=1 then
  
  disp=disp&"<tr><td width=100% ><a href=http://www.aaaaa.com.cn/news/read.asp?news_id="&rs("news_id")&" target=_blank>>>"&rs("news_title")&"</a>(<font size=1>"&rs("news_year")&"-"&rs("news_month")&"-"&rs("news_day")&" "&rs("news_time")&"</font>)</td></tr>"
  if count>=10 then 'clng(application("disp_2"))-1 then
  exit do
  end if
  count=count+1
  
  
  end if
  rs.movenext
  
  loop
  disp=disp&"<tr><td width=100% align=right>【更多新聞...】      </td></tr>"
  dispmess=dispmess&disp
  
  
  
  rs.movefirst
  disp=""
  count=0
  disp="<tr><td width=100% ><b>IT新聞</b></td></tr>"
  
  do while not rs.eof
  'IT新聞
  if Cint(rs("news_class"))=2 then
  
  disp=disp&"<tr><td width=100% ><a href=http://www.aaaaa.com.cn/news/read.asp?news_id="&rs("news_id")&" target=_blank>>>"&rs("news_title")&"</a>(<font size=1>"&rs("news_year")&"-"&rs("news_month")&"-"&rs("news_day")&" "&rs("news_time")&"</font>)</td></tr>"
  if count>=50 then 'clng(application("disp_3"))-1 then
  exit do
  end if
  count=count+1
  
  
  
  end if
  rs.movenext
  loop
  disp=disp&"<tr><td width=100% align=right>【更多新聞...】      </td></tr>"
  dispmess=dispmess&disp
  
  
  
  dispmess=dispmess&"</table>"
  
  dispmess="document.write('"&dispmess&"')"
  
  
  %>
  <%=dispmess%>
  
    通過定製這段代碼,就能製作出符合您要求的網頁顯示格式。
    添加,刪除,顯示都講解完了,最後一項,



相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.