登录注册页面实验报告.doc

WEB开发实验报告实验题目：用WEB控件实现注册与登录页面实验类型: 验证性指导老师：潘凤 班 级: 计科系姓 名: 1、 实验题目用web控件实现注册与登录页面2、 实验目的和要求1. 利用所学知识进行页面开发，充分运用所能使用的服务器控件来实现需求。灵活掌握数据库的连接与访问。2. 要求页面友好，交互性强。3. 上机前预习实验，同学们相互间可以讨论；上机过程中要求独立完成；设计出具有各自风格的页面。3、 实验内容1、 用web控件实现简单的用户注册页面。 要运用文本框、单选框、复选框、下拉列表、多行文本框、按钮、图片、文件上传等控件实现注册页面，并实现简单验证。点击提交按钮后讲用户填写的信息提交到display页面显示出来。2、 用web控件实现简单的用户登录页面运用文本框、label、按钮等控件实现简单的用户登录页面，登录按钮旁加上新用户注册按钮，连接到用户注册页面。用户输入用户名（admin）和密码（admin）后进行验证，输入正确则提示用户欢迎登录，并显示欢迎图片；否则提示用户名或密码错误，显示相应错误提示图片。4、 实验步骤1、登录页面制作（1）效果图：（2）后台代码： Protected Sub Btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btn.Click Response.BufferOutput = True Response.Write(用?户名?或密码?错洙?误!) If Request.Form(UserName) = admin Then If Request.Form(Pass) = admin Then Response.Redirect(denglu2.aspx) Else Response.Flush() End If Else Response.Flush() End If End Sub Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click Response.Redirect(Default.aspx) End SubEnd Class2、注册页面制作（1）效果图：（2）后台代码： Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click txt.Text = 姓?名?：阰 & accName.Text & txt.Text = txt.Text & 年龄?：阰 & accAge.Text & If accPwd1.Text = accPwd2.Text Then txt.Text = txt.Text & accPwd1.Text & Else txt.Text = txt.Text & & 密码?错洙?误不?予?显?示? End If Dim sex As String sex = accSex.SelectedItem.Text Dim blood As String blood = accBlood.SelectedItem.Text Dim place As String place = accPlace.SelectedItem.Text Dim i As Integer Dim xingqu As String For i = 0 To accInt.Items.Count - 1 If accInt.Items(i).Selected Then xingqu = xingqu & & accInt.Items(i).Text End If Next Dim xingquaihao As String xingquaihao = TextBox3.Text Session(accName) = accName.Text Session(accAge) = accAge.Text Session(accPwd1) = accPwd1.Text Session(sex) = sex Session(blood) = blood Session(place) = place Session(xingqu) = xingqu Session(jianjie) = TextBox3.Text Response.Redirect(Default2.aspx) End SubEnd Class3、提交页面制作（1）效果图：（2）后台代码： Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Label1.Text = Session(accName) Label2.Text = Session(accAge) Label3.Text = Session(accPwd1) Label4.Text = Session(sex) Label5.Text = Session(blood) Label6.Text = Session(place) Label7.Text = Session(xingqu) Label7.T