showart.aspx

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

<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<%@ 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/article.mdb"))

dim objcmd as new oledbdataAdapter

dim ds as new dataset("my")


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

end sub

sub filldata
    dim objcmd as new oledbcommand("SELECT a_cat.cat_id, a_cat.cat_name, art.art_id, art.cat_id, art.art_title, art.art_date, art.art_poster, art.art_from, art.art_count, art.art_content, art.art_keyword FROM a_cat,art where a_cat.cat_id=" & request("cat_id") &" and art.art_id=" & request("art_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 fillsort
    dim objcmd as new oledbcommand("select * from a_cat",conn)
	dim objreader as oledbdatareader
	
	try 
	   objcmd.connection.open()
	   objreader=objcmd.executereader()
	catch ex as exception
	   response.Write(ex.message)
	end try
	
	sort.datasource=objreader
	sort.databind()
	
	objreader.close
	objcmd.connection.close()
end sub

sub fillkeyword
    dim objcmd as new oledbcommand("select top 5 * from art where art_keyword like '%" & request("art_keyword") & "%' and art_id<>" & request("art_id") & " order by art_date DESC",conn)
	dim objreader as oledbdatareader
	
	try 
	   objcmd.connection.open()
	   objreader=objcmd.executereader()
	catch ex as exception
	   response.Write(ex.message)
	end try
	
	art_keyword.datasource=objreader
	art_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%">所属分类:[<a href="article.aspx?cat_id=<%# container.dataitem("a_cat.cat_id") %>&sort=<%# container.dataitem("cat_name") %>"><%# container.dataitem("cat_name") %></a>]更新日期:[<%# container.dataitem("art_date") %> ]浏览次数:[<%# container.dataitem("art_count") %>]&nbsp;作者:[<%# container.dataitem("art_poster") %>]&nbsp;来源:[<%# container.dataitem("art_from") %>]</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("art_title") %></b></div>
                <p style="margin-top:0; margin-bottom:0"> <font color="#808080"> 
            <br>
            <br>
            <%# container.dataitem("art_content") %> <br>
            <br>
</itemtemplate>
</asp:Repeater>
              --------------------------------------------------------------------------------<br>
              <b>相关文章:</b><br></font>
 <asp:Repeater ID="art_keyword" runat="server">
   <itemtemplate>
 <a href="showart.aspx?art_id=<%# container.dataitem("art_id") %>&cat_id=<%# container.dataitem("cat_id") %>&art_keyword=<%# container.dataitem("art_keyword") %>"><font color="#808080"><%# container.dataitem("art_title") %></font></a><font color="#808080"> &nbsp;&nbsp;&nbsp;&nbsp;<%# container.dataitem("art_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"> 
<asp:DataList ID="sort" runat="server" RepeatColumns="2" >
<itemtemplate>&nbsp;<a href="article.aspx?cat_id=<%# container.dataitem("cat_id") %>&sort=<%# container.dataitem("cat_name") %>"><%# container.dataitem("cat_name") %></a></itemtemplate>
</asp:DataList>

            </td>
        </tr>

      </table>
	  
      <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>
</form>
    </td>
  </tr>
  <tr> 
    <td colspan="3" background="images/dotlineh.gif" height="1"></td>
  </tr>
</table>





 
<gb:footer runat="server"/>