2网站规划与网页设计.docx
- 文档编号:27175497
- 上传时间:2023-06-27
- 格式:DOCX
- 页数:17
- 大小:419.99KB
2网站规划与网页设计.docx
《2网站规划与网页设计.docx》由会员分享,可在线阅读,更多相关《2网站规划与网页设计.docx(17页珍藏版)》请在冰豆网上搜索。
2网站规划与网页设计
《动态网站规划与网页设计》期末作业报告
电子信息工程学院计算机科学系10计科专升本一班******学号:
******
一、网站的整体设计意图及其功能
近几年,考研人数越来越多,对考研用品的需求逐年上升,利用电子商务的行销越来越强。
本网站为解决考研资料共享的问题而设计,统计考生等各类消费者购买需求,并通知厂商按照客户需求进行生产,即连接生产者和消费者之间的信息桥。
并且可以向考生宣传公司的各种专用考研用品,依托现在价格低廉的快递,向其提供质优价廉的产品,充分满足考生的各种需求,给众多考研的学生提供了信息共享和交流的场所。
二、网站设计中使用的技术
①Html:
超级链接图片表格表单等的页面处理技术
②Css+div:
布局定位字体文本边框
③VBScript:
内部对象事件驱动表单检验特效应用
④asp为动态的、交互式的web服务器应用程序提供一种功能强大的技术。
⑤ActiveX组件:
ADO,FileAccess技术来实现数据库的连接、查询以及操作数据库。
以及用Access实现数据库的创建。
三、网站正确运行所需要的环境以及参数设置
网站正确运行所需要的环境分别有:
IIS5.0和aspsweb
IIS5.0的参数设置是:
在“开始”中的“设置”中点击“管理工具”中的“信息服务”创建“虚拟目录”,填写虚拟目录名字后选中网站根目录。
四、详细设计
4.1每个网页文件的名称及其功能
文件名
功能描述
index.asp
网站的主控界面及完成分页功能
index_login.asp
处理学生登录的页面
zhuce.asp
处理未注册的学生注册的页面
zhuce_info.asp
学生填写好注册信息后提交给该页面处理注册信息
English.asp
介绍有关英语的考研资料
post.asp
留言本主控界面及完成分页显示功能
add.asp
书写留言界面
sava.asp
书写留言界面的合法性检查,并将正确留言希尔到留言数据表中
login.asp
管理员登陆界面
chklogin.asp
检查管理员的账号及输入密码。
loginerr.asp
错误信息显示
manage.asp
管理员主界面
DEL.ASP
删除选择的留言记录
sysupdate.asp
修改管理员的相关数据
math.asp
介绍有关数学的考研资料
zhengzhi.asp
介绍有关政治的考研资料
conn.asp
定义数据库的包含文件
counter.asp和Counter.txt
实现计数功能
4.2界面设计:
(附图)
(1)整体效果:
整体风格的设计实现,CSS的应用;
本网张使用css+div实现网页的布局和定位
(2)主界面设计:
LOGO的设计,标题广告、链接菜单及版权信息显示区的定位说明;
(3)各个子页面的设计。
注册页面
注册成功
否则
留言区页面
4.3数据库设计:
数据库管理系统统一采用Access,描述表结构的建立(如下表)及各表之间的关系:
student_注册(考研学生注册)
字段名
字段类型
宽度
字段属性
说明
用户名
文本
12
主键,不允许为空字符串
学生姓名
密码
文本
12
不允许为空字符串
学生登录网站的密码
性别
是/否
不允许为空字符串
学生性别
所在地
文本
20
不允许为空字符串
学生的通讯地址
出生年月
日期/时间
不允许为空字符串
学生的出生年月
问题
文本
15
不允许为空字符串
学生信息保护问题
答案
文本
15
不允许为空字符串
问题答案
sysadmin(考研网站管理员信息表)
字段名
字段类型
宽度
字段属性
说明
sysname
文本
12
主键,不允许为空字符串
管理员姓名
sysid
文本
12
不允许空字符串
管理员账号
sysemail
文本
15
不允许空字符串
管理员email地址
gonggao
文本
40
不允许空字符串
管理员发布的公告
pagesize
数字
整型
不允许空字符串
留言每页显示的条数
Lyinfo(留言内容表)
字段名
字段类型
宽度
字段属性
说明
id
自动编号
主键,不允许为空
留言编号
name
文本
12
不允许为空字符串
留言者编号
文本
15
不允许为空字符串
留言者email地址
Ipaddr
文本
15
允许为空字符串
留言者IP地址
neirong
备注
允许为空
留言内容
dt
日期/时间
允许为空
留言的日期和时间
4.4.各动态功能实现的具体介绍,分别为注册及登录、计数器及留言板等功能。
•session对象用于分别保存每一个用户信息的对象,以便于跟踪用户的操作状态。
•request对象用于接收所有从浏览器发送到服务器的请求内的所有信息。
•respose对象它有很多功能和request对象相匹配。
登录
<%ifsession("stuname")=""then%>
。
。
。
。
。
。
<%else%>
<%endif%>
登录处理
<%
a1=Request.form("username")
a2=Request.form("psw")
sqlstr="select*from用户注册where用户名='"&a1&"'and密码='"&a2&"'"
Rs.opensqlstr,Cn,1,3
Ifnotrs.eofthen
session("username")=a1
Endif
Response.Redirect"index.asp"
%>
注册
。
。
。
。
。
。
<%Ifrequest.QueryString("mess")<>""then%>
<%=request.QueryString("mess")%>
<%Endif%>
。
。
。
。
。
。
注册处理
<%
a1=Request.form("username")
a2=Request.form("psw")
a3=Request.form("sz")
a4=Request.form("cs")
a5=Request.form("mb")
a6=Request.form("da")
a7=Request.form("sex")
a8=Request.form("yj")
sqlstr="select*from用户注册where用户名='"&a1&"'"
Rs.opensqlstr,Cn,1,3
Ifnotrs.eofthen
Response.redirect("zhuce.asp?
mess=对不起!
此用户名已经被占用")
Response.end
Else
Rs.addNew
Rs("用户名")=a1
Rs("密码")=a2
Rs("所在地")=a3
Rs("出生年月")=a4
Rs("密保问题")=a5
Rs("密保答案")=a6
Rs("性别")=a7
Rs("电子邮件")=a8
Rs.Update
Response.redirect("zhuce.asp?
mess=已成功加入用户注册表中")
Endif
%>
计数器
•application对象:
存储一个应用程序中所有用户共享的信息。
<%
FunctionCounts(CounterFile)
DimobjFSO,objTS
Application.Lock
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
SetobjTS=objFSO.OpenTextFile(Server.MapPath(CounterFile),1,True)
IfNotobjTS.AtEndOfStreamThen'检查是否到达文件结尾
Counts=CLng(objTS.ReadLine)
EndIf
Counts=Counts+1
objTS.Close
SetobjTS=objFSO.OpenTextFile(Server.MapPath(CounterFile),2,True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock
EndFunction
%>
留言板:
添加留言
。
。
。
。
。
。
<%
a1=request.form("name")
a2=request.form("neirong")
a3=request.form("email")
strsql="select*fromlyinfo"
rs.openstrsql,conn,1,3
rs.addnew
rs("name")=a1
rs("neirong")=a2
rs("email")=a3
rs("dt")=now()
rs("ipaddr")=request.servervariables("REMOTE_addr")
rs.update
rs.close
%>
管理员登录界面
。
。
。
。
。
检查登录信息
<%
adminame=trim(request.form("username"))
adminpwd=trim(Request.Form("password"))
ifadminame=""then
session("err_mes")="请输入用户名字!
"
response.redirect"loginerr.asp"
response.end
endif
ifadminpwd=""then
session("err_mes")="请输入用户密码!
"
response.redirect"loginerr.asp"
response.end
endif
rs.open"select*fromsysadmin",conn,1,3
ifadminpwd=trim(rs("syspwd"))andadminame=trim(rs("sysid"))then
session("loginid")="true"
response.redirect"manage.asp"
else
session("err_mes")="Sorry,请输入正确的用户名和密码!
"
response.redirect"loginerr.asp"
response.end
endif
%>
管理员主界面
<%
rs.Open"Select*FromlyinfoOrderBydtDESC",conn,1,3
%>
<%ifrs.eofandrs.bofthen%>没有记录!
!
<%else
%>
<%
ifnotrs.eofthen
rs.movefirst
cc=0
dowhilenotrs.eof
cc=cc+1
%>
<%
rs.movenext
loop
endif%>