课程名称：课程设计姓名：刘阳学号：0219所在专业：软件工程所在院系：信息工程学院辅导教师：宁星日期：2015年1月15日目录一、课程设计的目的 (1)二、课程设计要求 (1)三、课题及内容 (1)四、流程图 (2)五、数据库 (2)六、页面代码 (3)1、登陆页面 (3)2、用户中心页面 (5)3、个人信息页面 (9)4、首页页面 (13)5、注册页面 (17)6、发布信息页面 (19)7、聊天室页面 (21)七、课程设计小结 (23)一、课程设计的目的通过利用进行web应用程序的设计与开发，加深对web 程序开发的基本知识的理解，掌握动态页面设计的基本方法和步骤，掌握程序调试的一般方法和技巧。
培养基本理论分析、解决实际问题的能力及锻炼写设计总结报告的能力。
二、课程设计的基本要求1. 本课程设计要求学生用技术开发一个动态网站，利用B/S结构，能将客户端的用户请求提交给服务器端的程序处理。
服务器端程序能完成数据的插入、删除、更新以及将用户请求的查询数据返回客户端。
2. 课程设计结束后，每位同学独立提交一份web课程设计报告，内容包括总体设计和算法分析，主要流程，测试数据及测试过程，遇到的问题及解决方法等3. 界面截图里要有代表性的数据。
三、课程设计的内容题目：基于Web的房屋出租信息发布系统功能要求：1. 用户管理功能，包括：用户注册，登录认证，修改个人信息；2. 房屋出租信息发布：注册用户登录后可发布，查询，修改，删除自己发布的房屋出租信息；3. 房屋信息查询：游客可按房屋类型，所处街道或出租价格查询相应的房屋出租信息。
4. 简易论坛或聊天室四、流程图五、数据库SQL Server 中数据库里建立了三张表，分别是User表（用户信息表）、Fw表（房屋出租信息表）和chat表（聊天记录表）。
表中字段：id , pwd , name , sex表中字段：id , 编号 , 类型 , 街道，价格表中字段：id , stext , stime六、页面代码1、登陆页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="" Inherits="_Default" %><!DOCTYPE html PUBLIC "-database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "select * from [User] where id = '" + id + "'and pwd ='" + pwd + "'"Try()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn) If () <> Nothing Then("login_name", id)()("")Else("<script>alert('账号密码错误！')</script>")End IfIf = Then()End IfCatch ex As ExceptionEnd TryEnd SubProtected Sub uzc_Click(sender As Object, e As EventArgs) Handles ("")End SubProtected Sub youke_Click(sender As Object, e As EventArgs) Handles ("login_name", "guest")("")End SubEnd Class2、用户中心页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="" Inherits="user" %><!DOCTYPE html><html xmlns=""><head runat="server"><meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <title></title></head><body><center><form id="form1" runat="server"><h2>用户中心</h2><asp:Label ID="Label1" runat="server" Text="请重新登陆！" ForeColor="#0033CC"></asp:Label><br /><br /><asp:Label ID="Label2" runat="server" Text="Label"></asp:Label><br /><br />根据编号：<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox><asp:Button ID="Button5" runat="server" Text="删除" style="height: 21px"></asp:Button><br /><br/><asp:Button ID="Button2" runat="server" Text="首页"></asp:Button><asp:Button ID="Button3" runat="server" Text="发布"></asp:Button><br/><br/><asp:Button ID="Button1" runat="server" Text="个人信息"></asp:Button><asp:Button ID="Button4" runat="server" Text=" 聊天室"></asp:Button><br /></form></center></body></html>后台代码：ImportsPartial Class userInherits Protected Sub Page_Load(sender As Object, e As EventArgs) HandlesIf (Session("login_name") <> Nothing) ThenDim id As String = Session("login_name").ToString()= id + "欢迎您！您的发布如下："Dim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "select * from [Fw] where id = '" + id + "'"()Dim sqlcmd As SqlCommand = New SqlCommand(sqltext, conn) Dim objectreader As SqlDataReaderDim i As IntegerDim fw As Stringobjectreader = ()fw = "<table border=2>"fw += "<tr>"For i = 0 To - 1fw += "<td>" + (i) + "</td>"Nextfw += "</tr>"While ()fw += "<tr>"For i = 0 To - 1fw += "<td>" + CStr(i)) + "</td>"Nextfw += "</tr>"End Whilefw += "</table>"= fw()Else : ("<script>alert('用户过期，请重新登陆！'); =''</script>") End IfEnd SubProtected Sub Button1_Click(sender As Object, e As EventArgs) Handles ("")End SubProtected Sub Button2_Click(sender As Object, e As EventArgs) Handles ("")End SubProtected Sub Button3_Click(sender As Object, e As EventArgs) Handles ("")End SubProtected Sub Button4_Click(sender As Object, e As EventArgs) Handles ("")End SubProtected Sub Button5_Click(sender As Object, e As EventArgs) Handles If (Session("login_name") <> Nothing) ThenDim id As String = Session("login_name")Dim n As String = Dim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "DELETE FROM [Fw] WHERE id = '" + id + "'and 编号 = '" + n + "'"Try()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn) ()()("<script>alert('删除成功！'); =''</script>")If = Then()End IfCatch ex As ExceptionEnd TryEnd IfEnd SubEnd Class3、个人信息页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="" Inherits="userinfo" %><!DOCTYPE html><html xmlns=""><head runat="server"><meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <title></title></head><body><center><form id="form1" runat="server"><h2>您的个人信息</h2><asp:Label ID="Label10" runat="server" Text="用户名：" ForeColor="#0033CC"></asp:Label><asp:Label ID="Label11" runat="server" Text=" " ForeColor="#0033CC"></asp:Label><asp:Label ID="Label6" runat="server" Text="姓名：" ForeColor="#0033CC"></asp:Label><asp:Label ID="Label7" runat="server" Text=" " ForeColor="#0033CC"></asp:Label><asp:Label ID="Label8" runat="server" Text="性别：" ForeColor="#0033CC"></asp:Label><asp:Label ID="Label9" runat="server" Text=" " ForeColor="#0033CC"></asp:Label><h2>信息完善与修改</h2><asp:Label ID="Label1" runat="server" Text="姓名："></asp:Label><asp:TextBox ID="TextBox1" runat="server"></asp:TextBox><br/><br/><asp:Label ID="Label2" runat="server" Text="性别："></asp:Label><asp:DropDownList ID="DropDownList1" runat="server"><asp:ListItem Value="男"></asp:ListItem><asp:ListItem Value="女"></asp:ListItem></asp:DropDownList><br/><br/><asp:Button ID="Button1" runat="server" Text="更新" style="height: 21px"></asp:Button><h2>修改密码</h2><asp:Label ID="Label3" runat="server" Text="原密码："></asp:Label><asp:TextBox ID="oldpwd" runat="server" textmode="password"></asp:TextBox><br/><br/><asp:Label ID="Label4" runat="server" Text="新密码："></asp:Label><asp:TextBox ID="newpwd1" runat="server" textmode="password"></asp:TextBox><br/><br/><asp:Label ID="Label5" runat="server" Text="新密码："></asp:Label><asp:TextBox ID="newpwd2" runat="server" textmode="password"></asp:TextBox><br/><br/><asp:Button ID="Button2" runat="server" Text="修改"></asp:Button></form></center></body></html>后台代码：ImportsPartial Class userinfoInherits Protected Sub Button1_Click(sender As Object, e As EventArgs) HandlesIf (Session("login_name") <> Nothing) ThenDim id As String = Session("login_name")Dim n As String = Dim s As String =Dim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "update [User] set name = '" + n + "',sex = '" + s + "'where id = '" + id + "'"Try()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn) ()()("<script>alert('更新成功！'); =''</script>")If = Then()End IfCatch ex As ExceptionEnd TryEnd IfEnd SubProtected Sub Page_Load(sender As Object, e As EventArgs) Handles If (Session("login_name") <> Nothing) ThenDim id As String = Session("login_name")= idDim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext1 As String = "select name from [User] where id = '" + ID + "'"Dim sqltext2 As String = "select sex from [User] where id = '" + ID + "'"Try()Dim sqlcom1 As SqlCommand = New SqlCommand(sqltext1, conn)Dim sqlcom2 As SqlCommand = New SqlCommand(sqltext2, conn)= ().ToString()= ().ToString()()If = Then()End IfCatch ex As ExceptionEnd TryElse : ("<script>alert('用户过期，请重新登陆！'); =''</script>") End IfEnd SubProtected Sub Button2_Click(sender As Object, e As EventArgs) Handles Dim id As String = Session("login_name")Dim opwd As String = Dim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "select * from [User] where id = '" + id + "'and pwd = '" + opwd + "'"()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn)If () <> Nothing ThenDim n1 As String =Dim n2 As String =If (n1 = n2) ThenDim sqltext1 As String = "update [User] set pwd = '" + n1 + "' where id = '" + id + "'"Dim sqlcom1 As SqlCommand = New SqlCommand(sqltext1, conn)()()("<script>alert('修改成功,请重新登录！'); =''</script>")Else : ("<script>alert('两次新密码输入不同！')</script>") End IfElse : ("<script>alert('原密码输入错误！')</script>")End IfIf = Then()End IfEnd SubEnd Class4、首页页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="" Inherits="main" %><!DOCTYPE html><html xmlns=""><head runat="server"><meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <title></title></head><body><center><form id="form1" runat="server"><h2>房屋出租首页</h2>类型：<asp:DropDownList ID="DropDownList1" runat="server"><asp:ListItem></asp:ListItem><asp:ListItem>套房</asp:ListItem><asp:ListItem>单间</asp:ListItem></asp:DropDownList>所在街道：<asp:TextBox ID="TextBox1" runat="server"></asp:TextBox>价格：<asp:TextBox ID="TextBox2" runat="server" Width="60px"></asp:TextBox>～<asp:TextBox ID="TextBox3" runat="server" Width="60px"></asp:TextBox><br /><br /><asp:Button ID="Button2" runat="server" Text="查询"></asp:Button><br /><br /><asp:Label ID="Label1" runat="server" Text="Label"></asp:Label><br /><br/><asp:Button ID="Button1" runat="server" Text="个人中心"></asp:Button></form></center></body></html>后台代码：Imports Class mainInherits Protected Sub Button1_Click(sender As Object, e As EventArgs) HandlesIf (Session("login_name") <> Nothing) ThenIf (Session("login_name") = "guest") Then("<script>alert('游客请登陆！'); =''</script>")Else : ("")End IfElse : ("")End IfEnd SubProtected Sub Page_Load(sender As Object, e As EventArgs) Handles If (Session("login_name") <> Nothing) Then= "个人中心"Else : = "登陆"End IfDim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "select * from [Fw]"()Dim sqlcmd As SqlCommand = New SqlCommand(sqltext, conn)Dim objectreader As SqlDataReaderDim i As IntegerDim fw As Stringobjectreader = ()fw = "<table border=2>"fw += "<tr>"For i = 0 To - 1fw += "<td>" + (i) + "</td>"Nextfw += "</tr>"While ()fw += "<tr>"For i = 0 To - 1fw += "<td>" + CStr(i)) + "</td>"Nextfw += "</tr>"End Whilefw += "</table>"= fwEnd SubProtected Sub Button2_Click(sender As Object, e As EventArgs) Handles Dim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sql As Stringsql = "select * from [Fw] where"If <> "") Thensql += " 类型 ='" + + "'"ElseIf <> "") Thensql += " 街道 like '%" + + "%'"ElseIf <> "" And Thensql += " 价格 BETWEEN '" + + "' and '" + + "'"Else("<script>('请选择一项！');</script>")Exit SubEnd IfTry()Dim sqlcmd As SqlCommand = New SqlCommand(sql, conn)Dim objectreader As SqlDataReaderDim i As IntegerDim fw As Stringobjectreader = ()fw = "<table border=2>"fw += "<tr>"For i = 0 To - 1fw += "<td>" + (i) + "</td>"Nextfw += "</tr>"While ()fw += "<tr>"For i = 0 To - 1fw += "<td>" + CStr(i)) + "</td>" Nextfw += "</tr>"End Whilefw += "</table>"= fwCatch ex As Exception("<script>('连接数据库失败');</script>") End Try()End SubEnd Class5、注册页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="" Inherits="fgpwdaspx" %><!DOCTYPE html><html xmlns=""><head runat="server"><meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <title></title></head><body><center><h2>用户注册</h2><form id="form1" runat="server"><asp:Label ID="Label1" runat="server" Text="用户名："></asp:Label><asp:TextBox ID="idtext" runat="server"></asp:TextBox><br/><br/><asp:Button ID="yzid" runat="server" Text="验证用户名" /><br/><br/><asp:Label ID="Label2" runat="server" Text="密码："></asp:Label><asp:TextBox ID="pwdtext1" runat="server" textmode="password"></asp:TextBox><br/><br/><asp:Label ID="Label3" runat="server" Text="密码："></asp:Label><asp:TextBox ID="pwdtext2" runat="server" textmode="password"></asp:TextBox><br/><br/><asp:Button ID="login" runat="server" Text="提交" /><br/><br/></form></center></body></html>后台代码：ImportsPartial Class fgpwdaspxInherits Protected Sub yzid_Click(sender As Object, e As EventArgs) HandlesDim id As String = Dim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "select * from [User] where id = '" + id+ "'"Try()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn) If () <> Nothing Then("<script>alert('此用户名已存在！')</script>")Else("<script>alert('恭喜此用户名可用！')</script>")End If()If = Then()End IfCatch ex As ExceptionEnd TryEnd SubProtected Sub login_Click(sender As Object, e As EventArgs) Handles Dim id As String = Dim ptext1 As String = Dim ptext2 As String = If (ptext1 = ptext2) ThenDim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "INSERT INTO [User] (id,pwd) values ('" + id + "','" + ptext1 + "')"()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn) ()("login_name", id)()("<script>alert('注册成功！'); =''</script>")If = Then()End IfElse : ("<script>alert('两次密码输入不同！')</script>")End IfEnd SubEnd Class6、发布信息页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="" Inherits="fatie" %><!DOCTYPE html><html xmlns=""><head runat="server"><meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <title></title></head><body><center><h2>房屋出租发布</h2><form id="form1" runat="server"><center><asp:Label ID="Label1" runat="server" Text="房屋类型："></asp:Label><asp:DropDownList ID="DropDownList1" runat="server"><asp:ListItem Selected="True" Value="套房"></asp:ListItem> <asp:ListItem Value="单间"></asp:ListItem></asp:DropDownList><br/><br/><asp:Label ID="Label2" runat="server" Text="所在街道："></asp:Label><br/><asp:TextBox ID="TextBox2" runat="server" Height="87px" Width="262px" TextMode="MultiLine" style="margin-left: 0px"></asp:TextBox><br/><br/><asp:Label ID="Label3" runat="server" Text="定价："></asp:Label><asp:TextBox ID="TextBox3" runat="server" Width="157px"></asp:TextBox><asp:Label ID="Label4" runat="server" Text="元"></asp:Label><br/><br/><asp:Button ID="Button1" runat="server" Text="发布" /><br/><br/></form></center></body></html>后台代码：ImportsPartial Class fatieInherits Protected Sub Button1_Click(sender As Object, e As EventArgs) HandlesDim id As String = Session("login_name")Dim zt As String = Dim nr As String = Dim jq As String = If (zt <> Nothing And nr <> Nothing And jq <> Nothing) ThenDim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "INSERT INTO [Fw] (id,类型,街道,价格) values ('" + id + "','" + zt + "','" + nr + "','" + jq + "')"()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn) ()()("<script>alert('发布成功！'); =''</script>")If = Then()End IfElse : ("<script>alert('不可为空！')</script>")End IfEnd SubEnd Class7、聊天室页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="" Inherits="chat" %><!DOCTYPE html><html xmlns=""><head runat="server"><meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <title></title><link href="" rel="stylesheet" type="text/css" /></head><body><center><h1>聊天室</h1><form id="form1" runat="server"><asp:TextBox ID="TextBox1" runat="server" Height="248px" Width="444px" TextMode="MultiLine"></asp:TextBox><br /><br /><asp:Label ID="Label1" runat="server" Text="用户名："></asp:Label><asp:TextBox ID="TextBox2" runat="server" Height="17px" Width="365px"></asp:TextBox><br /><br /><asp:Button class="Btn" ID="Button1" runat="server" Text=" 发送"></asp:Button></form></center></body></html>后台代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="" Inherits="fatie" %><!DOCTYPE html><html xmlns=""><head runat="server"><meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <title></title></head><body><center><h2>房屋出租发布</h2><form id="form1" runat="server"><center><asp:Label ID="Label1" runat="server" Text="房屋类型："></asp:Label><asp:DropDownList ID="DropDownList1" runat="server"><asp:ListItem Selected="True" Value="套房"></asp:ListItem> <asp:ListItem Value="单间"></asp:ListItem></asp:DropDownList><br/><br/><asp:Label ID="Label2" runat="server" Text="所在街道："></asp:Label><br/><asp:TextBox ID="TextBox2" runat="server" Height="87px" Width="262px" TextMode="MultiLine" style="margin-left:0px"></asp:TextBox><br/><br/><asp:Label ID="Label3" runat="server" Text="定价："></asp:Label><asp:TextBox ID="TextBox3" runat="server" Width="157px"></asp:TextBox><asp:Label ID="Label4" runat="server" Text="元"></asp:Label><br/><br/><asp:Button ID="Button1" runat="server" Text="发布" /><br/><br/></form></center></body></html>七、课程设计小结在这次课程设计过程中，我最大的收获就是深刻地认识到，做事情一定要有耐心，无论遇到什么困难，都不能心烦，否则就很难把事情好。