W EB 系统开发 实验报告 实验一 实验题目：用WEB控件实现注册与登录页面 实验类型: 验证性 指导老师：潘凤 专业班级: 计算机科学与技术系 1103班 姓 名: 梁琪 学 号：(2011100307) 2014年 03月 19日 一、实验题目 用 web控件实现注册与登录页面 二、实验目的和要求 1. 利用所学知识进行页面开发，充分运用所能使用的服务器控件来实现需求。灵活掌握数据库的连接与访问。 2. 要求页面友好，交互性强。 3. 上机前预习实验，同学们相互间可以讨论；上机过程中要求独立完成；设计出具有各自风格的页面。 三、实验内容 1、创建数据库，创建数据表 users用来存储用户信息，包含用户名和密码等字段。 2、用 web控件实现简单的用户注册页面。要运用文本框、单选框、复选框、下拉列表、多行文本框、按钮、文件上传等控件实现注册页面，并实现简单验证。点击提交按钮后讲用户填写的信息写入数据库的数据表，并以文本的形式显示出来。 3、用 web控件实现简单的用户登录页面 运用文本框、label、按钮等控件实现简单的用户登录页面，登录按钮旁加上新用户注册按钮，连接到用户注册页面。用户输入用户名和密码后连接数据库进行验证，输入正确则提示用户欢迎登录，并显示欢迎图片；否则提示用户名或密码错误，显示相应错误提示图片。 四、实验代码 登录界面代码： Imports System.Data.SqlClient Imports System.Data Partial 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 Sub Protected 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.Execu...
