小区物业管理.docx
《小区物业管理.docx》由会员分享,可在线阅读,更多相关《小区物业管理.docx(17页珍藏版)》请在冰点文库上搜索。
小区物业管理
ASP课程设计报告
设计题目:
小区物业管理
专业班级:
XXXXXXXXXXXXXXXXXXXX
姓名:
XXXXXXXXXXXXXXXXXXX
2012年6月7日
ASP课程设计报告
实验类型__设计__实验室_软件实验室一__
一、实验内容:
小区物业管理系统是为了对小区物业实行计算机化的管理,以提高工作效率,方便用户。
主要功能是对物业费用、停车场管理、水电气费用管理、投诉、报刊订阅情况等进行管理和基本资料管理以及对系统自身的用户权限管理。
提供各种信息的录入,比如投诉人资料、投诉内容及处理过程;物业基本费用、并可对水电气等费用进行基本统计;还包括对业主和房产信息的管理。
物管中心不但含有小区日常项目的信息,而且还包含了查询基本情况的功能。
系统管理主要任务是提高系统安全性和对系统提供良好的维护,如用户权限可以为用户提供权限服务。
二、实验目的:
该系统是以Dreamweaver为开发工具,基于ASP的基础上,以Access2000作为后台数据库开发的小区物业管理系统,力求与实际相结合具有小区日常管理和统计等功能,旨在达到使小区的管理人性化,方便物业管理人员与小区住户信息共享,达到提高管理效率的目的。
三、实现的功能:
1.系统管理员对管理员登陆密码进行修改管理住户资料管理
2.添加:
包括住户的姓名、房产联系电话,迁入时间,房产类型等。
3.管理:
查看及删除用户信息。
(1)投诉管理
投诉添加:
对业主投诉的基本信息及处理结果记录。
管理:
查看和删除投诉信息。
(2)报修管理
报修添加:
对维修过程及处理方式结果等信息管理
管理:
查看和删除报修信息
(3)缴费管理
缴费添加:
列出指定用户应缴费用的清单,包括水电气停车费等。
管理:
查看所有用户的缴费信息,并可进行删除操作。
(4)停车车位管理
添加:
添加车位使用信息。
管理:
查看和删除现有登记的车位信息
四、实验代码:
管理员代码(admin_admin.asp):
--#includefile="CONN.asp"-->
--#includefile="inc/Char.asp"-->
--#includefile="inc/md5.asp"-->
<%
Head()
Data.Admin()
IfData.IsAdmin=falsethen
ErrMsg="
您没有登陆或不是管理员。请登陆。
"
response.Redirect("showerr.asp?
action=AdminErr&ErrMsg="&ErrMsg&"")
response.End()
endif
ifrequest.QueryString("action")="update_info"then
callupdate_info()
else
callmain()
endif
Footer()
SubUpdate_info()
dimUsername,Password_org,Password,Password2,code
Username=trim(request.Form("Username"))
Password_org=trim(request.Form("Password_org"))
Password=trim(request.Form("Password_new"))
Password2=trim(request.Form("Password_new2"))
code=trim(request.Form("code"))
ifcode=""then
ErrMsg="
请返回输入确认码。"
response.Redirect("showerr.asp?
action=AdminErr&ErrMsg="&ErrMsg&"")
ExitSub
elseifsession("getcode")=""then
ErrMsg="
请不要重复提交,如需重新登录请返回登录页面。"
response.Redirect("showerr.asp?
action=AdminErr&ErrMsg="&ErrMsg&"")
ExitSub
elseifcstr(session("getcode"))<>cstr(trim(code))then
ErrMsg="
您输入的确认码和系统产生的不一致,请重新输入。"
response.Redirect("showerr.asp?
action=AdminErr&ErrMsg="&ErrMsg&"")
ExitSub
endif
session("getcode")=""
ifpassword_org=""orpassword=""orpassword2=""then
ErrMsg="
请您完整输入信息。"
response.Redirect("showerr.asp?
action=AdminErr&ErrMsg="&ErrMsg&"")
ExitSub
endif
ifPassword<>Password2then
ErrMsg="
您两次输入的密码不一致,请重新输入。"
response.Redirect("showerr.asp?
action=AdminErr&ErrMsg="&ErrMsg&"")
ExitSub
Endif
dimrs
password_org=md5(password_org)
setrs=Data.Execute("select*fromadminwhereUsername='"&username&"'")
ifrs.eofandrs.bofthen
ErrMsg="
用户名不正确。"
response.Redirect("showerr.asp?
action=AdminErr&ErrMsg="&ErrMsg&"")
exitsub
else
ifpassword_org=rs
(2)then
DimSaveSet,cmd,Md5_code
Md5_code=md5(Password)
cmd="UpdateAdminsetpwd='"&Md5_code&"'whereusername='"&username&"'"
Data.Execute(cmd)
info="
管理员密码更新成功。"
response.Redirect("showerr.asp?
action=AdminSuc&info="&info&"")
else
ErrMsg="
您输入的密码不正确。"
response.Redirect("showerr.asp?
action=AdminErr&ErrMsg="&ErrMsg&"")
exitsub
endif
endif
rs.close
endSub
SubMain()
dimusername,Admin_type
username=Session("Admin_name")
%>
action=update_info"method="post">
管理员密码修改
|
用于添加网站的管理员,管理员可以修改网站的设置。
|
管理员用户名
不可修改
|
输入旧密码
|
输入新密码
|
重新输入新密码
验证码
请输入:
|
<%EndSub%>
登陆代码:
--#includefile="CONN.ASP"-->
--#includefile="inc/md5.asp"-->
系统登陆.menuover{border:
1px#08246Bsolid;background-image:
url(images/manage/tbover.gif);cursor:
default;}
.menuUp{border:
1px#333333Dashed;background-color:
#ffffff;font-size:
12px;font-family:
Arial;filter:
progid:
DXImageTransform.Microsoft.Alpha(opacity=50);cursor:
default;}
.menudown{border:
1px#08246Bsolid;background-image:
url(images/manage/tbdown.gif);cursor:
default;}
<%
Data.Admin()
ifrequest.QueryString("action")="chk"then
callchk()
endif
ifrequest.QueryString("action")=""then
ifData.IsAdminthen
response.Redirect("index.asp")
response.end()
else
calllogin()
endif
endif
Sublogin()
OnErrorResumeNext
DimAdos,GetCode
SetAdos=Server.CreateObject("Adodb.Stream")
IfErrThen
GetCode=9999
EndIf
%>
<%=Data.SiteSetting(0)%>-管理登录
|
action=chk"method="post"name="login">
|
|
|
|
|
|
|
您输入的用户名不正确或者您不是系统管理员。请重新输入您的用户名。
"
response.Redirect("showerr.asp?
action=AdminErr&ErrMsg="&ErrMsg&"")
exitsub
else
Response.Write(Password&" "&rs
(1))
ifpassword=rs
(2)then
Session("IsAdmin")=1
Session("Admin_name")=username
Session("Belong")=rs(4)
SetTempRs=Data.Execute("SelectName,StIdfromShetuanWhereStId="&Session("Belong")&";")
Session("Shetuan")=TempRs("Name")
TempRs.close
Session("Level")=rs(3)
SelectCasers(3)
Case0
Session("Admin_type")="超级管理员"
Case1
Session("Admin_type")="协会管理员"
Case"新闻管理员"
Session("Admin_type")="新闻管理员"
Case"下载管理员"
Session("Admin_type")="下载管理员"
Case"图片管理员"
Session("Admin_type")="图片管理员"
Case"音乐管理员"
Session("Admin_type")="音乐管理员"
EndSelect
response.Redirect("index.asp")
else
ErrMsg="