select*fromMessageBoardwhereMessageID="_
&Request.Form("CheckMessage"))
ifRSThisMessage("MessageSender")=Session("Name")then
Session("MessageID")=RSThisMessage("MessageID")
Response.Redirect"ModifyMessage.asp"
else
TheMessage="您不是此条通知的发送者,无权修改此条通知"
Warning=true
endif
else
TheMessage="日程通知看板"
endif
'系统管理员清除过期通知
elseifnotIsEmpty(Request.Form("ClearMessage"))then
ifSession("IsSystemManager")then
conn.Execute"deletefromMessageBoardwhereDate()-MessageSendDate>MessageValidTime"
else
TheMessage="您不是系统管理员,不能进行此项操作"
Warning=true
endif
else
TheMessage="日程通知看板"
endif
setRSPublicMessage=conn.Execute("select*fromMessageBoardwhereMessageType='公共通知'"_
&"andDate()-MessageSendDate<=MessageValidTime")
setRSDepartmentMessage=conn.Execute("select*fromMessageBoardwhereMessageType='"_
&Session("Department")&"'and"&"Date()-MessageSendDate<=MessageValidTime")
setRSPrivateMessage=conn.Execute("select*fromMessageBoardwhereMessageType='"_
&Session("Name")&"'and"&"Date()-MessageSendDate<=MessageValidTime")
setRSDepartments=conn.Execute("selectDepartmentNamefromDepartments"_
&"orderbyDepartmentName")
setRSRoles=conn.Execute("selectNamefromPSLoginsorderbyName")
2.6.2内部意见箱
代码如下:
'如果用户要查看自己提出的意见的处理结果
ifnotisempty(Request.Form("Review"))then
SqlReview="select*fromSuggestionRecordswhereSenderName='"&Session("Name")_
&"'orderbyStatus"
setRSReviewSuggestion=conn.Execute(SqlReview)
ReviewLabel=true
TheMessage="您所提交的意见目前已经处理的结果如下"
'如果用户提交新意见建议
elseifnotisempty(Request.Form("OK"))then
CurrentTime=Now()
'将新意见建议插入数据库
SqlString="InsertintoSuggestionRecords(SenderName,ToDepartment,"_
&"SuggestionType,SuggestionText,WhenSent,Status)values("_
&"'"&Session("Name")&"',"_
&"'"&Request.Form("ToDepartment")&"',"_
&"'"&Request.Form("SuggestionType")&"',"_
&"'"&Request.Form("SuggestionText")&"',"_
&"'"&CurrentTime&"',"_
&"'未处理')"
conn.Execute(SqlString)
'查出刚提交的意见建议的内容
setRSSuggestionID=conn.Execute("selectSuggestionIDfromSuggestionRecords")
'查出要意见建议发往对象的电子邮件地址
setRSEmails=conn.Execute("SelectEmailAddressfromPSLoginswhereDepartment='"_
&Request.Form("ToDepartment")&"'")
'构造电子邮件的内容
EmailMessage="意见建议来自:"&Session("Name")&chr(13)
EmailMessage=EmailMessage&"意见类型:"&Request.Form("SuggestionType")&chr(13)
EmailMessage=EmailMessage&"意见内容:"&Request.Form("SuggestionText")&chr(13)
EmailMessage=EmailMessage&"想要处理这条意见建议,请点击下面的链接:"&chr(13)
EmailMessage=EmailMessage&"http://166.111.56.212/"
EmailMessage=EmailMessage&"MessageBoard/Analysis.asp?SuggestionID="_
&RSSuggestionID("SuggestionID")
'向所有对象发送电子邮件
DoUntilRSEmails.EOF
setobjMail=CreateObject("CDONTS.NewMail")
objMail.SendSession("EmailAddress"),RSEmails("EmailAddress"),_
"NewSuggestionBoxMessage!",EmailMessage
setobjmail=nothing
RSEmails.MoveNext
loop
TheMessage="您的意见建议已提交成功,您可以填写新意见建议"
else
TheMessage="请在下面填写您的建议意见"
endif
setRSDepartments=conn.Execute("select*fromDepartmentswhereDepartmentName<>'All'"_
&"orderbyDepartmentName")
setRSTypes=conn.Execute("select*fromSuggestionTypesorderbySuggestionType")
第三章结论
3.1.体会到了系统分析的重要性
从软件工程的角度出发,系统分析远比系统实现重要。如果系统分析不到位,系统实现的难度更大,耗时更长,如果系统分析方向错误,可能后边的一切工作就会一无所获,最后还得重新进行系统分析。
3.2.理论≠实践
书本上的程序代码,放到系统中去,不一定能够实现预想的结果。如,电脑安装的系统不支持(XP系统必须更改权限,才能对数据库进行添加、删除操作)。
写好的代码,一到实践中,却执行不了,如逻辑错误(在登陆代码中,随便输入用户名和密码,就可以进入系统)。
3.3.掌握了系统开发的流程
"公司内部办公系统",麻雀虽小,五脏俱全。
从一定程度上了解了系统开发的流程,即:系统开发--系统设计--系统实现--系统调试--系统实施.。
3.4.巩固了知识
把所学的知识(此系统主要是ASP和数据库)应用到了实践中,使得知识更加熟练。
致谢
在这次毕业设计过程中,我得到了指导老师叶老师的悉心指导和同组成员们的通力合作,在此,我对他们表示衷心的感谢!
参考文献
张立科.ASP数据库系统开发实例导航人民邮电出版社2004
张宏林孔艳王哲编著《VisualBasic6.0开发数据库》人民邮电出版社2000。
李大友主编《VisualBasic程序设计》清华大学出版2004年7月第1版。
??
??
??
??
1
上一篇:
ASP出租车管理系统(论文和程序)
下一篇:
法律专业开题报告范文