用WEB控件实现注册与登录页面.docx
《用WEB控件实现注册与登录页面.docx》由会员分享，可在线阅读，更多相关《用WEB控件实现注册与登录页面.docx（13页珍藏版）》请在冰豆网上搜索。
用WEB控件实现注册与登录页面
用WEB控件实现注册与登录页面
————————————————————————————————作者：
————————————————————————————————日期：
WEB系统开发
实验报告
实验一
实验题目：
用WEB控件实现注册与登录页面
实验类型:
验证性
指导老师：
潘凤
专业班级：
计算机科学与技术系1103班
姓名：
梁琪
学号：
（2011100307）
2014年03月19日
一、实验题目
用web控件实现注册与登录页面
二、实验目的和要求
1.利用所学知识进行页面开发，充分运用所能使用的服务器控件来实现需求。
灵活掌握数据库的连接与访问。
2.要求页面友好，交互性强。
3.上机前预习实验，同学们相互间可以讨论;上机过程中要求独立完成;设计出具有各自风格的页面。
三、实验内容
1、创建数据库，创建数据表users用来存储用户信息,包含用户名和密码等字段.
2、用web控件实现简单的用户注册页面。
要运用文本框、单选框、复选框、下拉列表、多行文本框、按钮、文件上传等控件实现注册页面,并实现简单验证。
点击提交按钮后讲用户填写的信息写入数据库的数据表，并以文本的形式显示出来。
3、用web控件实现简单的用户登录页面
运用文本框、label、按钮等控件实现简单的用户登录页面，登录按钮旁加上新用户注册按钮，连接到用户注册页面.用户输入用户名和密码后连接数据库进行验证，输入正确则提示用户欢迎登录，并显示欢迎图片；否则提示用户名或密码错误,显示相应错误提示图片。
四、实验代码
登录界面代码:
ImportsSystem。
Data。
SqlClient
ImportsSystem。
Data
PartialClass登录页面
InheritsSystem.Web。
UI。
Page
ProtectedSubBtnzhuce_Click（ByValsenderAsObject,ByValeAsSystem。
EventArgs）HandlesBtnzhuce.Click
Response。
Redirect（”regist.aspx”）
EndSub
ProtectedSubBtnLogin_Click（ByValsenderAsObject，ByValeAsSystem。
EventArgs）HandlesBtnLogin。
Click
DimUserLoginNameAsString=TextBoxname。
Text.Trim（）
DimUserPwdAsString=TextBoxpass.Text。
Trim（）
DimconnAsNewSqlConnection（）
DimcmdAsNewSqlCommand（）
conn。
ConnectionString="server=localhost；database=student；uid=sa；pwd=”
DimsqlcomtextAsString="select*fromuserswhereUname=’"＆TextBoxname.Text&"'andUpass=’”＆TextBoxpass.Text＆"’”
conn。
Open（）
DimSqlcomAsSqlCommand=NewSqlCommand（sqlcomtext，conn）
IfSqlcom.ExecuteScalar（）<〉NothingThen
Session.Add（”Uname"，”UserLoginName”）
conn.Close（）
Response.Redirect（”main.aspx"）
Else
Response.Write（"〈script>alert（’输入的用户名或密码错误’）
TextBoxname。
Text=””
TextBoxpass.Text=””
TextBoxname.Focus（）
EndIf
conn。
Close（）
EndSub
EndClass
2、登录成功后的页面代码：
PartialClassmain
InheritsSystem。
Web。
UI。
Page
ProtectedSubButton1_Click（ByValsenderAsObject，ByValeAsSystem.EventArgs）HandlesButton1。
Click
Response.Redirect（"login.aspx”）
EndSub
EndClass
3、注册界面代码:
ImportsSystem。
Data。
SqlClient
ImportsSystem.Data
PartialClass注册页面
InheritsSystem。
Web.UI.Page
ProtectedSubPage_Load（ByValsenderAsObject，ByValeAsSystem。
EventArgs）HandlesMe.Load
MsgPanel.Visible=False’隐藏Panel控件
DimconnAsNewSqlConnection’创建connection对象
DimcmdAsNewSqlCommand
DimadptAsNewSqlDataAdapter
DimdsAsNewDataSet
conn。
ConnectionString="server=localhost;database=student；uid=sa;pwd="’设置connection对象的链接串"
conn。
Open（）’打开连接
cmd。
CommandText="select*fromusers"'设置CMD对象的sql命令
cmd。
Connection=conn’设置CMD对象的连接属性
adpt。
SelectCommand=cmd'设置查询数据源的sql命令
adpt。
Fill（ds,”users"）
conn。
Close（）
EndSub
ProtectedSubBtnZhuce_Click（ByValsenderAsObject,ByValeAsSystem。
EventArgs）HandlesBtnZhuce。
Click
DimconnAsNewSqlConnection
conn.ConnectionString="server=localhost;database=student；uid=sa;pwd=”
DimcmdAsNewSqlCommand
DimadptAsNewSqlDataAdapter
adpt.SelectCommand=cmd
cmd.CommandText="select＊fromusers”
cmd。
Connection=conn
conn。
Open（）
adpt。
InsertCommand=NewSqlCommand
adpt.InsertCommand.CommandText=”insertintousersvalues（@Uname，@Upass,@Uage）”
adpt。
InsertCommand。
Connection=conn
adpt.InsertCommand。
Parameters。
Add（"＠Uname",SqlDbType。
VarChar,50,”Uname"）
adpt.InsertCommand.Parameters.Add（"＠Upass"，SqlDbType.VarChar,50，"Upass"）
adpt.InsertCommand。
Parameters.Add（"@Uage”,SqlDbType。
VarChar，50,”Uage"）
DimdsAsNewDataSet
adpt。
Fill（ds，”users”）
conn。
Close（）
DimusertabAsDataTable=ds。
Tables（”users”）
DimuserRowAsDataRow=usertab.NewRow
userRow（"Uname"）=Me.TextBoxname.Text
userRow（”Upass”）=Me.TextBoxpass。
Text
userRow（”Uage”）=Me.TextBoxage。
Text
usertab.Rows。
Add（userRow）
adpt。
Update（ds,”users"）
EndSub
ProtectedSubShowMsg（ByValsenderAsObject，ByValeAsSystem。
EventArgs）
DimiAsInteger
MsgName.Text=”用户名:
"&TextBoxname。
Text
MsgPass。
Text="密码:
"＆TextBoxpass.Text
MsgSex。
Text=”性别:
"&sex.Text
MsgAge。
Text="年龄:
”&TextBoxage.Text
MsgBlood。
Text="血型：
"＆blood。
Text
MsgIntrest.Text=”兴趣：
"
Fori=0ToCheckBoxList1。
Items.Count-1
IfCheckBoxList1。
Items（i）.SelectedThen
MsgIntrest.Text=MsgIntrest.Text&CheckBoxList1.Items（i）.Text
EndIf
Next
MsgMail。
Text="邮箱：
”＆TextBoxmail.Text
MsgPS。
Text=”备注：
"＆TextBoxps.Text
MsgPanel.Visible=True’显示Panel控件
EndSub
EndClass
五、实验结果
1、创建数据库中的users表如下：
2.运行登录页面，如下图:
3、输入用户名与密码，若正确，点击登录，则会转到下图:
若用户名和密码与数据库中的不对应，则会出现下图：
4、回到登录页面，点击注册，则会出现下图：
5、填入信息，如下图：
6、点击提交，得到下图：
若信息未填写完整，会出现如下情况:
1〉
2>
3>
7、注册成功后，数据库中的users表如下图：
六、实验总结
这次的实验，使我掌握了数据库的连接与访问，对服务器中的控件有了一点的熟悉及掌握了控件的一些应用，本次实验有一点的难度,实验过程中遇到了许多难题,如各个控件的触发事件，经过和同学一起讨论了以后，完成了本次实验。
升级会员 