课程名称：课程设计姓名：刘阳学号：2所在专业：软件工程所在院系：信息工程学院辅导教师：宁星日期：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表（聊天记录表）。
er表中字段：id , pwd , name , sex2.Fw表中字段：id , 编号 , 类型 , 街道，价格3.chat表中字段：id , stext , stime六、页面代码1、登陆页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="ulogin.aspx.vb" Inherits="_Default" %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" ""><html xmlns=""><head runat="server"><title></title></head><body><center><h1>房屋出租系统</h1><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:Label ID="Label2" runat="server" Text="密码："></asp:Label><asp:TextBox ID="pwdtext" runat="server" textmode="password"></asp:TextBox><br/><br/><asp:Button ID="youke" runat="server" Text="游客" /><asp:Button ID="login" runat="server" Text="登录" /><br/><br/><asp:Button ID="uzc" runat="server" Text="注册" /> </form></center></body></html>后台代码：Imports System.Data.SqlClientImports System.DataPartial Class _DefaultInherits System.Web.UI.PageProtected Sub login_Click(sender As Object, e As EventArgs) Handles login.ClickDim 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 + "'"Tryconn.Open()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn)If sqlcom.ExecuteScalar() <> Nothing ThenSession.Add("login_name", id)conn.Close()Response.Redirect("user.aspx")ElseResponse.Write("<script>alert('账号密码错误！')</script>") End IfIf conn.State = ConnectionState.Open Thenconn.Close()End IfCatch ex As ExceptionEnd TryEnd SubProtected Sub uzc_Click(sender As Object, e As EventArgs) Handles uzc.Click Response.Redirect("uzc.aspx")End SubProtected Sub youke_Click(sender As Object, e As EventArgs) Handles youke.ClickSession.Add("login_name", "guest")Response.Redirect("main.aspx")End SubEnd Class2、用户中心页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="user.aspx.vb" 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>后台代码：Imports System.Data.SqlClientImports System.DataPartial Class userInherits System.Web.UI.PageProtected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If (Session("login_name") <> Nothing) ThenDim 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 SqlDataReaderDim i As IntegerDim fw As Stringobjectreader = sqlcmd.ExecuteReader()fw = "<table border=2>"fw += "<tr>"For i = 0 To objectreader.FieldCount - 1fw += "<td>" + objectreader.GetName(i) + "</td>"Nextfw += "</tr>"While objectreader.Read()fw += "<tr>"For i = 0 To objectreader.FieldCount - 1fw += "<td>" + CStr(objectreader.GetValue(i)) + "</td>"Nextfw += "</tr>"End Whilefw += "</table>"Label2.Text = fwconn.Close()Else : Response.Write("<script>alert('用户过期，请重新登陆！');window.location.href ='ulogin.aspx'</script>")End IfEnd SubProtected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickResponse.Redirect("userinfo.aspx")End SubProtected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickResponse.Redirect("main.aspx")End SubProtected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.ClickResponse.Redirect("fatie.aspx")End SubProtected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.ClickResponse.Redirect("chat.aspx")End SubProtected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.ClickIf (Session("login_name") <> Nothing) ThenDim id As String = Session("login_name")Dim n As String = TextBox1.Text.Trim()Dim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "DELETE FROM [Fw] WHERE id = '" + id + "'and 编号= '" + n + "'"Tryconn.Open()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn)sqlcom.ExecuteNonQuery()conn.Close()Response.Write("<script>alert('删除成功！');window.location.href ='user.aspx'</script>")If conn.State = ConnectionState.Open Thenconn.Close()End IfCatch ex As ExceptionEnd TryEnd IfEnd SubEnd Class3、个人信息页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="userinfo.aspx.vb" 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>后台代码：Imports System.Data.SqlClientImports System.DataPartial Class userinfoInherits System.Web.UI.PageProtected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickIf (Session("login_name") <> Nothing) ThenDim id As String = Session("login_name")Dim n As String = TextBox1.Text.Trim()Dim s As String = DropDownList1.TextDim 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 + "'"Tryconn.Open()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn)sqlcom.ExecuteNonQuery()conn.Close()Response.Write("<script>alert('更新成功！');window.location.href ='user.aspx'</script>")If conn.State = ConnectionState.Open Thenconn.Close()End IfCatch ex As ExceptionEnd TryEnd IfEnd SubProtected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If (Session("login_name") <> Nothing) ThenDim id As String = Session("login_name")Label11.Text = 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 + "'"Tryconn.Open()Dim sqlcom1 As SqlCommand = New SqlCommand(sqltext1, conn)Dim sqlcom2 As SqlCommand = New SqlCommand(sqltext2,conn)Label7.Text = sqlcom1.ExecuteScalar().ToString()Label9.Text = sqlcom2.ExecuteScalar().ToString()conn.Close()If conn.State = ConnectionState.Open Thenconn.Close()End IfCatch ex As ExceptionEnd TryElse : Response.Write("<script>alert('用户过期，请重新登陆！');window.location.href ='ulogin.aspx'</script>")End IfEnd SubProtected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickDim id As String = Session("login_name")Dim opwd As String = oldpwd.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 = '" + opwd + "'"conn.Open()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn)If sqlcom.ExecuteScalar() <> Nothing ThenDim n1 As String = newpwd1.TextDim n2 As String = newpwd2.TextIf (n1 = n2) ThenDim sqltext1 As String = "update [User] set pwd = '" + n1 + "' where id = '" + id + "'"Dim sqlcom1 As SqlCommand = New SqlCommand(sqltext1, conn)sqlcom1.ExecuteNonQuery()conn.Close()Response.Write("<script>alert('修改成功,请重新登录！');window.location.href ='ulogin.aspx'</script>")Else : Response.Write("<script>alert('两次新密码输入不同！')</script>")End IfElse : Response.Write("<script>alert('原密码输入错误！')</script>")End IfIf conn.State = ConnectionState.Open Thenconn.Close()End IfEnd SubEnd Class4、首页页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="main.aspx.vb" 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 System.Data.SqlClientPartial Class mainInherits System.Web.UI.PageProtected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickIf (Session("login_name") <> Nothing) ThenIf (Session("login_name") = "guest") ThenResponse.Write("<script>alert('游客请登陆！');window.location.href ='ulogin.aspx'</script>")Else : Response.Redirect("user.aspx")End IfElse : Response.Redirect("ulogin.aspx")End IfEnd SubProtected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If (Session("login_name") <> Nothing) ThenButton1.Text = "个人中心"Else : Button1.Text = "登陆"End IfDim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "select * from [Fw]"conn.Open()Dim sqlcmd As SqlCommand = New SqlCommand(sqltext, conn)Dim objectreader As SqlDataReaderDim i As IntegerDim fw As Stringobjectreader = sqlcmd.ExecuteReader()fw = "<table border=2>"fw += "<tr>"For i = 0 To objectreader.FieldCount - 1fw += "<td>" + objectreader.GetName(i) + "</td>"Nextfw += "</tr>"While objectreader.Read()fw += "<tr>"For i = 0 To objectreader.FieldCount - 1fw += "<td>" + CStr(objectreader.GetValue(i)) + "</td>"Nextfw += "</tr>"End Whilefw += "</table>"Label1.Text = fwEnd SubProtected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickDim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sql As Stringsql = "select * from [Fw] where"If (DropDownList1.Text.Trim() <> "") Thensql += " 类型='" + DropDownList1.Text.Trim() + "'"ElseIf (TextBox1.Text.Trim() <> "") Thensql += " 街道like '%" + TextBox1.Text.Trim() + "%'"ElseIf (TextBox2.Text.Trim() <> "" And TextBox3.Text.Trim()) Thensql += " 价格BETWEEN '" + TextBox2.Text.Trim() + "' and '" + TextBox3.Text.Trim() + "'"ElseResponse.Write("<script>window.alert('请选择一项！');</script>")Exit SubEnd IfTryconn.Open()Dim sqlcmd As SqlCommand = New SqlCommand(sql, conn)Dim objectreader As SqlDataReaderDim i As IntegerDim fw As Stringobjectreader = sqlcmd.ExecuteReader()fw = "<table border=2>"fw += "<tr>"For i = 0 To objectreader.FieldCount - 1fw += "<td>" + objectreader.GetName(i) + "</td>"Nextfw += "</tr>"While objectreader.Read()fw += "<tr>"For i = 0 To objectreader.FieldCount - 1fw += "<td>" + CStr(objectreader.GetValue(i)) + "</td>"Nextfw += "</tr>"End Whilefw += "</table>"Label1.Text = fwCatch ex As ExceptionResponse.Write("<script>window.alert('连接数据库失败');</script>") End Tryconn.Close()End SubEnd Class5、注册页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="uzc.aspx.vb" 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>后台代码：Imports System.Data.SqlClientImports System.DataPartial Class fgpwdaspxInherits System.Web.UI.PageProtected Sub yzid_Click(sender As Object, e As EventArgs) Handles yzid.Click Dim id As String = idtext.Text.Trim()Dim conn As New SqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "select * from [User] where id = '" + id + "'"Tryconn.Open()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn)If sqlcom.ExecuteScalar() <> Nothing ThenResponse.Write("<script>alert('此用户名已存在！')</script>") ElseResponse.Write("<script>alert('恭喜此用户名可用！')</script>") End Ifconn.Close()If conn.State = ConnectionState.Open Thenconn.Close()End IfCatch ex As ExceptionEnd TryEnd SubProtected Sub login_Click(sender As Object, e As EventArgs) Handles login.ClickDim id As String = idtext.Text.Trim()Dim ptext1 As String = pwdtext1.Text.Trim()Dim ptext2 As String = pwdtext2.Text.Trim()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 + "')"conn.Open()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn)sqlcom.ExecuteNonQuery()Session.Add("login_name", id)conn.Close()Response.Write("<script>alert('注册成功！');window.location.href ='user.aspx'</script>")If conn.State = ConnectionState.Open Thenconn.Close()End IfElse : Response.Write("<script>alert('两次密码输入不同！')</script>")End IfEnd SubEnd Class6、发布信息页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="fatie.aspx.vb" 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>后台代码：Imports System.Data.SqlClientImports System.DataPartial Class fatieInherits System.Web.UI.PageProtected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.ClickDim id As String = Session("login_name")Dim zt As String = DropDownList1.Text.Trim()Dim nr As String = TextBox2.Text.Trim()Dim jq As String = TextBox3.Text.Trim()If (zt <> Nothing And nr <> Nothing And jq <> Nothing) ThenDim conn As NewSqlConnection("server=.;database=fwcz;uid=sa;pwd=91569;")Dim sqltext As String = "INSERT INTO [Fw] (id,类型,街道,价格) values ('" + id + "','" + zt + "','" + nr + "','" + jq + "')"conn.Open()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn)sqlcom.ExecuteNonQuery()conn.Close()Response.Write("<script>alert('发布成功！');window.location.href ='user.aspx'</script>")If conn.State = ConnectionState.Open Thenconn.Close()End IfElse : Response.Write("<script>alert('不可为空！')</script>")End IfEnd SubEnd Class7、聊天室页面前端代码：<%@ Page Language="VB" AutoEventWireup="false" CodeFile="chat.aspx.vb"Inherits="chat" %><!DOCTYPE html><html xmlns=""><head runat="server"><meta http-equiv="Content-Type" content="text/html; charset=utf-8"/> <title></title><link href="css.css" 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="fatie.aspx.vb" 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>七、课程设计小结在这次课程设计过程中，我最大的收获就是深刻地认识到，做事情一定要有耐心，无论遇到什么困难，都不能心烦，否则就很难把事情好。