实验七客户管理功能的实现.doc

实验七 客户管理功能的实现【实验目的与要求】 通过ASP.NET和SQL SERVER相结合实现会员注册、会员登陆和会员资料修改功能。【实验环境与方法】1 Windows XP操作系统2 装有Dreamweaver软件3 安装了IIS组件及.NET框架4 安装了SQL SERVER【实验内容与步骤】1 实现会员注册功能2 实现会员登陆功能3 实现会员资料修改功能【实验注意事项】1 注意各种网页制作方法之间的配合使用。2 实验报告中要包括原代码及程序运行的截图。【实验报告】登陆：Imports System.IOImports System.dataImports System.Data.SqlClientPublic Class denglu Inherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。 Private Sub InitializeComponent() End Sub Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Label2 As System.Web.UI.WebControls.Label Protected WithEvents Button1 As System.Web.UI.WebControls.Button Protected WithEvents Button2 As System.Web.UI.WebControls.Button Protected WithEvents Button3 As System.Web.UI.WebControls.Button Protected WithEvents username As System.Web.UI.WebControls.TextBox Protected WithEvents password As System.Web.UI.WebControls.TextBox Protected WithEvents message As System.Web.UI.WebControls.Label 注意: 以下占位符声明是 Web 窗体设计器所必需的。 不要删除或移动它。 Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init CODEGEN: 此方法调用是 Web 窗体设计器所必需的 不要使用代码编辑器修改它。 InitializeComponent() End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 在此处放置初始化页的用户代码 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Response.Redirect(zhuce.aspx) End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim conn = New SqlConnection(server=(local);uid=lib;password=123456;database=data) conn.Open() Dim str As String str = select * from users where Username= & username.Text & and Pwd= & password.Text & Dim cmd As New SqlCommand(str, conn) Dim dr As SqlDataReader dr = cmd.ExecuteReader If (dr.Read() Then Session(Username) = username.Text message.Text = Session(Username) & 您已成功登陆! Response.Redirect(spxs.aspx) Else message.Text = 您输入的用户名或密码有误! End If End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Response.Redirect(xiugai.aspx) End SubEnd Class会员注册：Imports System.IOImports System.DataImports System.Data.SqlClientPublic Class WebForm1 Inherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。 Private Sub InitializeComponent() End Sub Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Label2 As System.Web.UI.WebControls.Label Protected WithEvents Label3 As System.Web.UI.WebControls.Label Protected WithEvents Label4 As System.Web.UI.WebControls.Label Protected WithEvents Label5 As System.Web.UI.WebControls.Label Protected WithEvents Label6 As System.Web.UI.WebControls.Label Protected WithEvents Label7 As System.Web.UI.WebControls.Label Protected WithEvents Label8 As System.Web.UI.WebControls.Label Protected WithEvents Label9 As System.Web.UI.WebControls.Label Protected WithEvents Label10 As System.Web.UI.WebControls.Label Protected WithEvents Label11 As System.Web.UI.WebControls.Label Protected WithEvents username As System.Web.UI.WebControls.TextBox Protected WithEvents require As System.Web.UI.WebControls.RequiredFieldValidator Protected WithEvents password As System.Web.UI.WebControls.TextBox Protected WithEvents require1 As System.Web.UI.WebControls.RequiredFieldValidator Protected WithEvents password1 As System.Web.UI.WebControls.TextBox Protected WithEvents require2 As System.Web.UI.WebControls.CompareValidator Protected WithEvents username1 As System.Web.UI.WebControls.TextBox Protected WithEvents sex As System.Web.UI.WebControls.RadioButtonList Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox Protected WithEvents email As System.Web.UI.WebControls.TextBox Protected WithEvents Button1 As System.Web.UI.WebControls.Button Protected WithEvents Button2 As System.Web.UI.WebControls.Button Protected WithEvents Label12 As System.Web.UI.WebControls.Label 注意: 以下占位符声明是 Web 窗体设计器所必需的。 不要删除或移动它。 Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init CODEGEN: 此方法调用是 Web 窗体设计器所必需的 不要使用代码编辑器修改它。 InitializeComponent() End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 在此处放置初始化页的用户代码 End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim conn As New SqlConnection(server=(local);database=data;uid=lib; pwd=123456;) Dim str As String str = select * from users where Username= & Session(username) & Dim cmd As New SqlCommand(str, conn) conn.Open() Dim dr As SqlDataReader dr = cmd.ExecuteReader() If (dr.Read() Then username.Text = 已经存在此用户名！ conn.Close() Else conn.Close() Dim strSql As String strSql = Insert into users (Username,Pwd,Truename,Sex,Addr,Zip,Phone,email) Values( & username.Text & , & password.Text & , & username1.Text & , & sex.SelectedValue & , & TextBox1.Text & , & TextBox2.Text & , & TextBox3.Text & , & email.Text & ) Dim cmd1 As New SqlCommand(strSql, conn) conn.Open() cmd1.ExecuteNonQuery() conn.Close() Response.Redirect(chenggong.aspx) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click username.Text = password.Text = username1.Text = TextBox1.Text = TextBox2.Text = TextBox3.Text = email.Text = End SubEnd Class修改：Imports System.DataImports System.Data.SqlclientPublic Class xiugai Inherits System.Web.UI.Page#Region Web 窗体设计器生成的代码 该调用是 Web 窗体设计器所必需的。 Private Sub InitializeComponent() End Sub Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid Protected WithEvents MYDataGrid As System.Web.UI.WebControls.DataGrid 注意: 以下占位符声明是 Web 窗体设计器所必需的。 不要删除或移动它。 Private designerPlaceholderDeclaration As System.Object Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init CODEGEN: 此方法调用是 Web 窗体设计器所必需的 不要使用代码编辑器修改它。 InitializeComponent() End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If Not IsPostBack Then Call binddata() End If End Sub Sub binddata() Dim conn As New SqlConnection(Server=(local);Database=data;uid=lib;pwd=123456;) Dim strsql As String strsql = select * from users where Username= & Session(username) & Dim cmd As New SqlCommand(strsql, conn) conn.Open() Dim adp As New SqlDataAdapter(cmd) Dim ds As New DataSet adp.Fill(ds, users) MYDataGrid.DataSource = ds.Tables(users).DefaultView MYDataGrid.DataBind() End Sub Private Sub MYDataGrid_CancelCommand1(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles MYDataGrid.CancelCommand MYDataGrid.EditItemIndex = -1 Call binddata() End Sub Private Sub MYDataGrid_EditCommand1(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles MYDataGrid.EditCommand MYDataGrid.EditItemIndex = CInt(e.Item.ItemIndex) Call binddata() End Sub Private Sub MYDataGrid_UpdateCommand1(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles MYDataGrid.UpdateCommand Dim conn As New SqlConnection(Server=(local);Database=data;uid=lib;pwd=123456;) Dim txtUsername, txtPwd, txtTruename, txtAddr, txtSex, txtZip, txtPhone, txtemail As TextBox txtUsername = e.Item.Cells(1