📄 admin_coolsites.aspx

📁 商务网站全部程序.很有借鉴意义
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html" validateRequest=false%>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<%@ Register TagPrefix="admin" TagName="menu" Src="../lib/adminmenu.ascx" %>
<%@ Register TagPrefix="admin" TagName="foot" Src="../lib/adminfoot.ascx" %>
<script runat="server">
dim conn as new oledbconnection("provider=microsoft.jet.oledb.4.0; data source="+server.MapPath("../data/sites.mdb"))
dim objcmd as new oledbdataAdapter("SELECT coolsites.cs_id, coolsites.cscat_id,cscat.cscat_id,cscat.cscat_name, coolsites.cs_date, coolsites.cs_name, coolsites.cs_pic, coolsites.cs_url, coolsites.cs_desc, coolsites.cs_count, coolsites.isbest FROM coolsites,cscat where coolsites.cscat_id=cscat.cscat_id order by cs_id desc",conn)
dim ds as new dataset("my")
'页面载入时的动作(page load action)
sub page_load(obj as object, e as eventargs)   
    if not page.Ispostback then
	   filldatagrid()
	end if
end sub
'填充数据
sub getdata()
    objcmd.fill(ds, "coolsites")
	'define primary key
	dim keys() as datacolumn={ds.tables("coolsites").columns("cs_id")}
	ds.tables("coolsites").primarykey=keys'与主键关联
end sub


'编辑时的动作(edit action)
sub dgdata_edit(obj as object, e as datagridcommandeventargs)
    filldatagrid(e.item.itemindex)
end sub

'删除
sub dgdata_delete(obj as object, e as datagridcommandeventargs)
try
    executeSQl("delete from coolsites where cs_id=" & dgdata.datakeys(e.item.itemindex))
	response.Write("ID:[" & dgdata.datakeys(e.item.itemindex) & "]数据被删除！")
	filldatagrid()
catch ex as exception
    response.Redirect(request.ServerVariables("PATH_INFO"))
end try
end sub

function executeSQl(sql as string)
try
     dim objcmd as new oledbcommand(sql,conn)
     conn.open()
     objcmd.executenonquery
 catch ex as exception
     response.write(ex.message)
 finally
    conn.close()
 end try
end function


'填充数据
sub filldatagrid(optional editindex as integer=-1)
    getdata()
	
	if not editindex.equals(nothing) then
	   dgdata.edititemindex=editindex
	end if
      dgdata.datasource=ds
	  'dgdata.datamember="coolsites"
	  dgdata.databind()
end sub



'翻页程序
sub dgdata_pageindexChanged(obj as object,e as datagridpagechangedeventargs)
    dgdata.currentpageindex=e.newPageindex
	dgdata.databind()
	filldatagrid()
end sub

sub dgdata_select(obj as object, e as eventargs)
    dim vindex as integer
	dim vkey as string
	try
	vindex=dgdata.selectedindex
	vkey=dgdata.datakeys(vindex).tostring
	response.Redirect("admin_coolsites_edit.aspx?id=" & vkey)
    catch ex as exception
	response.Write(ex.message & "--" & vindex)
	end try
end sub



</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>酷站管理</title>
<link href="/site_css.css" rel="stylesheet" type="text/css">
</head>
<body background="../images/bg1.gif">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr align="center"> 
    <td height="8" colspan="3">
    </td>
  </tr>
  <tr> 
    <td width="150" align="left" valign="top"> <admin:menu runat="server"/> </td>
    <td width="1" background="../images/dotlinev.gif"></td>
    <td width="554" valign="top"> 
 <form runat="server">
      <table border="0" cellspacing="0" cellpadding="0">
	          <tr>
          <td>
            <a href="admin_coolsites.aspx">［酷站管理］</a>
		  　<a href="admin_coolsites_sort.aspx">[类别管理］</a>
		  　<a href="admin_coolsites_add.aspx">［增加酷站］</a> 
            <p></td>
        </tr>
        <tr> 
          <td width="175"> 
 <asp:datagrid ID="dgdata" runat="server" BorderStyle="Dotted" BorderColor="black" Font-Name="arial" Font-Size="8pt" CellPadding="4" CellSpacing="0" Width="100%" AutoGenerateColumns="false" OnDeleteCommand="dgdata_delete" ShowHeader="true" OnPageIndexChanged="dgdata_pageindexChanged" HeaderStyle-BackColor="#CCCCCC" AllowPaging="true" PageSize="10" PagerStyle-Mode="numericpages" PagerStyle-Font-Name="arial" PagerStyle-PageButtonCount="5" DataKeyField="cs_id"  OnSelectedIndexChanged="dgdata_select" > 
<columns>
	<asp:buttoncolumn text="EDIT" commandname="select"/>
    <asp:buttoncolumn HeaderText="DELETE" text="Delete" commandname="delete"/> 
	<asp:BoundColumn DataField="cs_id" HeaderText="SITE-ID"/>
	<asp:BoundColumn DataField="cscat_name" HeaderText="BELONGTO"/>
	<asp:BoundColumn DataField="cs_name" HeaderText="SITENAME"/>
	<asp:BoundColumn DataField="cs_url" HeaderText="SITELINK"/>
    <asp:BoundColumn DataField="cs_count" HeaderText="CLICKCOUNT"/>
	<asp:BoundColumn DataField="isbest" HeaderText="ISBEST"/>
<asp:templatecolumn HeaderText="IMAGES">
<itemtemplate>
<asp:Image runat="server" Height="31" Width="88" ImageUrl='<%# container.dataitem("cs_pic") %>'/>
</itemtemplate>
</asp:templatecolumn>
</columns>
</asp:datagrid> 
              <p></p>
          </td>
        </tr>

      </table>
 
 </form>
      <br>
    </td>
  </tr>
  <tr> 
    <td colspan="3" height="1" background="../images/dotlineh.gif"></td>
  </tr>
</table>
<admin:foot runat="server"/>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -