网页课程设计售后服务管理系统文档格式.docx
《网页课程设计售后服务管理系统文档格式.docx》由会员分享,可在线阅读,更多相关《网页课程设计售后服务管理系统文档格式.docx(37页珍藏版)》请在冰点文库上搜索。
TypeId
int
记录编号,主键
2
TypeName
varchar(50)
信息名称
3
Flag
tinyint
信息类别。
1表示客户行业;
2表示问题类型
3.2客户信息表Customers
表Customers用来保存客户信息,表结构如表5.2所示。
表2表Customers的结构
CustId
CustName
varchar(200)
客户名称
Address
varchar400)
通信地址
4
Postcode
varchar(40)
邮政编码
5
AreaName
所属地域
6
BTypeId
所属行业
3.3员工信息表Employees
表Employees用来保存员工题信息,表结构如表5.3所示。
表3表Employees的结构
EmpId
EmpName
员工姓名
Esex
char
(2)
性别
ETitle
职务
DepName
所属部门
3.4问题记录表Records
表Despatch用来保存客户投诉的问题信息,表结构如表5.4所示。
表4表Records的结构
RecId
问题记录编号,主键
客户编号
Contact
问题联系人
RTitle
问题题目
问题类型编号
Status
varchar(20)
记录状态(未处理、已提交、已分配、已解决)
7
RDetail
varchar(2000)
问题描述
8
SolveDate
要求解决日期
9
Poster
录入人
10
Createdate
datetime
创建日期
3.5工作任务分配表Despatch
表Despatch用来保存工作任务的分配信息,表结构如表5.5所示。
表5表Despatch的结构
问题记录编号
DempId
分配人编号
REmpId
负责人编号
DSuggest
Varchar(1000)
分配人处理建议
DDate
分配人处理日期
PostDate
问题提交日期
3.6工作任务记录表Tasks
表Tasks用来保存工作任务的完成情况,表结构如表5.6所示。
表6表Tasks的结构
TaskId
任务编号,主键
StartDate
开始解决日期
EndDate
结束日期
SolveWay
问题解决方式
TPlace
varchar(100)
问题解决地点
TDetail
具体内容
LostMemo
varchar(1000)
遗留问题
Creator
创建人
3.7客户服务调查表Incestigates
表Incestigates用来记录客户服务调查的反馈信息,表结构如表5.7所示。
表7表Incestigates的结构
InvId
问题编号
被调查人
InvDate
调查日期
InvWay
调查方式
Evaluate
总体评价
Summary
varchar(500)
客户意见和建议
调查人
3.8常见问题记录表Faqs
表Faqs用来保存客户的常见问题信息,表结构如表5.8所示。
表8表Faqs的结构
FaqId
记录编号
FTitle
题目
题目类型
CreateDate
FDetail
varchar(4000)
3.9用户信息表Users
数据类型
UserName
用户名,主键
员工编号
UserPwd
Varchar(40)
密码
UserType
用户类型(0表示系统管理员用户,1表示工程师用户,2表示审批经理用户)
用户信息表Users用来保存系统用户信息。
表Users的结构如表5.9所示。
表9表Users的结构
4.详细设计
4.1目录结构
4.1.1class保存数据库访问类。
4.1.2pic用于存储网页中的图片文件。
4.2通用模块
本设计中包含一些通用模块,这些模块以文件的形式保存,可以在其他文件中使用#include语句包含这些模块,进而使用其中定义的功能。
4.2.1ConnDB.asp
功能是实现到数据库的连接。
<
%
DimConn
DimConnStr
SetConn=Server.CreateObject("
ADODB.Connection"
)
ConnStr="
Provider=SQLNCLI.1;
Password=sa;
PersistSecurityInfo=True;
UserID=sa;
InitialCatalog=Classmates;
DataSource=localhost"
Conn.OpenConnStr
%>
4.2.2IsAdmin.asp
功能是判断当前用户是否是管理用户。
IfSession("
UserName"
)="
"
ORSession("
UserType"
)<
>
1Then
Response.Write("
不是Admin用户,没有此权限!
Response.Redirect("
Login.asp"
EndIf
4.2.3IsUser.asp
判断用户是否已经登录。
%
'
从Session变量中读取注册用户信息,并连接到数据库验证
UserId=Trim(Session("
UserId"
))
Pwd=Trim(Session("
UserPwd"
如果用户名为空,则显示提示信息
IfUserName="
Then
请登录后使用本系统!
Response.End
Else
连接数据库,进行身份验证
……
4.2.4Function.asp
定义了一个isAdmin对象,用于返回当前用户的用户类型
FunctionisAdmin()
isAdmin=-1
‘从Session变量中读取用户信息
UserName=Trim(Session(“UserPwd”))
UserPwd=Trim(Session(“UserPwd”))
‘用户名是否为空
IfUserName<
””Then
Serusr=NewUsers
User.UserName=UserName
User.UserPwd=UserPwd
isAdmin=usr.GetUserType()
EndFunction
4.2.5设计数据库访问类
类Customers的属性如下:
PublicCustId‘客户编号
PublicCustName‘客户姓名
PublicAddress‘联系地址
PublicPostcode‘邮政编码
PublicAreaName‘所在地域
PublicBTypeId‘行业类型
Publicrs'
结果集
4.2类型设计界面
图2类型设计界面
4.4登陆主界面
图3主界面index.asp
4.5更改密码界面
图4更改密码界面
4.6客户信息管理界面
图5客户信息管理界面
4.7员工信息管理界面
图6员工信息管理界面
4.8问题信息管理界面
图7问题信息管理界面
4.9问题分配管理界面
图8问题分配管理界面
4.10工作任务管理界面
图9工作任务管理界面
4.11服务调查管理界面
图10服务调查管理界面
4.12常见问题管理界面
图11常见问题管理界面
4.13用户管理模块设计界面
图12服务调查管理界面
5.效果及存在问题
5.1运行测试
网站上传到服务器前在不同浏览器的环境中进行了测试,经过测试:
(1)网站能够在不同的浏览器下能正常打开。
(2)网站所有的网页元素显示正常。
(3)测试网站中不存在中断的链接,所有的链接都能够达到预定的效果。
网站所有界面运行正常。
由于界面数目较多,在此仅选择几个界面的运行图。
5.2运行效果
5.2.1提交问题界面
图13提交问题界面
5.2.2解决工作任务界面
图14解决工作任务界面
6.设计体会
通过本次课程设计,培养了自己综合运用所学知识,发现、提出、分析、解决实际问题的能力。
巩固了所学的知识,开阔了视野,积累了经验,掌握了动态网站开发技术和技巧,独立工作能力得到了很大提升,为日后从事开发类相关工作打下了良好的基础。
7.参考文献
(1)侯文彬.网页设计教程[M].北京:
清华大学出版社.2005.P36-54
(2)王黎.网页设计与制作[M].沈阳:
东北大学出版社.2003.P89-112
(3)李秀正.网页设计与实现[M].北京:
电子工业出版社.2006.P156-178
8.附录(部分源代码)
!
--#includefile="
Conndb.asp"
-->
class/Customers.asp"
class/Types.asp"
html>
metahttp-equiv="
Content-Type"
content="
text/html;
charset=gb2312"
title>
客户信息管理<
/title>
linkrel="
stylesheet"
type="
text/css"
href="
style.CSS"
scriptlanguage="
javascript"
functionnewView(url){
varoth="
toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200"
;
oth=oth+"
width=500,height=250"
varnewView=window.open(url,"
newView"
oth);
newView.focus();
returnfalse;
}
/script>
bodylink="
#000080"
vlink="
#080080"
palign="
center"
fontcolor="
b>
fontstyle="
font-size:
12pt"
客户信息管理<
/font>
/b>
/p>
tablealign=centerborder="
1"
cellspacing="
0"
width="
100%"
bordercolorlight="
bordercolordark="
#FFFFFF"
<
tr>
tdwidth="
24%"
align="
bgcolor="
#eeeeee"
strong>
客户名称<
/strong>
/td>
通信地址<
14%"
邮政编码<
12%"
所在地域<
所属行业<
10%"
操作<
/tr>
读取数据到记录集rs中
Setcst=NewCustomers
Settp=NewTypes
cst.GetCustomerlist()
在表格中显示客户信息
Ifcst.rs.EofThen
Response.Write"
tdcolspan=6align=center>
目前还没有客户信息。
/table>
DoWhileNotcst.rs.EOF
读取行业名称
tname=tp.GetTypeName(cst.rs("
BTypeId"
%>
td>
%=cst.rs("
CustName"
)%>
/a>
Address"
&
nbsp;
tdalign="
Postcode"
AreaName"
%=tname%>
ahref="
CustEdit.asp?
action=edit&
cid=<
CustId"
onClick="
returnnewView(this.href)"
修改<
CustDelt.asp?
onClick="
删除<
<
cst.rs.MoveNext()
Loop
cst.rs.Close
tp.rs.Close
%EndIf%>
inputtype="
button"
value="
添加客户信息"
onclick="
newView('
action=add'
)"
name=add>
/body>
/html>
../Conndb.asp"
../class/Departments.asp"
head>
部门管理<
functionform_onsubmit(obj)
{
ValidationPassed=true;
if(obj.txttitle.value=="
){
alert("
请输入数据"
);
ValidationPassed=false;
returnValidationPassed;
}
}
../style.CSS"
处理添加、修改和删除操作
dimSoperate'
保存当前执行的操作
dimdpName'
保存当前编辑的记录名称
dimOperid'
保存当前编辑的记录编号
Soperate=Request.QueryString("
oper"
Operid=Request.QueryString("
did"
删除数据
IfSoperate="
delete"
判断此数据是否在表Employees中使用
'
通过上述判断后,才可以删除数据
SetDep=NewDepartments
Dep.DeleteDepartment(Operid)
成功删除!
添加
ElseIfSoperate="
add"
then
dpName=Request.Form("
txttitle"
)'
接受用户输入的名称数据
判断表Departments中是否已经存在此数据
SetDep=NewDepartments
Dep.DepName=dpName
IfNotDep.HaveDepartment(dpName)Then
如果没有此名称,则创建新记录
Dep.InsertDepartment()
成功添加!
Resp