📄 admin_admindatase.aspx

📁 用C#,VB和SQLSERVER编写的远程教学程序
💻 ASPX
字号:
<%@ Import Namespace="System.Globalization" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<%@ Import Namespace="System.Data" %>
<HTML>
	<script language="VB" runat="server">

    Dim MyConnection As SqlConnection

    Sub Page_Load(Sender As Object, E As EventArgs)
        MyConnection = New _
            SqlConnection("workstation id=SONGWEI;packet size=4096;user id=sa;password=sql;data source=SONGWEI;persist se" & _
        "curity info=False;initial catalog=vodweb")
         if pagemode2.checked then
      MyDataGrid.pagerstyle.mode=pagermode.numericpages
     else
     MyDataGrid.pagerstyle.mode=pagermode.nextprev
     MyDataGrid.pagerstyle.prevpagetext="上一页"
     MyDataGrid.pagerstyle.nextpagetext="下一页"
     end if
        If Not (IsPostBack)
            BindGrid("userid")
        End If
    End Sub    
   
    Sub BindGrid(SortField as string)
        Dim DS As DataSet
        Dim MyCommand As SqlDataAdapter     
        MyCommand = new SqlDataAdapter("select * from reg", MyConnection)
        DS = new DataSet()
        MyCommand.Fill(DS, "用户信息")
        dim source as  dataview=DS.Tables("用户信息").DefaultView
        MyDataGrid.DataSource=source
        source.sort=SortField
        MyDataGrid.DataBind()
    End Sub

    sub MyDataGrid_PageIndexChanged(sender as object ,e as datagridpagechangedeventargs)
    MyDataGrid.currentpageindex=e.newpageindex
    BindGrid("userid")
    end sub
    
    Sub MyDataGrid_Sort(Src As Object, E As DataGridSortCommandEventArgs)
    BindGrid(E.SortExpression)
    End Sub
    
    sub searchBtn_Click(sender as object ,e as eventargs)
    response.redirect("admin_search_database.aspx")
    end sub
    
    sub addBtn_Click(sender as object ,e as eventargs)
    response.redirect("admin_insert_database.aspx")
    end sub
    
    sub editBtn_Click(sender as object ,e as eventargs)
    response.redirect("admin_update_database.aspx")
    end sub
    
    sub delBtn_Click(sender as object ,e as eventargs)
    response.redirect("admin_delete_database.aspx")
	end sub
	</script>
	<body style="FONT: 10pt verdana">
		<form id="Form1" runat="server">
			<h3><font face="Verdana">管理员管理数据库</font></h3>
			<P><asp:button id="searchBtn" onclick="searchBtn_Click" runat="server" Width="64px" Text="查询"></asp:button><asp:button id="addBtn" onclick="addBtn_Click" runat="server" Width="64px" Text="添加"></asp:button><asp:button id="editBtn" onclick="editBtn_Click" runat="server" Width="64px" Text="编缉"></asp:button><asp:button id="delBtn" onclick="delBtn_Click" runat="server" Width="64px" Text="删除"></asp:button></P>
			<span id="Message" runat="server" EnableViewState="false"></span>
			<p><ASP:DATAGRID id="MyDataGrid" runat="server" DataKeyField="userid" HeaderStyle-BackColor="#aaaadd"
					Font-Size="8pt" Font-Name="Verdana" CellPadding="3" BorderColor="Black" BackColor="#CCCCFF"
					Width="800px" OnSortCommand="MyDataGrid_Sort" OnPageIndexChanged="MyDataGrid_PageIndexChanged"
					Font-Names="Verdana" AllowPaging="True">
					<HeaderStyle BackColor="#AAAADD"></HeaderStyle>
				</ASP:DATAGRID>
				<center>页码模式：
					<asp:radiobutton id="pagemode2" Text="上下页模式" GroupName="页码模式" Checked="True" AutoPostBack="True"
						Runat="server"></asp:radiobutton><asp:radiobutton id="pagemode1" Text="数字模式" GroupName="页码模式" Checked="True" AutoPostBack="True" Runat="server"></asp:radiobutton></center>
		</form>
	</body>
</HTML>
⌨️ 快捷键说明

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