ASPNET课程设计

课程名称：ASP.NET课程设计姓名： 刘阳学号：201230330219所在专业：软件工程所在院系：信息工程学院辅导教师：宁星日期：2015年1月15日目录一、课程设计的目的1二、课程设计要求1三、课题及内容1四、流程图2五、数据库2六、页面代码31、登陆页面32、用户中心页面53、个人信息页面94、首页页面135、注册页面176、发布信息页面197、聊天室页面21 七、课程设计小结23一、课程设计的目的 通过利用A进行web应用程序的设计与开发，加深对web程序开发的基本知识的理解，掌握动态页面设计的基本方法和步骤，掌握程序调试的一般方法和技巧。培养基本理论分析、解决实际问题的能力及锻炼写设计总结报告的能力。二、课程设计的基本要求 1. 本课程设计要求学生用A技术开发一个动态网站，利用B/S结构，能将客户端的用户请求提交给服务器端的程序处理。服务器端程序能完成数据的插入、删除、更新以及将用户请求的查询数据返回客户端。 2. 课程设计结束后，每位同学独立提交一份web课程设计报告，内容包括总体设计和算法分析，主要流程，测试数据及测试过程，遇到的问题及解决方法等 3. 界面截图里要有代表性的数据。三、课程设计的内容题目：基于Web的房屋出租信息发布系统 功能要求： 1. 用户管理功能，包括：用户注册，登录认证，修改个人信息； 2. 房屋出租信息发布：注册用户登录后可发布，查询，修改，删除自己发布的房屋出租信息； 3. 房屋信息查询：游客可按房屋类型，所处街道或出租价格查询相应的房屋出租信息。 4. 简易论坛或聊天室四、流程图登陆页面游客登陆用户登陆用户注册个人中心进入首页个人信息删除发布进入聊天室发布信息五、数据库SQL Server 中数据库里建立了三张表，分别是User表（用户信息表）、Fw表（房屋出租信息表）和chat表（聊天记录表）。1.User表中字段：id , pwd , name , sex2.Fw表中字段：id , 编号 , 类型 , 街道 ，价格3.chat表中字段：id , stext , stime六、页面代码1、登陆页面前端代码： 房屋出租系统 后台代码：Imports System.Data.SqlClientImports System.DataPartial Class _Default Inherits System.Web.UI.Page Protected Sub login_Click(sender As Object, e As EventArgs) Handles login.Click Dim id As String = idtext.Text.Trim() Dim pwd As String = pwdtext.Text.Trim() Dim conn As New SqlConnection(server=.;database=fwcz;uid=sa;pwd=91569;) Dim sqltext As String = select * from User where id = + id + and pwd = + pwd + Try conn.Open() Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn) If sqlcom.ExecuteScalar() Nothing Then Session.Add(login_name, id) conn.Close() Response.Redirect(user.aspx) Else Response.Write(alert(账号密码错误！) End If If conn.State = ConnectionState.Open Then conn.Close() End If Catch ex As Exception End Try End Sub Protected Sub uzc_Click(sender As Object, e As EventArgs) Handles uzc.Click Response.Redirect(uzc.aspx) End Sub Protected Sub youke_Click(sender As Object, e As EventArgs) Handles youke.Click Session.Add(login_name, guest) Response.Redirect(main.aspx) End SubEnd Class2、 用户中心页面前端代码： 用户中心 根据编号： 后台代码：Imports System.Data.SqlClientImports System.DataPartial Class user Inherits System.Web.UI.Page Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If (Session(login_name) Nothing) Then Dim id As String = Session(login_name).ToString() Label1.Text = id + 欢迎您！ 您的发布如下： Dim conn As New SqlConnection(server=.;database=fwcz;uid=sa;pwd=91569;) Dim sqltext As String = select * from Fw where id = + id + conn.Open() Dim sqlcmd As SqlCommand = New SqlCommand(sqltext, conn) Dim objectreader As SqlDataReader Dim i As Integer Dim fw As String objectreader = sqlcmd.ExecuteReader() fw = fw += For i = 0 To objectreader.FieldCount - 1 fw += + objectreader.GetName(i)