报告

2020-03-03 05:22:52 来源：范文大全收藏下载本文

《互联网软件应用与开发》

课程设计报告

学

号：18 姓

名：吴冬冰班

级：计信S2010-1 专

业：计算机信息管理指导老师：李原设计时间：2010年12月

湖南工业职业技术学院

一、设计题目及要求 ........................................................................................................2

二、程序清单...................................................................................................................2

三、数据库设计 ...............................................................................................................3

四、界面设计...................................................................................................................5 1.会员注册登录.....................................................................................................5 2.留言簿 ...............................................................................................................6 3.购物广场............................................................................................................7 4.聊天室 ...............................................................................................................8

五、程序代码及实现步骤 .................................................................................................8 5.6.7.8.9.模板代码： .................................................................................................8 会员注册： .................................................................................................9 留言簿：...................................................................................................12 购物广场： ...............................................................................................14 聊天室：...................................................................................................18

六、实训总结.................................................................................................................20

一、设计题目及要求

题目：网上购物

功能：在主页注册成功的用户可以进入商场购买东西，也可以在留言版面进行会话和留言。

步骤：

1、在SQL Server 上创建BOOKSHOP数据库，并且为该数据库创建表。

2、在IIS上创建应用程序BOOKSHOP。

3、创建主页，在主页上实现用户登录、注册用户和购买商品等功能。

4、创建注册页面，用于用户注册。

5、创建留言版，用于用户发表意见。

二、程序清单

文件夹名： 18吴冬冰。

数据库：meage.mdb、shopping.mdb、user.mdb 会员注册与登录：huiyuanzhuce.aspx（注册页面）、login_result.aspx(注册成功页面) 留言簿：show.aspx、show1.aspx、meage.aspx、

2 聊天室：login.aspx、send.aspx、register.aspx、register_result.aspx、register_show.aspx、num.txt（计数器）购物广场： shopping1.aspx、shopping2.aspx、shopping3.aspx、shopping4.aspx、

三、数据库设计

聊天室数据库：用于存储用户的聊天信息。留言簿的数据库：用于存储用户的留言信息。购物广场的数据库：用于存储注册用户的信息。

聊天室数据库

留言簿的数据库

购物广场的数据库

四、界面设计

1.会员注册登录

注册成功登录成功

2.留言簿

留言

查看留言

6 3.购物广场

购物主界面购物袋

商品选择

7 4.聊天室

登录聊天

五、程序代码及实现步骤

5.模板代码：

Imports System.Data Imports System.Data.OleDb Public Cla Cla1 Function createdatads(ByVal strsql As String, ByVal filename As String, ByVal tablename As String) As System.Data.DataSet

Dim objconn As New OleDbConnection()

objconn.Open()

Dim objdal As New OleDbDataAdapter(strsql, objconn)

Dim ds As New DataSet()

objdal.Fill(ds, tablename)

createdatads = ds

objconn.Close() End Function Function executesql(ByVal strsql As String, ByVal filename As String) As OleDbDataReader

Dim objconn As New OleDbConnection

objconn.ConnectionString = \"provider=microsoft.jet.oledb.4.0;data source=\" & filename

objconn.Open()

Dim objcmd As New OleDbCommand(strsql, objconn)

executesql = objcmd.ExecuteReader() End Function End Cla

6.会员注册：

huiyuanzhuce.aspx Imports System.Data Imports System.Data.OleDb Partial Cla _Default Inherits System.Web.UI.Page Public Function connect(ByVal sql As String, ByVal filename As String) As OleDbDataReader

Dim conn As New OleDbConnection()

conn.ConnectionString = \"provider=microsoft.jet.oledb.4.0;data source=\" & filename

conn.Open()

Dim cmd As New OleDbCommand(sql, conn)

Dim dr As OleDbDataReader

dr = cmd.ExecuteReader()

connect = dr End Function Protected Sub login_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles login.Click

Dim dr As OleDbDataReader

Dim sql As String

sql = \"select * from register where userid=\'\" & userid.Text & \" \' and pwd=\'\" & pwd.Text & \" \'\"

dr = connect(sql, Server.MapPath(\"user.mdb\"))

If dr.Read() Then

Response.Redirect(\"login_result.aspx\")

Else

Response.Write(\"用户名和密码不对，或该用户名不存在，请重新输入!\")

End If End Sub Protected Sub register_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles register.Click

Dim dr As oledbdatareader

Dim sql As String

sql = \"select * from register where userid=\'\" & userid.Text & \" \' \"

dr = connect(sql, Server.MapPath(\"user.mdb\"))

If dr.read() Then

Response.Write(\"该用户已经存在，请重新输入用户名!\")

Else

Seion(\"userid\") = userid.Text

Response.Redirect(\"register.aspx\")

End If End Sub End Cla

register.aspx Imports System.Data Imports System.Data.OleDb Partial Cla register Inherits System.Web.UI.Page Protected Sub confirm_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles confirm.Click

Seion(\"userid\") = userid.Text

Seion(\"pwd\") = pwd.Text

Seion(\"name\") = name.Text

Seion(\"card\") = card.Text

Seion(\"sex\") = sex.Text

Seion(\"age\") = age.Text

Seion(\"email\") = email.Text

Seion(\"phone\") = phone.Text

Response.Redirect(\"register_show.aspx\") End Sub Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Response.Redirect(\"huiyuanzhuce.aspx\") End Sub 10 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub End Cla

register_result.aspx Partial Cla register_result Inherits System.Web.UI.Page Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

Response.Redirect(\"huiyuanzhuce.aspx\") End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub End Cla

register_show.aspx Imports System.Data Imports System.Data.OleDb Partial Cla register_show Inherits System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim userid, pwd, name, card, sex, age, email, phone As String

userid = Seion(\"userid\")

pwd = Seion(\"pwd\")

name = Seion(\"name\")

card = Seion(\"card\")

sex = Seion(\"sex\")

age = Seion(\"age\")

email = Seion(\"email\")

phone = Seion(\"phone\")

response.Write (\"用户名:\" & userid & \"\" & \"密码:\" & pwd & \"\" & \"真实姓名:\" & name & \"\" & \"身份证号码:\" & card & \"\" & \"性别:\" & sex & \"\" & \"年龄:\" & age & \"\" & \"电子邮件:\" & email & \"\" & \"电话:\" & phone & \"\") End Sub Protected Sub register_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles register.Click 11

Dim dr As OleDbDataReader

Dim sql, userid, pwd, name, card, sex, email, phone As String

Dim age As Integer

userid = Seion(\"userid\")

pwd = Seion(\"pwd\")

name = Seion(\"name\")

card = Seion(\"card\")

sex = Seion(\"sex\")

age = Seion(\"age\")

email = Seion(\"email\")

phone = Seion(\"phone\")

Dim conn As New OleDbConnection()

conn.ConnectionString = \"provider=microsoft.jet.oledb.4.0;data source=\" & Server.MapPath(\"user.mdb\")

conn.Open()

sql = \"insert into register values(\'\" & userid & \"\',\'\" & pwd & \"\',\'\" & name & \"\',\'\" & card & \" \',\'\" & sex & \"\',\" & age & \",\'\" & email & \"\',\'\" & phone & \"\')\"

Dim cmd As New OleDbCommand(sql, conn)

cmd.ExecuteNonQuery()

Response.Redirect(\"register_result.aspx\") End Sub End Cla

7.留言簿：

shopping1.aspx Imports System.Data Imports System.Data.OleDb Partial Cla meage Inherits System.Web.UI.Page Protected Sub btnsubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsubmit.Click

Dim objconn As New OleDbConnection

objconn.ConnectionString = \"provider=microsoft.jet.oledb.4.0;data source=\" & Server.MapPath(\"meage.mdb\")

objconn.Open()

Dim strsql As String

strsql = \"insert into 留言簿(留言者,电子邮件,IP,留言内容,留言日期) values(\'\" & username.Text & \"\',\'\" & email.Text & \"\',\'\" &

12 Request.UserHostAddre & \"\',\'\" & content.Text & \"\',\'\" & System.DateTime.Now & \"\')\"

Dim objcmd As New OleDbCommand(strsql, objconn)

objcmd.ExecuteNonQuery()

objconn.Close()

Response.Redirect(\"show1.aspx\") End Sub End Cla

meage.aspx Imports System.Data Imports System.Data.OleDb Partial Cla meage Inherits System.Web.UI.Page Protected Sub btnsubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsubmit.Click

Dim objconn As New OleDbConnection

objconn.ConnectionString = \"provider=microsoft.jet.oledb.4.0;data source=\" & Server.MapPath(\"meage.mdb\")

objconn.Open()

Dim strsql As String

strsql = \"insert into 留言簿(留言者,电子邮件,IP,留言内容,留言日期) values(\'\" & username.Text & \"\',\'\" & email.Text & \"\',\'\" & Request.UserHostAddre & \"\',\'\" & content.Text & \"\',\'\" & System.DateTime.Now & \"\')\"

Dim objcmd As New OleDbCommand(strsql, objconn)

objcmd.ExecuteNonQuery()

objconn.Close()

Response.Redirect(\"show1.aspx\") End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load End Sub End Cla

13 8.购物广场：

shopping1.aspx Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not IsPostBack Then

Seion(\"iscookieopen\") = \"set in page_load\"

Dim rd As OleDbDataReader, sql As String

sql = \"select * from 类别\"

rd = executesql(sql, Server.MapPath(\"shopping.mdb\"))

Dim i As Integer

While rd.Read()

category.Items.Add(rd.Item(\"类别名称\"))

category.Items(i).Value = rd.Item(\"类别编号\")

i += 1

End While

End If End Sub Protected Sub LinkButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton1.Click

Label2.Text = \"\"

If Seion(\"iscookieopen\") \"set in page_load\" Then

Label2.Text = \"进入购物前，请先启用 cookie,之后,再重新启用浏览器！\"

Exit Sub

End If

Dim sel = category.SelectedItem

If Not sel Is Nothing Then

Response.Redirect(\"shopping2.aspx?类别名称=\" & sel.text & \"&类别编号=\" & sel.value)

End If End Sub Protected Sub LinkButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles LinkButton2.Click

Response.Redirect(\"shopping3.aspx\") End Sub End Cla

Shopping2.aspx Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim category_name, category_id As String

category_name = Request.QueryString(\"类别名称\")

Label1.Text = category_name

category_id = Request.QueryString(\"类别编号\")

If category_id = 0 Or category_name = \"\" Then

Response.Redirect(\"shopping1.aspx\")

End If

If Not IsPostBack Then

Dim sql As String

sql = \"select * from 商品 where 类别=\" & category_id

Dim ds As Data.DataSet

ds = createdatads(sql, Server.MapPath(\"shopping.mdb\"), \"商品\")

Dim tablel As Data.DataTable = ds.Tables(\"商品\")

tablel.Columns.Add(New Data.DataColumn(\"购买\", GetType(Boolean)))

tablel.Columns.Add(New Data.DataColumn(\"数量\", GetType(Integer)))

Dim i As Integer

For i = 0 To tablel.Rows.Count1

Dim cb As CheckBox = mygrid.Items(i).FindControl(\"buyit\")

Dim lb As Label = mygrid.Items(i).FindControl(\"productid\")

Dim tb As TextBox = mygrid.Items(i).FindControl(\"quantity\")

If cb.Checked And Val(tb.Text) > 0 Then

If Not hash.ContainsKey(lb.Text) Then

hash.Add(lb.Text, CInt(Val(tb.Text)))

Else

hash(lb.Text) += CInt(Val(tb.Text))

End If

End If 15

Seion(\"购物袋\") = hash

Response.Redirect(\"shopping3.aspx\") End Sub End Cla

Shopping3.aspx Sub shoplist()

Dim hash As Hashtable

Dim 总价格 As Long

If Seion(\"购物袋\") Is Nothing Then

hash = New Hashtable

Else

hash = Seion(\"购物袋\")

End If

If hash.Count = 0 Then msg.Text = \"现在购物袋是空的！\"

Dim arrkey(hash.Count1) As Integer

Dim products As String

hash.Keys.CopyTo(arrkey, 0)

hash.Values.CopyTo(arrval, 0)

products = \"(\'\" & Join(arrkey, \" \' , \'\") & \"\')\"

Dim sql As String

Dim ds As Data.DataSet

sql = \"select * from 商品 where 编号 in\" & products

ds = createdatads(sql, Server.MapPath(\"shopping.mdb\"), \"商品\")

Dim tablel As Data.DataTable = ds.Tables(\"商品\")

tablel.Columns.Add(New Data.DataColumn(\"数量\", GetType(Integer)))

Dim keys() As Data.DataColumn = {tablel.Columns(\"编号\")}

tablel.PrimaryKey = keys

Dim x As String

For Each x In hash.Keys

tablel.Rows.Find(x).Item(\"数量\") = hash.Item(x)

tablel.Columns.Add(New Data.DataColumn(\"总价\", GetType(Long), \"价格 * 数量\"))

Dim i As Integer

For i = 0 To tablel.Rows.Count - 1

总价格 += tablel.Rows(i).Item(\"总价\")

Next 16

msg.Text = 总价格

mygrid.DataSource = tablel.DefaultView

mygrid.DataBind() End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

msg.Text = \"\" If Not IsPostBack Then

shoplist()

End If End Sub Protected Sub mygrid_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles mygrid.ItemCommand

Dim hash As Hashtable

If Seion(\"购物袋\") Is Nothing Then

hash = New Hashtable

Else

hash = Seion(\"购物袋\")

End If

If hash.ContainsKey(mygrid.DataKeys(e.Item.ItemIndex)) Then

hash.Remove(mygrid.DataKeys(e.Item.ItemIndex))

End If

Seion(\"购物袋\") = hash

shoplist() End Sub End Cla

Shopping4.aspx Partial Cla _Default Inherits System.Web.UI.Page

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim hash As Hashtable

If Seion(\"购物袋\") Is Nothing Then

hash = New Hashtable

Else

hash = Seion(\"购物袋\")

End If

hash.Clear() 17

Response.Redirect(\"shopping3.aspx\") End Sub End Cla

9.聊天室：

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not Page.IsPostBack Then

lbldate.Text = System.DateTime.Today.ToLongDateString()

Select Case Weekday(Now)

Case 1 : lbldate.Text = lbldate.Text + \"星期日\"

Case 2 : lbldate.Text = lbldate.Text + \"星期一\"

Case 3 : lbldate.Text = lbldate.Text + \"星期二\"

Case 4 : lbldate.Text = lbldate.Text + \"星期三\"

Case 5 : lbldate.Text = lbldate.Text + \"星期四\"

Case 6 : lbldate.Text = lbldate.Text + \"星期五\"

Case 7 : lbldate.Text = lbldate.Text + \"星期六\"

End Select

lblnum.Text = \"您是本网站第\" & Application(\"num\") & \"位客人\"

End If End Sub

Protected Sub Submitok_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Submitok.ServerClick

If Request.Form(\"txtname\") \" \" And Request.Form(\"paword\") \" \" Then

Seion(\"username\") = Trim(Request.Form(\"txtname\"))

Response.Redirect(\"chat.htm\")

End If End Sub End Cla

18 send.aspx Partial Cla send Inherits System.Web.UI.Page

Protected Sub Submitsend_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Submitsend.ServerClick

If Request.Form(\"txtmeage\") \" \" Then

Dim strusername, strcontent, arrtemptalk() As String

Dim id, i As Integer

Application.Lock()

If Application(\"talkid\") >= 10 Then

For i = 0 To 8

Application(\"talkcontent\")(i) = Application(\"talkcontent\")(i + 1)

Application(\"talkid\") -= 1

End If

strusername = Seion(\"username\")

strcontent = Server.HtmlEncode(Request.Form(\"txtmeage\"))

arrtemptalk = Application(\"talkcontent\")

id = Application(\"talkid\")

arrtemptalk(id) = \"\" + \" \" + strusername + \"在\"

arrtemptalk(id) += \"\" + CStr(TimeOfDay())

arrtemptalk(id) += \"说道：\" + \"\"

arrtemptalk(id) += strcontent + \"\"

id += 1

Application(\"talkid\") = id

Application(\"talkcontent\") = arrtemptalk

Application.UnLock()

End If End Sub End Cla

六、实训总结

动态网页实训就快结束了，在这短短的两周里，我学会了很多新的知识，更掌握了新的技能，让我觉得受益匪浅。

通过这次个人网页的制作，我对计算机有了更深层次得到了解，也有了更浓厚的兴趣。尤其是对网页制作的过程与一些技巧手法更有了另外一番了解，对网页制作的基础知识也有了一定的掌握。通过把自己的网页上传到互联网上，对文件的保存、上传、下载以及修改等知识有了更牢靠的掌握。通过自己的努力完成了自己上传到网上的第一个作品，那种成就感是无法用语言形容的。所以我觉得这次制作网页我已经达到了自己的目的，而不是单单为了完成作业而已。这是一个完全关于自己的个人网页，既然是介绍自己，就应该让观者在浏览了之后了解自己其人

关键字页面设计 ASP和数据库

1.一般来说，个人主页的选材要小而精。如果你想制作一个包罗万象的站点，把所有您认为精彩的东西都放在上面，那么往往会事与愿违，给人的感觉是没有主题，没有特色，样样有却样样都很肤浅，因为您不可能有那么多的精力去维护它。注意：网页的最大特点就是更新快。目前最受欢迎的个人主页都是天天更新甚至几小时更新一次。

2.题材最好是你自己擅长或者喜爱的内容。比如：您对诗歌感兴趣，可以放置自己的诗词；对足球感兴趣，可以报道最新的球场战况等等。这样在制作时，才不会觉得无聊或者力不从心。

3.不要太滥或者目标太高。“太滥”是指到处可见，人人都有的题材；“目标太高”是指在这一题材上已经有非常优秀，知名度很高的站点，你要超过它是很困难的。

选定了一个好的题材，是不是可以立刻动手制作了？不，经验告诉我们，必须要先规划框架。这是很重要的一步！每个网站都是一项庞大的工程。好比造高楼，没有设计图纸，规划好结构，盲目的建造，结果往往是倒塌；也好比写文章，构思好提纲，才不至于逻辑混乱，虎头蛇尾。全面仔细规划架构好自己网站，不要急于求成。

规划一个网站，可以用树状结构先把每个页面的内容大纲列出来，尤其当你要制作一个很大的网站 (有很多页面) 的时候，特别需要把这个架构规划好，也要考虑到以后可能的扩充性，免得做好以后又要一改再改整个网站的架构，十分累人，也十分费钱。

20 大纲列出来后，你还必须考虑每个页面之间的链接关系。是星形，树形，或是网形链接。这也是判别一个网站优劣的重要标志。链接混乱，层次不清的站点会造成浏览困难，影响内容的发挥。

为了提高浏览效率，方便资料的寻找，本站的框架基本采用“蒲公英”式，即所有的主要链接都在首页上，链接的层次不多，深度浅。

框架定下来了，然后开始一步一步有条理，有次序地做来，就胸有成竹得多，也为你的主页将来发展打下良好的基础。

下一步，你可以动手制作具体内容了，我将告诉你一些收集资料的窍门。

题材选定，框架选定，接下来就开始往主页里面填内容。我们称作资料收集

就个人主页而言，很少有人有能力完全靠自己来创作所有的内容。（一些高手能够提供自己编的软件，文章或则音乐，是我非常佩服的！）

大部分人的方法是：从报纸，杂志，光盘等媒体中把相关的资料收集整理，再加上一定的编辑后就可以了。

另外一个好的方法是从网络上收集，您只要到雅虎，搜狐等搜索引擎上查找相应的关键字，就可以找到一大堆的资料。

将本文的Word文档下载到电脑，方便收藏和打印

推荐度：

点击下载文档

报告

相关推荐