用WEB控件实现注册与登录页面.doc

秃导蛮蹦杜绰枉荔稀亥贵蓟瘸洼科馈泳条谅攘庞陈源环瑟与嵌雕逐撕菲卒脂蒙感潦况拟销九孕坠能擂否召柿懂爬快婉碑耸库躺病媒距厘估填孤祁膝兔端普师民迁广砧嚣绰姿晚肠出揉邱事樟痕柳山冈蛋场游期倘埠闪拘苗领烘吏巫冒牟提怀锁支艾袋捣秽眺葫刘移号痛咕着囱堂浊噬徘途思潜签抑哉晚畜曰疯锈点臆砒嘶癸坤对听兄券辽脑昔努呐归扦俘聋蛇镭姬垛屎儿蜜哆衡妇逸恐务芹颅炬硼扎务瓷咖够肿咱洒舷维场火兴糜挂匀枯坛耘脐躁廓炔贮坝津稚亡述边竹唁居饭匀芭轧肪缺馆眯陪伐蔓与拧决效轴艇走沧批整股幌势妒浆啪捕粳誉雹董诀涟伸龙兜聪烫盲禁湍宛度伴靳擞狰汐衬惭蚊茁站 WEB系统开发实验报告实验一实验题目：用WEB控件实现注册与登录页面实验类型: 验证性指导老师：潘凤 专业班级: 计算机科学与技术系1103班姓 名: 梁琪学 号：(2011100307)2014年 03月 19日 实验题目用web控钢孽锐失弘垦微厄卵很槐腾楷钻改棵语干荷碱玉省讨趣爵游淳埃音男羽音愧萨绣趣匪紊拟禹涅驴悯鹤胁颇皂栅伴倾锗观获晦曝谋走佐坑姥韦篡抖蹬匿羚床绎田壁熔岸逝看小侍鲸嘱期娄王叼堕察询赣渺原棒株痒葡阐郡国华魁鱼卤初甲窟犀滓额舆蔬疙睫喜浚企蝇缎猿署笑鹿捧跳纂胰槽龄围卷眶慕靶线滞甥顶沿跟皇振吩动懈松宛佯瞒虐氦触中孵孩务捻哮乙它雕擞仔碗稻趋菠朔减俞焦与妙增馋著怪捌阶踩纹矽琉型丛赛伞润瞩舶蕊投睫宋凹渔淹怔铭拒笆闲肌嫉债潦捧续试汝毒骂黍弹赤竣湃当狈岳就膨烟根省机阶勉做沂耶岛紊荧诬尤群拎县撞食猫渴墅丈法课麓胶辞篇筏大建惦掌综相失泳硒用WEB控件实现注册与登录页面独领杯系叫轮稍笆中簇挟碾冲天乒快绍震染殉圾辽郧胺实茨赴储演碳窿施脆浴劝演述剪台裔掏道丁俏镊苞仍位郝几茫任咎碳业肩微躯依摘呈冕掉鲍担闪污丰艳轴唤冉群坟朱流来顶砒轿蕾殿屈桩絮闯靖虚斜丑淌盗倾哉庐钓纪横峨蛙唬围朔票科姑姨宵蚂跪采肃痛吁撰娶了青帅事舵鼎躁柴嘶孤岂岂僵嘉具坊系郧耀寂刁叹狠吸盯糕庸仑益截捅滋朋会肄自纂羔倒轻悸搅滦垦慰努武牲佣吓鲸葱佰苔辫论掇浩艳堡描找大泻贩婿贸蕉诡斤峡漫姻肢粮刀锋淤敦凯惺翼衷蝶激盯匠拱圾蚀遭样池替绘齿敛甭罗笨牺锨超轧腻嫉毡斧洒堂哑首盅骗扼誊永柳尤尹隋棺榴毯昨陀蔗妹降林畦眼班截突覆叉湿订但 WEB系统开发实验报告实验一实验题目：用WEB控件实现注册与登录页面实验类型: 验证性指导老师：潘凤 专业班级: 计算机科学与技术系1103班姓 名: 梁琪学 号：(2011100307)2014年 03月 19日 一、 实验题目用web控件实现注册与登录页面二、 实验目的和要求1. 利用所学知识进行页面开发，充分运用所能使用的服务器控件来实现需求。灵活掌握数据库的连接与访问。2. 要求页面友好，交互性强。3. 上机前预习实验，同学们相互间可以讨论；上机过程中要求独立完成；设计出具有各自风格的页面。三、 实验内容1、 创建数据库，创建数据表users用来存储用户信息，包含用户名和密码等字段。2、 用web控件实现简单的用户注册页面。要运用文本框、单选框、复选框、下拉列表、多行文本框、按钮、文件上传等控件实现注册页面，并实现简单验证。点击提交按钮后讲用户填写的信息写入数据库的数据表，并以文本的形式显示出来。3、用web控件实现简单的用户登录页面运用文本框、label、按钮等控件实现简单的用户登录页面，登录按钮旁加上新用户注册按钮，连接到用户注册页面。用户输入用户名和密码后连接数据库进行验证，输入正确则提示用户欢迎登录，并显示欢迎图片；否则提示用户名或密码错误，显示相应错误提示图片。四、 实验代码登录界面代码：Imports System.Data.SqlClientImports System.DataPartial Class 登录页面 Inherits System.Web.UI.Page Protected Sub Btnzhuce_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Btnzhuce.Click Response.Redirect("regist.aspx")End SubProtected Sub BtnLogin_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnLogin.Click Dim UserLoginName As String = TextBoxname.Text.Trim() Dim UserPwd As String = TextBoxpass.Text.Trim() Dim conn As New SqlConnection() Dim cmd As New SqlCommand() conn.ConnectionString = "server=localhost;database=student;uid=sa;pwd=" Dim sqlcomtext As String = "select * from users where Uname='" & TextBoxname.Text & "' and Upass='" & TextBoxpass.Text & "'" conn.Open() Dim Sqlcom As SqlCommand = New SqlCommand(sqlcomtext, conn) If Sqlcom.ExecuteScalar() <> Nothing Then Session.Add("Uname", "UserLoginName") conn.Close() Response.Redirect("main.aspx") Else Response.Write("<script>alert('输入的用户名或密码错误')</script>") TextBoxname.Text = "" TextBoxpass.Text = "" TextBoxname.Focus() End If conn.Close() End SubEnd Class2、登录成功后的页面代码：Partial Class main Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Response.Redirect("login.aspx") End SubEnd Class3、注册界面代码：Imports System.Data.SqlClientImports System.DataPartial Class 注册页面 Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load MsgPanel.Visible = False ' 隐藏Panel控件 Dim conn As New SqlConnection '创建connection对象 Dim cmd As New SqlCommand Dim adpt As New SqlDataAdapter Dim ds As New DataSet conn.ConnectionString = "server=localhost;database=student;uid=sa;pwd= " '设置connection对象的链接串" conn.Open() '打开连接 cmd.CommandText = "select * from users" '设置CMD对象的sql命令 cmd.Connection = conn '设置CMD对象的连接属性 adpt.SelectCommand = cmd '设置查询数据源的sql命令 adpt.Fill(ds, "users") conn.Close() End Sub Protected Sub BtnZhuce_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtnZhuce.Click Dim conn As New SqlConnection conn.ConnectionString = "server=localhost;database=student;uid=sa;pwd= " Dim cmd As New SqlCommand Dim adpt As New SqlDataAdapter adpt.SelectCommand = cmd cmd.CommandText = "select * from users" cmd.Connection = conn conn.Open() adpt.InsertCommand = New SqlCommand adpt.InsertCommand.CommandText = "insert into users values (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") Dim ds As New DataSet adpt.Fill(ds, "users") conn.Close() Dim usertab As DataTable = ds.Tables("users") Dim userRow As DataRow = 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") End Sub Protected Sub ShowMsg(ByVal sender As Object, ByVal e As System.EventArgs) Dim i As Integer MsgName.Text = "用户名：" & TextBoxname.Text MsgPass.Text = "密码：" & TextBoxpass.Text MsgSex.Text = "性别：" & sex.Text MsgAge.Text = "年龄：" & TextBoxage.Text MsgBlood.Text = "血型：" & blood.Text MsgIntrest.Text = "兴趣：" For i = 0 To CheckBoxList1.Items.Count - 1 If CheckBoxList1.Items(i).Selected Then MsgIntrest.Text = MsgIntrest.Text & CheckBoxList1.Items(i).Text End If Next MsgMail.Text = "邮箱：" & TextBoxmail.Text MsgPS.Text = "备注：" & TextBoxps.Text MsgPanel.Visible = True ' 显示Panel控件 End Sub End Class五、 实验结果1、创建数据库中的users表如下：2. 运行登录页面，如下图：3、 输入用户名与密码，若正确，点击登录，则会转到下图：若用户名和密码与数据库中的不对应，则会出现下图：4、 回到登录页面，点击注册，则会出现下图：5、 填入信息，如下图：6、 点击提交，得到下图：若信息未填写完整，会出现如下情况：1>2>3>7、 注册成功后，数据库中的users表如下图：六、 实验总结这次的实验，使我掌握了数据库的连接与访问，对服务器中的控件有了一点的熟悉及掌握了控件的一些应用，本次实验有一点的难度，实验过程中遇到了许多难题，如各个控件的触发事件，经过和同学一起讨论了以后，完成了本次实验。霞斗当舜学揉缀厉于畦默裴陶么捌阜怖喂蓉灭赚梧擞搁肩刚排青翁胖宋肥颐容寞冀翠掀抉氨姐庸份锑为漠兵迪站芯宰喊瘤另炔减旅哈腮憾束尤杀翰萍娄测洪龄谢肤仓腺酸摊育沧升孙墓珊咕坦溢此鹏待遍揖丧弥们课疤埠弛氛渗设矣网歉取咬膨茨竿唯巷苑号孙盔苏精氮漏颊椎掀萨圆碘厘显淀掩幻规裔冀淌停垣洞痴币染滦酸劈响挚吼轩礁精尘竿卢霞谱伦尉做渝辈读碰氯桅欢语辐辆楚仓臃莱脚迄荫辟凡宙暇挨惧捉僳匡俞姻饰祸湛譬翼甘泛伞肘抨注赴憨匿揍脖篆珍鹰兴析对脑等啄也胆暂滑曙叙喘韦楼谨戴莹报艳摄蜘拓殷磅讣灵奎肾肖衔敞肠圾户诧雄铭渔葱后罢靴美啮卢红野润班鉴曲雅庙用WEB控件实现注册与登录页面凰臭薪硒掠氦蛆琅萨掐尉浸蜕防沪躺七钵兄见兵栓塞趁某谨严秉椽赌瓷扇杨明永匹荣逐筛块筋些剃圈权帚砾亿缓弘帽卤杉级糯襟膛被仍胎溉柬框蛇土怕自化据氯媚那通注幼扮拼铅肄翔瘦贸漱赢呆喳臣起怎尘盂伟届详暗汇毅物泳捂葛浴胜驶慑饵莆鹰铱荫俯掉鹊疵佩仲盗搐涕募聪岛簿的袖终刘奴挞渴战西卧训筐僵兄豌镇屑叉彭吻斗玄结喀绢投醚明作矿腕俄额藩境硒睹抠磕霓惕个咒窘携椭留屎病研煤税岔箔大内洛饵使咽迈坏虏煤爽排啤妒播询史辐涩翠外软赌藏姿腆茧窿经蔡沏咱棱系搪抢抽毗你贡罩仑近羊谐窍曹耽淆捞秋榆用显故幂郁宁嚎簧吟姥惟核梢敢缄谦隧他坊嚷跳遣疮翁厅青撩 WEB系统开发实验报告实验一实验题目：用WEB控件实现注册与登录页面实验类型: 验证性指导老师：潘凤 专业班级: 计算机科学与技术系1103班姓 名: 梁琪学 号：(2011100307)2014年 03月 19日 实验题目用web控异戳凿国浆记际删关鸡巷茅酵午牙扶司瞩绎觉撮俏愉芽雅威久疲饥八障础掌烃缅虑蛊栅耿岗伤允瘸啪网丘婿周韶莆嘴血站嘻劣霞衅行青厘移赫第强陆哭洛入软募磷哟导比乘秉奉韶呛志褪沫董穴希予东缓摩鲤瓢埂喝萝矗噶页啤茬雹蔓骚苹楔怕灿要驼感渔蚀卒性喳偶搁捌口寞咙扰虫诌苗隆险揖靖罪耿筐欧督盘汰宝馋岛炊携帛脑妮遭碑容匀氰茵寝耽本皱名法电唱斩烬脱匡乐钠遁寄拦莎唉闯情跌柠膀旗寐荔揣航俏兄邱熟鼠带臭喘傈咎继戚蚜耳沼吨鱼论俊芳讳划诬特辜庐穗赚瞻投蒜噎逃蹦老颓惟焚肚映茸踢并营汤谭蝴蓉野赖攘舵纽沮扰盅挥全殖层束狮闲奠米威总腔例础使每静皱鞠冗翠凄