´ǸҳԴ룺 
<%@ Register TagPrefix="uc1" TagName="header" Src="header.ascx" %>
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="index.aspx.vb" Inherits="aspnet_cms.WebForm1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> 
<HTML>
<HEAD>    
    <title>WebForm1</title> 
    <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1"> 
    <meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1"> 
    <meta name="vs_defaultClientScript" content="JavaScript">
    <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
</HEAD>
    <body MS_POSITIONING="GridLayout"> 
        <form id="Form1" method="post" runat="server">
           <uc1:header id="Header1" runat="server"></uc1:header>
           <asp:HyperLink id="HyperLink1" style="Z-INDEX: 101; LEFT: 160px; POSITION: absolute; TOP: 144px"
              runat="server" NavigateUrl="admin/index.aspx">Administration panel</asp:HyperLink>
           <asp:DataGrid id="DataGrid1" style="Z-INDEX: 102; LEFT: 152px; POSITION: absolute; TOP: 208px"
              runat="server" DataSource="<%# DataSet11 %>" Width="360px">
             <HeaderStyle BackColor="#E0E0E0"></HeaderStyle>
          </asp:DataGrid>
     </form>
 </body>
</HTML>
´ǶӦҳĺ̨룬ʵҳϵز
Public Class WebForm1
    Inherits System.Web.UI.Page 

#Region "Web Form Designer Generated Code"

    'Web Form DesignerҪ. 
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()  
Me.OleDbDataAdapter1 = New System.Data.OleDb.OleDbDataAdapter 
Me.OleDbSelectCommand1 = New System.Data.OleDb.OleDbCommand 
Me.OleDbInsertCommand1 = New System.Data.OleDb.OleDbCommand 
Me.OleDbUpdateCommand1 = New System.Data.OleDb.OleDbCommand 
Me.OleDbDeleteCommand1 = New System.Data.OleDb.OleDbCommand 
Me.OleDbConnection1 = New System.Data.OleDb.OleDbConnection 
Me.DataSet11 = New aspnet_cms.DataSet1
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).BeginInit() 
' 
'OleDbDataAdapter1 
' 
Me.OleDbDataAdapter1.DeleteCommand = Me.OleDbDeleteCommand1 
Me.OleDbDataAdapter1.InsertCommand = Me.OleDbInsertCommand1 
Me.OleDbDataAdapter1.SelectCommand = Me.OleDbSelectCommand1 
Me.OleDbDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "rec", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ID", "ID"), New System.Data.Common.DataColumnMapping("name", "name"), New System.Data.Common.DataColumnMapping("ph", "ph")})}) 
Me.OleDbDataAdapter1.UpdateCommand = Me.OleDbUpdateCommand1 
' 
'OleDbSelectCommand1 
' 
Me.OleDbSelectCommand1.CommandText = "SELECT ID, name, ph FROM rec" 
Me.OleDbSelectCommand1.Connection = Me.OleDbConnection1 
' 
'OleDbInsertCommand1 
' 
Me.OleDbInsertCommand1.CommandText = "INSERT INTO rec(name, ph) VALUES (?, ?)" 
Me.OleDbInsertCommand1.Connection = Me.OleDbConnection1 
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("name", System.Data.OleDb.OleDbType.VarWChar, 50, "name")) 
Me.OleDbInsertCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ph", System.Data.OleDb.OleDbType.Integer, 0, "ph")) 
'
'OleDbUpdateCommand1 
'
Me.OleDbUpdateCommand1.CommandText = "UPDATE rec SET name = ?, ph = ? WHERE (ID = ?) AND (name = ? OR ? IS NULL AND nam" & _
"e IS NULL) AND (ph = ? OR ? IS NULL AND ph IS NULL)"
Me.OleDbUpdateCommand1.Connection = Me.OleDbConnection1 Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("name", System.Data.OleDb.OleDbType.VarWChar, 50, "name")) 
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("ph", System.Data.OleDb.OleDbType.Integer, 0, "ph")) 
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing)) 
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_name", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "name", System.Data.DataRowVersion.Original, Nothing)) 
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_name1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "name", System.Data.DataRowVersion.Original, Nothing)) 
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ph", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ph", System.Data.DataRowVersion.Original, Nothing)) 
Me.OleDbUpdateCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ph1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ph", System.Data.DataRowVersion.Original, Nothing)) 
' 
'OleDbDeleteCommand1 
' 
Me.OleDbDeleteCommand1.CommandText = "DELETE FROM rec WHERE (ID = ?) AND (name = ? OR ? IS NULL AND name IS NULL) AND (" & _ 
"ph = ? OR ? IS NULL AND ph IS NULL)" 
Me.OleDbDeleteCommand1.Connection = Me.OleDbConnection1 
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ID", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing)) 
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_name", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "name", System.Data.DataRowVersion.Original, Nothing)) 
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_name1", System.Data.OleDb.OleDbType.VarWChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "name", System.Data.DataRowVersion.Original, Nothing)) 
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ph", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ph", System.Data.DataRowVersion.Original, Nothing)) 
Me.OleDbDeleteCommand1.Parameters.Add(New System.Data.OleDb.OleDbParameter("Original_ph1", System.Data.OleDb.OleDbType.Integer, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ph", System.Data.DataRowVersion.Original, Nothing)) 
'
'OleDbConnection1
'
Me.OleDbConnection1.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _ 
"ocking Mode=1;Jet OLEDB:Database Password=;Data Source=""D:\new asp.net source code\asp-cms\aspnet-cms\aspne" & _
"t-cms\db.mdb"";Password=;Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk Transactio" & _
"ns=1;Provider=""Microsoft.Jet.OLEDB.4.0"";Jet OLEDB:System database=;Jet OLEDB:SFP" &_
"=False;Extended Properties=;Mode=Share Deny None;Jet OLEDB:New Database Password" & _ 
"=;Jet OLEDB:Create System Database=False;Jet OLEDB:Don't Copy Locale on Compact=" & _
"False;Jet OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Enc" & _
"rypt Database=False"
'
'DataSet11
'
Me.DataSet11.DataSetName = "DataSet1"
Me.DataSet11.Locale = New System.Globalization.CultureInfo("en-US")
CType(Me.DataSet11, System.ComponentModel.ISupportInitialize).EndInit() 

End Sub  
Protected WithEvents HyperLink1 As System.Web.UI.WebControls.HyperLink 
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Protected WithEvents OleDbDataAdapter1 As System.Data.OleDb.OleDbDataAdapter
Protected WithEvents OleDbSelectCommand1 As System.Data.OleDb.OleDbCommand 
Protected WithEvents OleDbInsertCommand1 As System.Data.OleDb.OleDbCommand 
Protected WithEvents OleDbUpdateCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbDeleteCommand1 As System.Data.OleDb.OleDbCommand
Protected WithEvents OleDbConnection1 As System.Data.OleDb.OleDbConnection 
Protected WithEvents DataSet11 As aspnet_cms.DataSet1 

'ע⣺µռλWeb Form DesignerҪ.
'Ҫɾƶ.
Private designerPlaceholderDeclaration As System.Object 

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init    
     'CODEGEN: ÷Web Form DesignerҪ
     'Ҫô༭޸.
    InitializeComponent() 
  End Sub 

#End Region 

     Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
         OleDbDataAdapter1.Fill(DataSet11)
         DataGrid1.DataBind() 

     End Sub 
End Class
