admin_coolsites.aspx

来自「这是一套整站系统的源代码程序」· ASPX 代码 · 共 151 行

ASPX
151 行
字号 
<%@ 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>

admin_coolsites.aspx - 源码说明

本页面展示了「这是一套整站系统的源代码程序」中的 admin_coolsites.aspx 源码文件，采用 ASPX 编程语言编写，共 151 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与网站系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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