ASPNET课程设计报告书

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

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

3、登录后可发布，查询,修改，删除自己发布的房屋出租信息；3.房屋信息查询：游客可按房屋类型，所处街道或岀 租价格查询相应的房屋出租信息。4.简易论坛或聊天室四、流程图五、数据库SQL Server中数据库里建立了三表，分别是User表（用户 信息表）、Fw表（房屋出租信息表）和chat表（聊天记录表）。1.User表中字段：id ,pwd , name , sex2 Fw表中字段:id，编号，类型，街道，价格3. chat表中字段：id , stext , stime六、页面代码1、登陆页面localhost房屋出租系统用户名:游客注册前端代码：房屋出租系统登录/asp: TextBoxXbr/

4、Xbr/后台代码：Imports System .Data .SqlClientImports System DataPartial Class DefaultInherits System .Web UI PageProtected Sub login_Click(sender As Object, e As EventArgs) Handies login. ClickDim id As String = idtext.Text Trim()Dim pwd As String = pwdtext.Text Trim()DimcormAsNewSqlConnection (server二.；

5、database二fwcz；uid二sa； pwd二91569；)Dim sqltext As String = select * from User where id = *r，+ id + and pwd二+ pwd +Tryconn. Open ()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn)If sqlcom. ExecuteScalar () Nothing ThenSession Add( login_name，r, id)conn. CloseOResponse Redirect(user aspx)ElseRe

6、sponse. Write (，ralert (账号密 码错误！)M)End IfIf conn. State = ConnectionState 0pen Thenconn. CloseOEnd IfCatch ex As ExceptionEnd TryEnd SubProtected Sub uzcClick(sender As Object, e As EventArgs) Handles uzc ClickResponse Redirect (，ruzc aspxn)End SubProtected Sub youke_Click(sender As Object, e As Eve

7、ntArgs) Handies youke ClickSession. Add C1ogin_name, guest”)Response Redirect (，rmain aspx)End SubEnd Class2、用户中心页面用户中心qaz欢迎您！您的发布如下:id 编号类型街道价格qaz 1 套房赣东大道翻号500qaz 4 单间发士大夫新城 68 号 999根据编号，前端代码： 删除发布|聊天室|个人信息） 用户中心根 据 编 号runat=,server,Fasp：TextBoxrunat=Hservertunat= serverrunat=HserveruID=MTextBoxl0

8、Text=Text=Mrunat= serverrunat= serverText=Text=M个runat=MserverText=聊后台代码:ImportsImportsSystem Data SqlClientSystem DataPartialClass userInherits System .Web UI PageProtected Sub Page Load(sendet As Object, e As EventArgs) Handles Me. LoadIf (Session(1 ogin_name) Nothing) ThenDim id As String = Sessi

9、on (，r1 ogin name,F) ToStringO Label 1. Text二id +欢迎您！您的发布如下：DimconnAsNewSqlConnect ion (server=；databEise二fwcz； uid二sa； pwd二91569；)Dim sqltext As String = select * from Fw where id =+id +conn. Open()Dim sqlcmd As SqlCommand = New SqlCommand(sqltext, corm)Dim objectreader As SqlDataReaderDim i As Int

10、egerDim fw As String objectreader = sqlcmd ExecuteReader () fw = 1fw +=wwFor i = 0 To objectreader FieldCount - 1fw +=td + objectreader. GetName(i) + Nextfw+ 二,rwWhile objectreader Read()fw +=ffffFor i = 0 To objectreader FieldCount一1fw +=+ CStr (objectreader. GetValue(i) +Nextfw +=ttwEnd Whilefw +=

11、 Labe12 Text = fw conn. Close ()Else : Response. Write(Malert(用户过期，请重新登陆！1)；window location. href=，ulogin aspx)End IfEnd SubProtected Sub Buttonl Click(sender As Object, e As EventArgs) Handles Buttonl. ClickResponse Redirect (，fuserinfo. aspx，r)End SubProtected Sub Button2_Click(sender As Object, e

12、 As EventArgs) Handles Button2.ClickResponse Redirect (，fmairu aspx)End SubProtected Sub Button3 Click(sender As Object, e As EventArgs) Handles Button3. ClickResponse Redirect (,rfatie aspx)End SubProtected Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.ClickResponse Redirect (

13、，rchat aspx)End SubProtected Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5 ClickIf (Session(1 ogin_nameH) Nothing) ThenDim id As String = Session (login name)Dim n As String = TextBoxl.Text Trim()DimconnAsNewSqlConnection(server二.；database二fwcz； uid二sa； pwd二91569；，r)Dim sqltext

14、 As String = DELETE FROM Fw WHERE id = M+ id + and编号二+n +Tryconn. Open()Dim sqlcom As SqlCommand = New Sq 1 Command (sqltext, conn) sqlcomExecuteNonQuery() conn. CloseOResponse. Write(,ralert (r删 除成功 ！r):window. location. href二user aspx/script)If conn. State = ConnectionState 0pen Then conn. CloseOE

15、nd IfCatch ex As ExceptionEnd TryEnd IfEnd SubEnd Class3、个人信息页面您的个人信息用户名：qaz姓名：刘阳性别：男信息完善与修改姓名；性别；巫修改密码前端代码： h2您的个人信息runat二serverText=,rirrunat二serverText=M:runat=hserverText二ih2信息完善与修改/asp：ListItem/asp：ListItemh2修改密码Text=M姓名:ID二TextBoxlText=M性别：Text=M原密码：,rX/asp： Label/asp： TextBoxXbr/Xbr/后台代码：Impo

16、rts System .Data .SqlClientImports System DataPartial Class userinfoInherits System .Web UI PageProtected Sub Buttonl Click(sender As Object, e As EventArgs) Handles Buttonl. ClickIf (Session(H1 ogin_name) Nothing) ThenDim id As String = Session(loginname)Dim n As String = TextBox1. Text Trim() Dim

17、s As String = DropDownListlTextDimconnAsNewSqIConnection(，rserver二；database二fwcz；uid二sa； pwd二91569； ”)Dim sqltext As String = update User set name = *H+ n + ,sex =+s + where id =+ id +Tryconn. Open ()Dim sqlcom As Sql Comma nd = New Sql Comma nd (sqltext, corm) sqlcomExecuteNonQuery() conn. Close ()

18、Response. Write(,ralert (F更新成 功 ！r)；window. location. href二user aspx/script)If conn. State = ConnectionState 0pen Then conn. Close ()End IfCatch ex As ExceptionEnd TryEnd IfEnd Subasp： Label ID二Label5 runat=，serveruText=M新密码：Protected Sub Page Load(sendet As Object, e As EventArgs) Handles Me. Load=

19、pi ojoqM josqUIOJJxos ；3apsh= SuiJg sy乙山!Q“+ (II += 山！a(n:69ST6=PMd：BS-pin：Z0Mj=asBqBiBp: =JOAJQSN)UOIIOQUUOJbg syuuoo UIIQP! = 2x01 moq町(4|91UBU UT3OJJUOISS0S = SuiJISsypi UIIQU9M1 (SumN (n9UIBUUTSoTJUOTSSQS) JIpi 9JoqA J3SUIOJJ0UIBU初=3uisy jixaiybsMON+ P! += P!* +Tu+= pmd las JQSQ a;epdnh= SUTsy j

20、xoiybsUIIQU9MX (Zu = ju) JI4x0j/zp&dMOU = SuiJig sy 2UUITQ4x0j/ip&dMOU = SuiJigsy juUIIQuoqx Suiqioj () jBjPOgainoQxg uioobsJJ(uuoo4IXQIjbs)puBiuuio9jbsMN= puBiuuiojbs sy uioojbsUIIQ()uad()-uuo3“+ Pdo + “，= Pd pu巳“ +P!+ “。= P! QJoqM jasqUIOJJ* ioops4i=sy 1x01 jbs uiiq(n:69ST6=PMdips=pin：Z0Mj=9SBqBiB

21、p:=JOAJQSN)UOTIOOUUO9JMNSyUUO3UIIQ()UII pMdpo = 8UTJig sy p.wdoUIIQ(n9uiBU uiSojJuoissag = SuiJig sy piUIIQP!2NUOZMsajpuej-i (sSjyiuoAg sy 0 ooCqo sy jopuss) |3i 9qng poiooiojjqns pugJI PUH(4i4xdsp -ui3ojn4=jojq uwopuTM： (4i餅軒M宙J町WWDS 壮！MPsuods讪:ssygQ 丄pug uopdooxgsy xoJI pug()0soj9 uuoo UUOO JI0QSO

22、IJ UUOJ=HX0j/62qbI=1X91 711(uuoo42X3；jbs)pueuiuiojjbs M9|j = puBuiuiogjbs sy uioDjbsUIIQ(uuoojbs)puBiuiuo3bsMN= puuiuiogjbs sy juioDjbsUIIQ()UQd()-uuooDim sqlcoml As SqlCommand = New SqlCommand(sqltextl, conn)sqlcom 1 ExecuteN on Query ()conn. CloseOuaq丄uod。SEQsuogguuoj =()3ui () JP|POSQino9xg uiooj

23、bs ()SUTJISo丄 ()jBjBosQinooxg juioojbsResponse. Write(，alert (修改成功，请重新登录!r):window location. href =rulogin. aspxr，r)Else : Response. Write(,alert(两次新密码输入不同!)w)End IfElse : Response. Write(,，alert (原 密码输 入错误！)w)End IfIf conn. State = ConnectionState 0pen Then conn. CloseOEnd IfEnd SubEnd Class4、首页页面房

24、屋出租首页查询id编号 类型街道价格qaz1套房赣东大道gg号500qq2单间长江路301号3002XC3套房黑河师大花园22号1000qaz4单间发士大夫新城68号999sqs5套房把的范德萨新小路232号88edB6单间染色法发给房235号99cv7套房都是福利地方888号188vsd8单间 打开麻辣豆腐房间266号666d色9单间发给枚费555g估12套房地图已汇款图库爱的色放22 333aa14套房aaaaaaaaaaaaa10qq】5套房玉蔻大道66号6666qq16单间saas出123个人中心前端代码: 房屋出租首页类型：类型:所在街道:价格:后台代码:Imports System

25、 .Data .SqlClientPartial Class mainInherits System .Web UI PageProtected Sub Buttonl Click(sender As Object, e As EventArgs) Handles Buttonl. ClickIf (Session(，r1 ogin_name) Nothing) ThenIf (Session(1 ogin name,r) = guest) ThenResponse. Write (，alert (游客 请登陆！r):window location. href =rulogin. aspx/s

26、cript)Else : Response Redirect(user.aspx)End IfElse : Response. Redirect (，rulogin. aspx，r)套房/asp： Listltem 单间 所 在 街道：runat=,Fserver,rX/asp： TextBox价 格 :asp：TextBoxID=hTextBox2HID二”TextBox3runat=Mserver0ID二JbeilID=,rTextBoxrrrunat=，serverMrunat= serverText=runat=HserverHText二个人中心End IfEnd SubProtect

27、ed Sub Page Load(sendet As Object, e As EventArgs) Handles Me. LoadIf (Session(1 ogin_name) Nothing) ThenButtonl. Text =个人中心Else : Buttonl. Text =登陆End IfDimcormAsNewSqlConnect ion (server二；database二fwcz； uid二sa； pwd二91569；，f)Dim sqltext As String = select * from Fw conn. Open()Dim sqlcmd As SqlComm

28、and = New SqlCommand(sqltext, corm)Dim objectreader As SqlDataReaderDim i As IntegerDim fw As Stringobjectreader = sqlcmd ExecuteReader ()fw = Mfw +=For i = 0 To objectreader FieldCount一1fw += + objectreader. GetName(i) + Nextfw +=ffffWhile objectreader Read()fw +=wffFor i = 0 To objectreader FieldC

29、ount - 1fw +=MM+ CStr(objectreader. GetValue(i) + Nextfw +=ttwEnd Whilefw +=/tableLabel1. Text = fwEnd SubProtected Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.ClickDimcormAsNewSqlConnection (server二.；database二fwcz；uid二sa； pwd二91569；)Dim sql As Stringsql = select * from Fw wh

30、erenIf (DropDownListl. Text. Trim() ”)Thensql +=类型二+ DropDownListl. Text. Trim() +Elself (TextBoxl. Text. Trim() ) Thensql +=街道like + TextBoxl. Text. Trim() +Elself (TextBox2. Text. Trim() And TextBox3. Text. Trim() Thensql += ”价格BETWEEN + TextBox2. Text. Trim() + and + TextBox3. Text.Trim() +ElseRe

31、sponse. Write(，rwindow. alert (r请选择 一项！)；n)Exit SubEnd IfTryconn. Open()Dim sqlcmd As SqlCommand = New SqlCommand(sql, conn)Dim objectreader As SqlDataReaderDim i As IntegerDim fw As String objectreader = sqlcmd ExecuteReader () fw =,Frfw +=wttFor i = 0 To objectreader FieldCount - 1fw += + objectre

32、ader. GetName(i) + Nextfw +=,wWhile objectreader Read()fw +=ffwFor i = 0 To objectreader FieldCount一1 fw +=，rH+ CStr(objectreader. GetValue(i) + Nextfw +=wffEnd Whilefw +=wwLabel1. Text = fwCatch ex As ExceptionResponse. Write (,window. alert (连 接数据 库失败)；r)End Tryconn. CloseOEnd SubEnd Class5.注册页面用户

33、注册用户名:验证用户名前端代码: h2用户注册/asp：Label/asp: TextBoxXbr/Xbr/后台代码:Imports System .Data .SqlClientImports System DataPartial Class fgpwdaspxInherits System .Web UI PageProtected Sub yzidClick(sender As Object, e As EventArgs) Handles yzid ClickDim id As String = idtext.Text Trim()DimcormAsNewSqlConnection (

34、server二.；database二fwcz；uid二sa； pwd二91569；)Dim sqltext As String = select * from User where id = h+ id + if i irTryconn. Open ()Dim sqlcom As SqlCommand = New SqlCommand(sqltext, conn) If sqlcom.ExecuteScalar () Nothing ThenResponse. Write (，alert (此用 户名已 存在！)ElseResponse. Write (，ralert (恭喜此用户名可用!)w

35、)End Ifconn. Close ()If conn. State = ConnectionState 0pen Thenconn. CloseOEnd IfText=M密runat=Hserver0Text=M密 码:runat=，serverMText=,r提交trCatch ex As ExceptionEnd TryEnd SubProtected Sub login_Click(sender As Object, e As EventArgs) Handies login. ClickDim id As String = idtext.Text Trim()Dim ptextl

36、As String = pwdtextl.Text Trim()Dim ptext2 As String = pwdtext2.Text Trim()If (ptextl = ptext2) ThenDimconnAsNewSqlConnect ion (server二；database二fwcz； uid二sa； pwd二91569；，f)Dim sqltext As String = INSERT INTO User (id,pwd) values (+ id +ptextl +conn. Open()Dim sqlcom As SqlCommand = New Sql Comma nd

37、(sqltext, conn) sqlcom.ExecuteNonQuery ()Session. Add (login nameid) conn. Close ()Response. Write(,ralert (F注册 成 功 ！r)；window. location. href =ruser aspx/script)If conn. State = ConnectionState 0pen Thenconn. Close ()End IfElse : Response. Write(Malert (*两次密码输入不同！)M)End IfEnd SubEnd Class6、发布信息页面房屋出租发布房屋类型：I 套房V所在街道：定价：元W前端代码： 房屋出租发布 /asp： List Item 后台代码:Imports System .Data .SqlClientImports System