index.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" %>
<!--#include file="config.inc"-->
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<script runat="server">

    sub page_load(obj as object,e as eventargs)
    if not page.ispostback then
            pageconfig()
            fillCount()
            fillVote()
            fillCoolsites()
            fillFriendlink()
            filldiary()
            fillnews()
            fillarticle()
            filldown()
    end if
    end sub
    sub Pageconfig()
         online.text=application("online")
		 online_date.text=executesql("select onlinedate from online","admin.mdb")
		 online_most.text=executesql("select online from online","admin.mdb")
    end sub
    'fill count control
    sub fillCount()
         fillData("select * from allcount",countnumber,"admin.mdb")
    end sub
    'fill vote control
    
    sub fillVote()                  
     viewstate("voteID")=executeSql("select top 1 vt_id from votetopic order by vt_id desc","admin.mdb")
     voteTitle.text=executeSql("select vt_name from votetopic where vt_id=" & viewstate("voteID"),"admin.mdb")
    
    dim sql as string="select * from voteitem where vt_id=" & viewstate("voteID")
    dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data/admin.mdb"))
    dim objreader as oledbdatareader
    dim objcmd as new oledbcommand(sql,conn)
    try
        objcmd.connection.open()
        objreader=objcmd.executereader()
        vote.datasource=objreader
        vote.databind()
    catch ex as exception
        response.Write(ex.message)
    finally
        objcmd.connection.close()
    end try
    end sub
    
    
    'fill coolsites control
    sub fillCoolsites()
         fillData("select top " & indexcoolsite & " * from coolsites order by cs_id desc",coolsites,"sites.mdb")
    end sub
    'fill friendlink control
    sub fillFriendlink()
         fillData("select top " & indexfriendlink & " * from friendlink where passed=true and fl_logo<>"""" order by fl_id desc",friendlink,"sites.mdb")
    end sub
    'fill diary control
    sub filldiary()
         fillData("select top " & diaryperpage & " * from diary order by d_id desc",diary,"diary.mdb")
    end sub
    'fill news control
    sub fillnews()
         fillData("select top " & indexnews & " * from news order by news_id desc",news,"news.mdb")
    end sub
    'fill article control
    sub fillarticle()
         fillData("SELECT top " & indexarticle & " 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 INNER JOIN art ON a_cat.cat_id = art.cat_id WHERE (((a_cat.cat_id)=[art].[cat_id])) ORDER BY art.art_id DESC",article,"article.mdb")
    end sub
    'fill down control
    sub filldown()
         fillData("select top " & indexsoft & " d_cat.*, soft.* FROM d_cat INNER JOIN soft ON d_cat.cat_id = soft.soft_catid WHERE (((d_cat.cat_id)=[soft].[soft_catid])) order by soft.soft_id desc",down,"down.mdb")
    end sub
    
    
    
    
    'fill data subprogram
    function fillData(sql as string,control as Repeater,database as string) as oledbdatareader
    dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data/" & database))
    dim objreader as oledbdatareader
    dim objcmd as new oledbcommand(sql,conn)
    try
        objcmd.connection.open()
        objreader=objcmd.executereader()
        control.datasource=objreader
        control.databind()
    catch ex as exception
        response.Write(ex.message)
    finally
        objcmd.connection.close()
    end try
    end function
    
    function executeSql(sql as string,database as string) as string
    dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data/" & database))
    dim objcmd as new oledbcommand(sql,conn)
    try
        objcmd.connection.open()
        return objcmd.executescalar()
    catch ex as exception
        response.Write(ex.message)
    finally
        objcmd.connection.close()
    end try
    end function
	
    function executeSql2(sql as string,database as string)
    dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data/" & database))
    dim objcmd as new oledbcommand(sql,conn)
    try
        objcmd.connection.open()
        objcmd.executenonquery()
    catch ex as exception
        response.Write(ex.message)
    finally
        objcmd.connection.close()
    end try
    end function	    
    
    sub submitVote(obj as object,e as eventargs)
		 executesql2("update voteitem set item_count=item_count+1 where item_id=" & vote.selecteditem.value,"admin.mdb")
		 submit1.text="投票成功!"
		 submit1.Enabled="false"

    end sub

</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 valign="top" width="260"> 
	<form runat="server">
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="118">
        <tr> 
           <td class="newshead" height="25"><div align="center">Welcome to 4EC.CN</font></div></td>
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF" align="center" class="chinese" height="16">　</td>
        </tr>
        <tr> 
<asp:Repeater ID="countnumber" runat="server">
<itemtemplate>
          <td bgcolor="#FFFFFF" align="center" class="chinese" height="61">
          <font color="#666666">日记数目:<%# container.dataitem("diarycount")%>篇,新闻数目:<%# container.dataitem("newscount")%>篇<br>
            酷站数目:<%# container.dataitem("coolsitescount")%>个,链接数目:<%# container.dataitem("friendlinkcount")%>个<br>
            文章数目:<%# container.dataitem("articlecount")%>篇,文件数目:<%# container.dataitem("softcount")%>个</td>
</itemtemplate>
</asp:Repeater>

			
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF" align="center" class="chinese" height="16">
          <font color="#666666">当前在线:<asp:Label ID="online" runat="server"/>人</font></td>
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF" align="center" class="chinese" height="43">
          <font color="#666666">峰值在<asp:Label ID="online_date" runat="server"/><br>
            曾经有<asp:Label ID="online_most" runat="server"/>人在线</font></td>
        </tr>
        <tr> 
          <td bgcolor="#FFFFFF" align="center" class="chinese" height="9">
          　</td>
        </tr>
      </table>
      <br>
	  
	  
<!--主页左栏UI-->


<table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#EFEBEF" align="center">
<tr> 
          <td class="newshead" height=25">:: VoteOnline</td>
</tr>
  <tr> 
<td  bgcolor="#FFFFFF">　</td>
        </tr>
      </table>
 <table class="chinese" cellspacing="0" cellpadding="0" width="94%" align="center" bgcolor="#FFFFFF" border="0">
        <tr>
            <td style="VERTICAL-ALIGN: middle" align="middle">
              <asp:Label id="voteTitle" runat="server" ForeColor="#000000"></asp:Label>
          </td>
        </tr>
                  <tr>
<td style="VERTICAL-ALIGN: middle" align="middle" bgcolor="#FFFFFF">
<p align="left">
<asp:RadioButtonList id="vote" runat="server" ForeColor="#666666" RepeatColumns="1" RepeatDirection="Horizontal" CssClass="chinese" DataValueField="item_id" DataTextField="item_name">
</asp:RadioButtonList>
</p>
</td>
</tr>
<tr>
 <td align="middle" bgcolor="#FFFFFF" height="30">
 <asp:Button id="submit1" onclick="submitVote" runat="server"  ForeColor="#666666" CssClass="button" Text="投票"/>
 &nbsp;&nbsp; 
 <input name="Submit" type="button" class="button" onClick="MM_openBrWindow('showvote.aspx?vt_id=<%response.Write(viewstate("voteID"))%>','Vote','status=yes,scrollbars=yes,width=700,height=500')" value="结果" style="color: #666666">
 </td>
 </tr>
</table>

      <br>
<!-------------------以下是酷站UI---------------------->
	  
	  
      <table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#EFEBEF" align="center" height="58">
        <tr>
  <td class="newshead" height="25">:: 本站LOGO</td>
        </tr>
        <tr> 
          <td  bgcolor="#FFFFFF" height="47">
          <p align="center"><font color="#666666"><asp:Image ID="logo" ImageUrl="images/logo1.gif" runat="server" Height="31" Width="88" BorderWidth="0"/></font></td>
        </tr>
        <tr>
          <td align="right" height="17" valign="bottom" bgcolor="#FFFFFF">　</td>
        </tr>
        <tr> 
             <td class="newshead" height="25">:: New CoolSite</td>
        </tr>
      </table>
      <table width="94%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#EFEBEF">


<!--以下酷站循环-->
<asp:Repeater runat="server" ID="coolsites">
<itemtemplate>

<font color="#666666"> </font>
        <tr> 
          <td align="center" bgcolor="#FFFFFF"><a href="redirectcs.aspx?cs_id=<%#container.dataitem("cs_id")%>" target="_blank" title="[<%#container.dataitem("cs_name")%>]-<%#container.dataitem("cs_url")%>,已被点击<%#container.dataitem("cs_count")%>次">
          <font color="#666666"><br>
      <img height="31" width="88" src="<%# container.dataitem("cs_pic")%>" border="0"></a><font color="#666666">
          </font> 
    </td>