表7：TouShu（投诉信息）表：
字段名称 字段类型 宽度 小数位
投诉编号 文本 10
投诉住户 文本 10
接待人员 文本 10
投诉日期 日期/时间 15
投诉内容 备注 20
处理人员 文本 10
处理情况 备注 20
第四章:系统详细设计
4.1管理员登录模块设计
输入：用户名admin，密码admin，随机附加码
处理：判断用户名和密码、附加码是否有效。填入用户名、密码和附加码后点击[确定]按钮，系统将自动从数据库中的管理员信息表中判断是否存在相同的用户名和密码等，如果有则进入系统，如果不存在或密码错误，则提示不是管理员或密码有错误的信息。
输出：登录成功，进入管理员的功能选择页面，若不成功，则显示错误信息页面图4.1.1系统登录界面
登录模块代码的实现：
<%end sub
sub chk()
dim username,password,code
username=trim(request.form("username"))
password=trim(request.form("password"))
code=trim(request.Form("code"))
if code="" then
ErrMsg="<li> 请返回输入确认码。"
response.Redirect("showerr.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
Exit Sub
elseif session("getcode")="" then
ErrMsg="<li> 请不要重复提交，如需重新登录请返回登录页面。"
response.Redirect("showerr.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
Exit Sub
elseif cstr(session("getcode"))<>cstr(trim(code)) then
ErrMsg="<li> 您输入的确认码和系统产生的不一致，请重新输入。"
response.Redirect("showerr.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
Exit Sub
end if
session("getcode")=""
if username="" or password="" then
ErrMsg="<li> 请输入您的用户名或密码。"
response.Redirect("showerr.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
Exit Sub
end if
dim rs
password = md5(password)
set rs = Data.Execute("select * from admin where Username='"&username&"'")
if rs.eof and rs.bof then
ErrMsg="<li> 您输入的用户名不正确或者您不是系统管理员。请<a href=admin_login.asp>重新输入</a>您的用户名。"
response.Redirect("showerr.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
exit sub
else
Response.Write(Password&" "&rs(1))
if password=rs(2) then
Session("IsAdmin")=1
Session("Admin_name")=username
Session("Belong")=rs(4)
Set TempRs=Data.Execute("Select Name,StId from Shetuan Where StId = "&Session("Belong")&";")
Session("Shetuan")=TempRs("Name")
TempRs.close
Session("Level")=rs(3)
Select Case rs(3)
Case 0
Session("Admin_type")="超级管理员"
Case 1
Session("Admin_type")="协会管理员"
Case "新闻管理员"
Session("Admin_type")="新闻管理员"
Case "下载管理员"
Session("Admin_type")="下载管理员"
Case "图片管理员"
Session("Admin_type")="图片管理员"
Case "音乐管理员"
Session("Admin_type")="音乐管理员"
End Select
response.Redirect("index.asp")
else
ErrMsg="<li> 您输入的密码不正确或者您不是系统管理员。请<a href=admin_login.asp>重新输入</a>您的密码。"
response.Redirect("showerr.asp?action=AdminErr&ErrMsg="&ErrMsg&"")
exit sub
end if
end if
rs.close
end sub
%>
4.2管理员功能选择页面
管理员登录后出现功能选择界面，可以选择相应的操作图4.2系统操作截面图
<< 上一页 [11] [12] [13] [14] 下一页