1、二、课程设计的基本要求 1. 本课程设计要求学生用A技术开发一个动态网站,利用B/S结构,能将客户端的用户请求提交给服务器端的程序处理。服务器端程序能完成数据的插入、删除、更新以及将用户请求的查询数据返回客户端。 2. 课程设计结束后,每位同学独立提交一份web课程设计报告,内容包括总体设计和算法分析,主要流程,测试数据及测试过程,遇到的问题及解决方法等 3. 界面截图里要有代表性的数据。三、课程设计的内容题目:基于Web的房屋出租信息发布系统 功能要求: 1. 用户管理功能,包括:用户注册,登录认证,修改个人信息; 2. 房屋出租信息发布:注册用户登录后可发布,查询,修改,删除自己发布的房屋
2、出租信息; 3. 房屋信息查询:游客可按房屋类型,所处街道或出租价格查询相应的房屋出租信息。 4. 简易论坛或聊天室四、流程图五、数据库SQL Server 中数据库里建立了三张表,分别是User表(用户信息表)、Fw表(房屋出租信息表)和chat表(聊天记录表)。1.User表中字段:id , pwd , name , sex2.Fw表中字段:id , 编号 , 类型 , 街道 ,价格3.chat表中字段:id , stext , stime六、页面代码1、登陆页面前端代码:!DOCTYPE html PUBLIC -/W3C/DTD XHTML 1.0 Transitional/EN ht
3、tp:/www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtdhtml xmlns=/www.w3.org/1999/xhtmlhead runat=server /title/headbodycenterh1房屋出租系统form id=form1 runat=asp:Label ID=Label1 Text=用户名:/asp:LabelTextBox ID=idtextTextBoxbr/Label2密码:pwdtext textmode=passwordButton ID=youke游客 / login登录uzc注册 /form/center/bo
4、dy/html后台代码: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(s
5、erver=.;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() alert(账号密码错误!) End If If conn.State = ConnectionState.Open Then Catch ex As Excep
6、tion End Try End Sub Protected Sub uzc_Click(sender As Object, e As EventArgs) Handles uzc.Clickuzc.aspx Protected Sub youke_Click(sender As Object, e As EventArgs) Handles youke.Click, guestmain.aspxEnd Class2、用户中心页面user.aspx.vbuserDOCTYPE htmlmeta http-equiv=Content-Type content=text/html; charset
7、=utf-8/h2用户中心请重新登陆! ForeColor=#0033CCbr /Label 根据编号:TextBox1Button5删除 style=height: 21pxButtonButton2首页Button3发布Button1个人信息Button4 聊天室 Partial Class user Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If (Session() fw += tr For i = 0 To objectreader.FieldCount - 1td + obje
8、ctreader.GetName(i) + /td Next/tr While objectreader.Read() + CStr(objectreader.GetValue(i) + End While/table Label2.Text = fw Else :用户过期,请重新登陆!);window.location.href =ulogin.aspx Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Clickuserinfo.aspx Protected Sub Button2_C
9、lick(sender As Object, e As EventArgs) Handles Button2.Click Protected Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Clickfatie.aspx Protected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Clickchat.aspx Protected Sub Button5_Click(sender As Object, e As E
10、ventArgs) Handles Button5.Click Dim n As String = TextBox1.Text.Trim()DELETE FROM Fw WHERE id = and 编号 = + n + sqlcom.ExecuteNonQuery()删除成功!user.aspx3、个人信息页面userinfo.aspx.vbuserinfo您的个人信息Label10Label11Label6姓名:Label7Label8性别:Label9信息完善与修改女DropDownList更新修改密码Label3原密码:oldpwdLabel4新密码:newpwd1Label5newp
11、wd2修改Partial Class userinfo Dim s As String = DropDownList1.Textupdate User set name = ,sex = + s + where id = 更新成功! Label11.Text = id Dim sqltext1 As String = select name from User where id = + ID + Dim sqltext2 As String = select sex from User where id = Dim sqlcom1 As SqlCommand = New SqlCommand(sqltext1, conn) Dim sqlcom2 As SqlCommand = New SqlCommand(sqltext2, conn)
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1