showcs.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 runat="server">
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("data/sites.mdb"))

sub page_load(obj as object,e as eventargs)
 if not page.ispostback then
 sitename.text=webname
 dgdata.pagesize=coolsitesperpage
 filldatagrid(request("cscat_id"))
'分类
	sort.datasource=filldata("select * from cscat")
	sort.databind()
	conn.close
'点击Top
    topclick.text=topcoolsite
	top.datasource=filldata("select top " & topcoolsite & " * from coolsites  order by cs_count desc,cs_id desc")

    top.databind()
	conn.close

'链接申请分类	
    flcat_id.datasource=filldata("select flcat_id,flcat_name from flcat")
    flcat_id.databind()
    conn.close()
end if
end sub

sub dgdata_pageindexChanged(obj as object,e as datagridpagechangedeventargs)
    dgdata.currentpageindex=e.newPageindex
	dgdata.databind()
	filldatagrid(request("cscat_id"))
end sub

function filldatagrid(cscat_id as integer)
    dim objcmd as new oledbdataAdapter
    dim ds as new dataset("my")
    dim sql as string
	sql=new string("SELECT * FROM coolsites")
    if cscat_id <> nothing then sql=new string("select * from coolsites where cscat_id=" & cscat_id )
try
    objcmd=new oledbdataAdapter(sql,conn)
 
    ds.clear()'

    objcmd.fill(ds, "coolsites")
    dgdata.datasource=ds
	dgdata.datamember="coolsites"
	dgdata.databind()
	coolsiteAll.text=dgdata.pagecount & "页.此页" & dgdata.items.count & "个"
catch ex as exception
   response.Write(ex.message)
end try
end function

sub flcatAdd(obj as object,e as eventargs)
	  dim objcmd as new oledbcommand("friendlinkAdd",conn)
	  dim info as string
      objcmd.commandtype=commandtype.StoredProcedure

	  dim objParam as oledbParameter
	  
	  objParam=objcmd.Parameters.add("@flcat_id",oledbtype.integer)
	  objParam.direction=parameterdirection.input
	  objParam.value=flcat_id.value
	  
	  objParam=objcmd.Parameters.add("@fl_name",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=fl_name.value
	  
	  objParam=objcmd.Parameters.add("@fl_logo",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=fl_logo.value 
	  
	  objParam=objcmd.Parameters.add("@fl_url",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=fl_url.value
	  
	  objParam=objcmd.Parameters.add("@fl_show",oledbtype.char)
	  objParam.direction=parameterdirection.input
	  objParam.value=fl_show.value
	  
	try
	   conn.open()
       objcmd.executenonquery
	   conn.close()
	   info="ok"
	catch ex as exception
	  info=ex.message
	finally
	   response.Redirect("savefl.aspx?info=" & info)
	end try   
end sub

function filldata(sql as string) as oledbdatareader
dim objcmd as new oledbcommand(sql,conn)
try
   objcmd.connection.open()
   return objcmd.executereader()
catch ex as exception
   response.Write(ex.message)
finally

end try
end function

function executeSQl(sql as string) as integer
		   dim intid as integer
		   dim objcmd as new oledbcommand(sql,conn)
		   objcmd.commandtype=commandtype.StoredProcedure

			try
			   conn.open()
			   intid=objcmd.executeScalar
               return intid
			catch ex as exception
			  return ex.message
			finally
			   conn.close()
			end try
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"></td>
  </tr>
  <tr>         
    <td align="center" valign="top" width="760"> 
<form runat="server">
      <table width="98%" border="1" cellspacing="0" cellpadding="10" style="border-bottom-style:">
        <tr> 
          <td bgcolor="#EFEFEF" align="center" class="chinese"><center><a href="showcs.aspx"><font color="#808080">当前共有 <span class="articlehead"><asp:label id="coolsiteAll" runat="server"/></span>酷站,点击这里查看所有</font></a></center>
        </tr>
      </table>


<asp:datagrid ID="dgdata" runat="server" BorderStyle="none" BorderWidth="0" Font-Name="arial" Font-Size="8pt" CellPadding="4" CellSpacing="0" Width="100%" AutoGenerateColumns="false" ShowHeader="false" ShowFooter="false" OnPageIndexChanged="dgdata_pageindexChanged" AllowPaging="true" PagerStyle-Mode="numericpages" PagerStyle-Font-Name="arial" PagerStyle-PageButtonCount="5" PagerStyle-HorizontalAlign="right"> 
 <columns>
 <asp:templatecolumn>
   <itemtemplate>
      <table width="98%" border="0" cellspacing="0" cellpadding="10" align="center">
        <tr> 
          <td width="37%" align="center"> 
            <table width="98%" border="0" cellspacing="1" cellpadding="3" bgcolor="#D2D2D2">
              <tr> 
                <td bgcolor="#FFFFFF" align="center"><img src='<%# container.dataitem("cs_pic") %>' alt='<%# container.dataitem("cs_desc") %>' width="88" height="31"></td>
              </tr>
            </table>
          </td>
          <td width="63%" class="chinese">网站名称：[<%# container.dataitem("cs_name") %>]<br>
            网站地址：<a href='redirectcs.aspx?cs_id=<%# container.dataitem("cs_id") %>' target="_blank"><%# container.dataitem("cs_url") %></a><br>
            加入时间：[<%# container.dataitem("cs_date") %>]<br>
            点击次数：[<%# container.dataitem("cs_count") %>]</td>
        </tr>
        <tr> 
          <td colspan="2" height="1" background="images/dotlineh.gif"></td>
        </tr>
      </table>
</itemtemplate>
</asp:templatecolumn> 
</columns>
</asp:DataGrid>
    </td>
    <td align="center" valign="top" width="1" background="images/dotlinev.gif"></td>
    <td align="center" valign="top" width="205"> 
      <table width="96%" border="1" cellspacing="0" cellpadding="10" bgcolor="#293863" bordercolor="#808080" style="border-collapse: collapse">
        <tr> 
          <td bgcolor="#EFEFEF" align="center" class="chinese">
          <font color="#808080">酷站分类</font></td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="1" cellpadding="0" bgcolor="#EFEBEF">
        <tr> 
          <td bgcolor="#FFFFFF" align="center"> 
            <table width="85%" border="0" cellspacing="0" cellpadding="4">

              <tr> 
                <td align="right" class="chinese">
<asp:DataList ID="sort" runat="server" RepeatLayout="Flow" RepeatDirection="Horizontal" DataKeyField="cscat_id" RepeatColumns="3">
<itemtemplate>
<asp:HyperLink runat="server" ID="sort1" NavigateUrl='<%# "showcs.aspx?cscat_id=" & container.dataitem("cscat_id")%>' Text='<%# container.dataitem("cscat_name") %>'/>
</itemtemplate>
</asp:DataList>
				
				</td>
              </tr>

            </table>
          </td>
        </tr>
      </table>
      <font color="#808080">
      <br>
      </font>
      <table width="96%" border="1" cellspacing="0" cellpadding="10" bgcolor="#293863" bordercolor="#808080" style="border-collapse: collapse">
        <tr> 
          <td bgcolor="#EFEFEF" align="center" class="chinese">
          <font color="#808080">酷站点击Top <asp:Label ID="topclick" runat="server"/> </font></td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="1" cellpadding="0" bgcolor="#EFEBEF">
        <tr> 
          <td bgcolor="#FFFFFF" align="center"> 
<asp:Repeater ID="top" runat="server">
<itemtemplate>
            <table width="100%" border="0" cellspacing="0" cellpadding="4">
             <tr> 
                <td align="center" class="chinese"><font color="#808080"><img src="<%# container.dataitem("cs_pic") %>" width="88" height="31" alt="<%# container.dataitem("cs_desc") %>"  ></font></td>
              </tr>
              <tr> 
                <td class="chinese"><font color="#808080">网站名称：<%# container.dataitem("cs_name") %><br>网站地址：<a href="redirectcs.aspx?cs_id=<%# container.dataitem("cs_id") %>" target="_blank"><%# container.dataitem("cs_url") %></a><br>加入时间：<%# container.dataitem("cs_date") %><br>点击次数：<%# container.dataitem("cs_count") %></font>
                </td>
              </tr>

</itemtemplate>
</asp:Repeater>
        </td>
        </tr>
      </table>
      <font color="#808080">
      <br>
      </font>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td background="images/dotlineh.gif" height="1"></td>
        </tr>
      </table>
      <font color="#808080">
      <br>
      </font>
      <table width="94%" border="0" cellspacing="1" cellpadding="3" bgcolor="#EFEBEF" class="chinese">

          <tr> 
            <td bgcolor="#FFFFFF"><font color="#808080"><span class="newshead">::</span> <span class=unnamed1> 链接申请</span></font></td>
          </tr>
                   <tr> 
            <td bgcolor="#FFFFFF"><font color="#808080">
            站点必须美观大方，有一定的内容，具有发展潜力。如果满足以上要求，本站对于日ip流量等并无特殊要求。<br>
              <br>
              如果没有图标可以不填，系统会为您自动添加本站图标。</font>
              <p>
			  <font color="#808080">
            <span lang="zh-cn">请您提交后加入我们</span><asp:Label ID="siteName" runat="server"/><span lang="zh-cn">的相应链接，谢谢！</span></font></td>
          </tr>
         <tr> 
            <td> <font color="#808080">选择类别
<select id="flcat_id" runat="server" runat="server" DataTextField="flcat_name" DataValueField="flcat_id"/> 
                

              <br>
              站点名称<input type="text" class="textarea" id="fl_name" size="15" maxlength="50" runat="server" >
              <br>
              站点地址<input type="text" class="textarea" id="fl_url" value="http://" size="15" maxlength="50" runat="server" >
              <br>
              图标地址<input type="text" class="textarea" id="fl_logo" value="images\flink\nothing.jpg" size="15" maxlength="50" runat="server" >
			 <br>
              链接说明<input type="text" class="textarea" id="fl_show" size="15" maxlength="50" runat="server" >
            </font>
            </td>
          </tr>
          <tr> 
            <td align="center"> 
              <font color="#808080"> 
              <input type="submit" name="Submit" value="提交" onserverclick="flcatadd" runat="server" class="button">
              <input type="reset" name="reset" value="清空" runat="server"  class="button"> </font>
            </td>
          </tr>
        </form>
      </table>
 <font color="#808080"> <br>
              <br>
            </font> </td>
        </tr>
        <tr>
          <td background="images/dotlineh.gif" width="544"></td>
          <td background="images/dotlineh.gif" width="1"></td>
          <td background="images/dotlineh.gif" width="205"></td>
        </tr>
      </table>
      <tr><gb:footer runat="server"/>