shownews.aspx

商务网站全部程序.很有借鉴意义

<%@ Page Language="VB" ContentType="text/html"%>
<%@ Register TagPrefix="gb" TagName="top" Src="lib/inctop.ascx" %>
<%@ Register TagPrefix="gb" TagName="footer" Src="lib/incfooter.ascx" %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<script runat="server">
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data/news.mdb"))

dim objcmd as new oledbdataAdapter

dim ds as new dataset("my")


sub page_load(obj as object, e as eventargs) 
    executestatement("update news set news_count=news_count+1 where news_id=" &request.QueryString("news_id")) 
	if not page.Ispostback then
       fillData()
	   fillkeyword()
	end if

end sub

sub filldata
    dim objcmd as new oledbcommand("SELECT * FROM news where news_id=" & request("news_id"),conn)
	dim objreader as oledbdatareader
	
	try 
	   objcmd.connection.open()
	   objreader=objcmd.executereader()
	catch ex as exception
	   response.Write(ex.message)
	end try
	
	data.datasource=objreader
	data.databind()
	
	objreader.close
	objcmd.connection.close()
end sub




sub fillkeyword
    dim objcmd as new oledbcommand("select top 5 * from news where news_keyword like '%" & request("news_keyword") & "%' and news_id<>" & request("news_id") & " order by news_date DESC",conn)
	dim objreader as oledbdatareader
	
	try 
	   objcmd.connection.open()
	   objreader=objcmd.executereader()
	catch ex as exception
	   response.Write(ex.message)
	end try
	
	news_keyword.datasource=objreader
	news_keyword.databind()
	
	objreader.close
	objcmd.connection.close()
end sub

function executestatement(strsql) 

    dim objcmd as new oledbcommand(strsql,conn)
	try
	   objcmd.connection.open()
	   objcmd.executenonquery
	catch ex as exception
	   response.Write(ex.message)
	end try	
    objcmd.connection.close()
	
end function
</script>

<gb:top runat="server"/>
<link href="site_css.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<table width="960" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 
    <td colspan="3" height="0">
	<p style="line-height: 100%"></td>
  </tr>
  <tr>
 <form runat="server" >
<asp:Repeater ID="data" runat="server">
<itemtemplate>
    <td width="760" valign="top">
      <div align="center">
        <center>
          <table width="98%" border="1" cellspacing="0" cellpadding="6" bgcolor="#CACACA" bordercolor="#808080" style="border-collapse: collapse">
            <tr>
              <td bgcolor="#EFEFEF" align="center" class="chinese">
                <p style="line-height: 200%">更新日期:[<%# container.dataitem("news_date") %> ]浏览次数:[<%# container.dataitem("news_count") %>]&nbsp;作者:[<%# container.dataitem("news_author") %>]&nbsp;来源:[<%# container.dataitem("news_ahome") %>]</td>
            </tr>
          </table>
        </center>
      </div>
      <p style="line-height: 200%"> <br>
      </p>
      <div align="center">
        <center>
          <table width="98%" border="1" cellspacing="0" cellpadding="6" bgcolor="#293863" bordercolor="#808080" style="border-collapse: collapse">
            <tr>
              <td bgcolor="#EFEFEF" class="chinese">
                <div align="center"><b><%# container.dataitem("news_title") %></b></div>
                <p style="margin-top:0; margin-bottom:0"> <font color="#808080"> 
            <br>
            <br>
            <%# container.dataitem("news_content") %> <br>
            <br>
</itemtemplate>
</asp:Repeater>
              --------------------------------------------------------------------------------<br>
              <b>相关文章:</b><br></font>
 <asp:Repeater ID="news_keyword" runat="server">
   <itemtemplate>
 <a href="shownews.aspx?news_id=<%# container.dataitem("news_id") %>&news_keyword=<%# container.dataitem("news_keyword") %>"><font color="#808080"><%# container.dataitem("news_title") %></font></a><font color="#808080"> &nbsp;&nbsp;&nbsp;&nbsp;<%# container.dataitem("news_date") %><br>
	</itemtemplate>
</asp:Repeater>
			</font> </td>
            </tr>
          </table>
        </center>
      </div>
      <p style="line-height: 200%"> <br>
        </td> 

    <td background="images/dotlinev.gif" width="1"></td>
    <td width="205" valign="top" align="center"> 
<table width="90%" border="1" cellspacing="0" cellpadding="8" bgcolor="#293863" class="chinese" bordercolor="#808080" style="border-collapse: collapse">
        <tr> 
          <td bgcolor="#EFEFEF" width="84%" align="center"> 
            <p style="LINE-HEIGHT: 150%">
			</p>
          </td>
        </tr>
      </table>
<table width="90%" border="1" cellspacing="0" cellpadding="0" bgcolor="#293863" bordercolor="#808080" style="border-collapse: collapse">

		<tr> 
          <td bgcolor="#EFEFEF" align="center" height="22" class="chinese">文章排序</td>
        </tr>
        <tr> 
            <td bgcolor="#EFEFEF" align="center"> 
			<a href="news.aspx?compos=1">最新的10篇文章</a><br>
			<a href="news.aspx?compos=2">按时间排序</a><br>
			<a href="news.aspx?compos=3">按点击排序</a><br>
            </td>
        </tr>

      </table>
</form>
      <br>
      <table border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="1" background="images/dotlineh.gif"></td>
        </tr>
      </table>
      <br>
      <br>
<table class="chinese" height="1" cellSpacing="0" cellPadding="5" width="85%" align="center" border="0">
  <tr>
    <td class="chinese" align="right" height="1">
    <p style="LINE-HEIGHT: 150%" align="center"><strong><font color="#666666">本 站 声 明</font></strong></td>
  </tr>
  <tr>
    <td align="right" height="1">
    <div align="left">
      <font color="#999999">本站的大部分资料，文章都来自网上收集，其版权归作者本人所有，如果有任何侵犯您权益的地方，请联系我们，我们将马上进行整理，谢谢。</font>
    </div>
    </td>
  </tr>
</table>

    </td>
  </tr>
  <tr> 
    <td colspan="3" background="images/dotlineh.gif" height="1"></td>
  </tr>
</table>





 
<gb:footer runat="server"/>