用web控件实现注册与登录页面

《用web控件实现注册与登录页面》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、WEB系统开发实验报告实验一实验题目：用WEB控件实现注册与登录页面实验类型:验证性指导老师：潘凤专业班级:计算机科学与技术系1103班姓名:梁琪学号：(2011100307)2014年03月19日一、实验题目用web控件实现注册与登录页面二、实验目的和要求1.利用所学知识进行页面开发，充分运用所能使用的服务器控件来实现需求。灵活掌握数据库的连接与访问。2.要求页面友好，交互性强。3.上机前预习实验，同学们相互间可以讨论；上机过程中要求独立完成；设计出具有各自风格的页面。三、实验内容1、创建数据库

2、，创建数据表users用来存储用户信息，包含用户名和密码等字段。2、用web控件实现简单的用户注册页面。要运用文本框、单选框、复选框、下拉列表、多行文本框、按钮、文件上传等控件实现注册页面，并实现简单验证。点击提交按钮后讲用户填写的信息写入数据库的数据表，并以文本的形式显示出来。3、用web控件实现简单的用户登录页面运用文本框、label、按钮等控件实现简单的用户登录页面，登录按钮旁加上新用户注册按钮，连接到用户注册页面。用户输入用户名和密码后连接数据库进行验证，输入正确则提示用户欢迎登录，并显示

3、欢迎图片；否则提示用户名或密码错误，显示相应错误提示图片。四、实验代码登录界面代码：ImportsSystem.Data.SqlClientImportsSystem.DataPartialClass登录页面InheritsSystem.Web.UI.PageProtectedSubBtnzhuce_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesBtnzhuce.ClickResponse.Redirect("regist.as

4、px")EndSubProtectedSubBtnLogin_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesBtnLogin.ClickDimUserLoginNameAsString=TextBoxname.Text.Trim()DimUserPwdAsString=TextBoxpass.Text.Trim()DimconnAsNewSqlConnection()DimcmdAsNewSqlCommand()conn.Con

5、nectionString="server=localhost;database=student;uid=sa;pwd="DimsqlcomtextAsString="select*fromuserswhereUname='"&TextBoxname.Text&"'andUpass='"&TextBoxpass.Text&"'"conn.Open()DimSqlcomAsSqlCommand=NewSqlCommand(sqlcomtext,conn)IfSqlcom.ExecuteScalar(

6、)<>NothingThenSession.Add("Uname","UserLoginName")conn.Close()Response.Redirect("main.aspx")ElseResponse.Write("")TextBoxname.Text=""TextBoxpass.Text=""TextBoxname.Focus()EndIfconn.Close()EndSubEndClass2、登录成功后的页面代码

7、：PartialClassmainInheritsSystem.Web.UI.PageProtectedSubButton1_Click(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesButton1.ClickResponse.Redirect("login.aspx")EndSubEndClass3、注册界面代码：ImportsSystem.Data.SqlClientImportsSystem.DataPartialClass注册页面I

8、nheritsSystem.Web.UI.PageProtectedSubPage_Load(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMe.LoadMsgPanel.Visible=False'隐藏Panel控件DimconnAsNewSqlConnection'创建connection对象DimcmdAsNewSqlCommandDimadptAsNewSqlDataAdapterDimdsAsNewDataSetc