ASPNET课程设计

1、课程名称：课程设计姓名：刘阳学号:0219所在专业：软件工程所在院系：信息工程学院辅导教师：宁星日期：2015年1月15日目录一、课程设计的目的1二、课程设计要求1三、课题及内容1四、流程图2五、数据库2六、页面代码31、登陆页面32、用户中心页面53、个人信息页面94、首页页面135、注册页面176、发布信息页面197、聊天室页面21七、课程设计小结23、课程设计的目的通过利用进行 web 应用程序的设计与开发，加深对 web 程序开发的基本知识的理解， 掌握动态页面设计的基本方法 和步骤， 掌握程序调试的一般方法和技巧。 培养基本理论分 析、解决实际问题的能力及锻炼写设计总结报告的能力。二

2、、课程设计的基本要求1. 本课程设计要求学生用技术开发一个动态网站，利 用 B/S 结构，能将客户端的用户请求提交给服务器端的程序 处理。服务器端程序能完成数据的插入、删除、更新以及将 用户请求的查询数据返回客户端。2. 课程设计结束后，每位同学独立提交一份 web 课程 设计报告，内容包括总体设计和算法分析，主要流程，测试 数据及测试过程，遇到的问题及解决方法等3. 界面截图里要有代表性的数据。三、课程设计的内容题目：基于Web的房屋出租信息发布系统功能要求：1. 用户管理功能，包括：用户注册，登录认证，修改 个人信息；2. 房屋出租信息发布：注册用户登录后可发布，查询，修改，删除自己发布的

3、房屋出租信息;3. 房屋信息查询：游客可按房屋类型，所处街道或出 租价格查询相应的房屋出租信息。4. 简易论坛或聊天室 四、流程图五、数据库SQL Server中数据库里建立了三张表，分别是 User表（用 户信息表）、Fw表（房屋出租信息表）和 chat表（聊天记录 表）。表中字段 ：id , pwd , name , sex表中字段：id ,编号，类型，街道，价格表中字段:id , stext , stime六、页面代码 1、登陆页面1嘗 loclhost房屋出相系统目户名，密码：|游客|登录注册前端代码：v% PageLa nguage=VBAutoEve ntWireup=falseC

4、odeFile=In herits=_Default %!DOCTYPE html PUBLIC -database=fwcz;uid=sa;pwd=91569;)Dim sqltext As Stri ng = select * from User where id = + id+ and pwd = + pwd + Try()Dim sqlcom As SqlComma nd = New SqlComma nd(sqltext, conn)If () Noth ing The n(login_name, id)() ()Else(alert( 账号密码错误！ )End IfIf = The

5、n()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、用户中心页面前端代码：CodeFile=v% Page Lan guage=VBAutoEve ntWireup=falseIn herits=us

6、er % vhtml xmln s=vhead run at=serverv/title 用户中心根 据 编 号 ： 后台代码：ImportsPartial Class usere AsNewInherits Protected Sub Page_Load(sender As Object, EventArgs) HandlesIf (Session(login_name) Nothing) ThenDim id As String = Session(login_name).ToString()= id + 欢迎您！ 您的发布如下： Dim conn As SqlConnection(ser

7、ver=.;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 String objectreader = () fw = fw += For i = 0 To - 1fw += + (i) + Next fw += While ()

8、fw += For i = 0 To - 1fw += + CStr(i) + Nextfw += End Whilefw += = fw()Else : (alert(用户过期，请重新登陆！ ); =)End IfEnd SubProtectedSub Button1_Click(senderAs Object,As EventArgs)Handles()End SubProtectedSub Button2_Click(senderAs Object,As EventArgs)Handles()End SubProtectedSub Button3_Click(senderAs Objec

9、t,As EventArgs)Handles()End SubProtectedSub Button4_Click(senderAs Object,As EventArgs)HandlesEnd SubProtectedSub Button5_Click(sender As Object, e As EventArgs) HandlesIf (Session(login_name) Nothing) ThenDim id As String = Session(login_name)Dim n As String = Dim conn As NewSqlConnection(server=.;

10、database=fwcz;uid=sa;pwd=91569;)Dim sqltext As String = DELETE FROM Fw WHERE id = + id+ and 编号 = + n + Try()Dim sqlcom As SqlCommand= NewSqlCommand(sqltext, conn)()()(alert( 删除成功！ ); =)If = Then()End IfCatch ex As ExceptionEnd TryEnd IfEnd SubEnd Class3、个人信息页面localhost您的个人信息用户名：q独姓名：刘阳性别：男信息完善与修改姓名:

11、修改密码前端代码：CodeFile=v% Page Lan guage=VB AutoEve ntWireup=falseIn herits=useri nfo % 您的个人信息 信息完善与修改 修改密码 后台代码：ImportsPartial Class userinfoInherits Protected Sub Button1_Click(sender As Object, e AsEventArgs) HandlesIf (Session(login_name) Nothing) ThenDim id As String = Session(login_name)Dim n As St

12、ring =Dim s As String =Newconn)Dim conn AsSqlConnection(server=.;database=fwcz;uid=sa;pwd=91569;)Dim sqltext As String = update User set name = + n +,sex = + s + where id = + id + Try()Dimsqlcom As SqlCommand= NewSqlCommand(sqltext,()()(alert( 更新成功！ ); =)If = Then()End IfCatch ex As ExceptionEnd Try

13、End IfEnd SubProtected Sub Page_Load(sender As Object, e As EventArgs) HandlesIf (Session(login_name) Nothing) ThenDim id As String = Session(login_name)= idDimconnAsNewSqlConnection(server=.;database=fwcz;uid=sa;pwd=91569;)Dim sqltext1 As String = select name from User where id= + ID +muDim sqltext

14、2 As String = select sex from User where id = + IDmuTry()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 : (alert(用户过期，请重新登陆！); =)End IfProtected Sub

15、Button2_Click(sender As Object, e As EventArgs) HandlesDim id As String = Session(login_name)Dimopwd As StringDim conn As NewSqlConnection(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 SqlComm

16、and(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)() ()(alert(修 改 成 功 , 请 重 新 登 录 ！ );=)Else : (alert(两次新密码输入不同！ )End IfElse : (alert

17、(原密码输入错误！ )End IfIf = Then()End IfEnd SubEnd Class4、首页页面Q a | loctlhoft房屋出租首页类型:折在街道:号L1类套卑 套 单型1|J问 房11间査伺edfc6单闾染色法发给磨2跖号99cv7套旁都是镭利地方駁号1鹉8单间打开麻辣豆腐房间266号666d傘9单间发给收费555迪：2套房地图已:啟图库爱的色放22333aa14套看10qq15玉茗大価号6666qq16单间saasas123護东大道的号500长江路知可300黒河师大花园益号1000发士大夫新城68号999把餉总理萨新小路232号88亍人中b前端代码：v% PageLa

18、n guage=VBAutoEve ntWireup=false CodeFile=In herits=ma in % vhtml xmln s= 房屋出租首页 类型： 套房 单间 所在街价格后台代码：Imports Class mainInherits Protected Sub Button1_Click(sender As Object, e As EventArgs) HandlesIf (Session(login_name) Nothing) ThenIf (Session(login_name) = guest) Then(alert(游客请登陆！ ); =)Else : ()E

19、nd IfElse : ()End IfEnd SubProtected Sub Page_Load(sender As Object, e As EventArgs) HandlesIf (Session(login_name) Nothing) Then= 个人中心 Else : = 登陆 End IfDimconnAsNewSqlConnection(server=.;database=fwcz;uid=sa;pwd=91569;)Dim sqltext As String = select * from Fw()Dim sqlcmd As SqlCommand = New SqlCom

20、mand(sqltext, conn)Dim objectreader As SqlDataReaderDim i As IntegerDim fw As String objectreader = () fw = fw += For i = 0 To - 1fw += + (i) + Next fw += While ()fw += For i = 0 To - 1fw += + CStr(i) + Nextfw += End While fw += = fwEnd SubProtected Sub Button2_Click(sender As Object, e As EventArgs

21、) HandlesNewDim conn As SqlConnection(server=.;database=fwcz;uid=sa;pwd=91569;)Dim sql As Stringsql = select * from Fw whereIf ) Thensql += 类型 = + + ElseIf ) Thensql += 街道 like % + + %ElseIf And Thensql += 价格 BETWEEN + + and + + Else( 请选择一项！ );)Exit SubEnd IfTry()Dim sqlcmd As SqlCommand = New SqlCo

22、mmand(sql, conn)Dim objectreader As SqlDataReaderDim i As IntegerDim fw As String objectreader = () fw = fw += For i = 0 To - 1fw += + (i) + Nextfw += While ()fw += For i = 0 To - 1fw += + CStr(i) + Nextfw += End Whilefw += = fwCatch ex As Exception( 连接数据库失败 );)End Try()End SubEnd Class5、注册页面”書”倉 Ic

23、calhot用户注册冃户名:蹩证用户名提交密密前端代码:v/title用户注册ID=idtext 后台代码：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

24、 = + id+muTry()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn)If () Nothing Then(alert(此用户名已存在！ )Else(alert(恭喜此用户名可用！ )End If()If = Then()End IfCatch ex As ExceptionEnd TryEnd SubProtected Sub login_Click(sender As Object, e As EventArgs) HandlesDim id As String =Dim ptext1 As String =Dimpt

25、ext2 As String =If (ptext1 = ptext2) ThenNewconn)Dim conn AsSqlConnection(server=.;database=fwcz;uid=sa;pwd=91569;)Dim sqltext As String = INSERT INTO User (id,pwd) values ( + id + , + ptext1 + )()Dimsqlcom As SqlCommand= NewSqlCommand(sqltext, ()(Iogin_name, id)()(alert(注册成功！ )； =”)If = The n()End IfElse : (alert(两次密码输入不同！)End IfEnd SubEnd Class6、发布信息页面前端代码：v% PageLa nguage=VBAutoEve ntWireup=falseCodeFile=In her