admin_checkuser.asp

1

<%

'**************************************************
'函数名：Admin_QX_C
'作  用：得出权限循环内容
'Admin_QX_A 拥有权限
'Admin_QX_B 显示模板
'Admin_QX_C 含有显示
'Admin_QX_D 循环制点
'Admin_QX_E 类型
'返回值：
'**************************************************
Function Admin_QX_C(Admin_QX_C_A)
If InStr(Request.Cookies(FY_cookies)("AdminFlag"),Admin_QX_C_A)>0 Or Request.Cookies(FY_cookies)("AdminFlag")="超级管理员" Then
    Admin_QX_C=1
    Else
    Admin_QX_C=0
    End if
End Function

'**************************************************
'函数名：Admin_QX
'作  用：得出权限循环内容
'Admin_QX_A 拥有权限
'Admin_QX_B 显示模板
'Admin_QX_C 含有显示
'Admin_QX_D 循环制点
'Admin_QX_E 类型
'返回值：
'**************************************************
Function Admin_QX(Admin_QX_A,Admin_QX_B,Admin_QX_C,Admin_QX_D,Admin_QX_E)
    Dim Admin_QX_L,Admin_QX_I,Admin_QX_X
    Admin_QX_L="密码修改||分类管理||添加小说||修改小说||删除小说||添加书卷||修改书卷||删除书卷||添加章节||修改章节||删除章节||批量处理||采集管理||上传图片"
    for Admin_QX_I=1 to ubound(split(Admin_QX_L,"||"))+1
    Admin_QX_X=Admin_QX_X&""&replace(Admin_QX_B,"$权限名称",split(Admin_QX_L,"||")(Admin_QX_I-1))
    If InStr(Admin_QX_A,split(Admin_QX_L,"||")(Admin_QX_I-1))>0 Then
    Admin_QX_X=replace(Admin_QX_X,"$选中显示",Admin_QX_C)
    Else
    Admin_QX_X=replace(Admin_QX_X,"$选中显示","")
    End if
    If Admin_QX_I mod Admin_QX_D=0 Then
    Admin_QX_X=Admin_QX_X&"<br>"
    End if
    next
    Admin_QX=Admin_QX_X
    Admin_QX_X=""
End Function

'**************************************************
'函数名：Admin_Check_T
'作  用：得出管理登陆状态
'返回值：登陆状态=0 否则=1
'**************************************************
Function Admin_Check_T()
      Admin_Check_T = 1
    If Request.Cookies(FY_cookies)("AdminName")<>"" And Request.Cookies(FY_cookies)("AdminId")<>"" And Request.Cookies(FY_cookies)("AdminFlag")<>"" Then
      Admin_Check_T = 0
    Else
      Admin_Check_T = 1
    End If
End Function

'**************************************************
'函数名：Admin_Check_B
'作  用：得出操作权限 
'Admin_Check_B_A 对应的编号 
'Admin_Check_B_B 如果是自己将显示
'Admin_Check_B_C 如果不是自己将显示
'返回值：对应信息
'**************************************************
Function Admin_Check_B(Admin_Check_B_A,Admin_Check_B_B,Admin_Check_B_C)
    If clng(Admin_Check_B_A)=clng(Request.Cookies(FY_cookies)("AdminId")) Then
    Admin_Check_B=Admin_Check_B_B
    Else    
    Admin_Check_B=Admin_Check_B_C
    End if
End Function

'**************************************************
'函数名：Admin_Name_Q
'作  用：得出管理员称号
'返回值：
'**************************************************
Function Admin_Name_Q(Admin_Name_Q_A)
      Admin_Name_Q = "权限管理员"
    If Admin_Name_Q_A="超级管理员" Then
      Admin_Name_Q = "超级管理员"
    Else
      Admin_Name_Q = "权限管理员"
    End If
End Function

'**************************************************
'函数名：Admin_Check
'作  用：管理登陆的合法性判断
'返回值：登陆状态=0 否则=1
'**************************************************
sub Admin_Check(Admin_Check_A,Admin_Check_E)
Dim Admin_Check_B,Admin_Check_C,Admin_Check_D
Admin_Check_A=Cstr(Admin_Check_A)
    Admin_Check_B=0
If Admin_Check_T()=1 Then
    Admin_Check_B=1
    Admin_Check_C="登陆时间超时"
    Admin_Check_D="<li>该专区为管理员专区，您没有权限进行操作！请登陆后再进行操作！</li>"
Else
	set rs=conn.execute("select * from [管理员_Admin] where 编号="&Request.Cookies(FY_cookies)("AdminId")&"")
	if rs.eof and rs.bof then
    Admin_Check_B=1
    Admin_Check_C="账号非法"
    Admin_Check_D="<li>您的账号在数据库中无法检测到，请管理员协商处理！</li>"
  Elseif rs("状态")<>0 then
    Admin_Check_B=1
    Admin_Check_C="账号非法"
    Admin_Check_D="<li>您的账号已被锁定处理，现在程序将限制您的登陆，请管理员协商处理！</li>"
  Elseif trim(rs("安全密码"))<>Request.Cookies(FY_cookies)("AdminPass") then
    Admin_Check_B=1
    Admin_Check_C="账号非法"
    Admin_Check_D="<li>您的账号密码已被修改，现在程序将限制您的登陆，请重新登录！</li>"
  Elseif clng(rs("登陆次数"))<>clng(Request.Cookies(FY_cookies)("AdminBM")) then
    Admin_Check_B=1
    Admin_Check_C="账号被远程登录"
    Admin_Check_D="<li>您的账号被远程登录，请尽快修改密码信息，以免造成损失！！</li>"
  ElseIf rs("权限")<>"超级管理员" Then
    If Admin_Check_A="9999" Then
      Admin_Check_B=1
      Admin_Check_C="越权操作错误"
      Admin_Check_D="<li>"&Admin_Check_E&"</li>"
    ElseIf InStr(rs("权限"),Admin_Check_A)=0 Then
      Admin_Check_B=1
      Admin_Check_C="越权操作错误"
      Admin_Check_D="<li>"&Admin_Check_E&"</li>"
    End if
  End if
  rs.close
	set rs=nothing
End if
    If Admin_Check_B<>0 Then
    Response.Write "<html><head><title>"&Admin_Check_C&"</title><meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
    Response.Write "<link href='"&InstallDir&"Images/Admin/admin.css' rel='stylesheet' type='text/css'></head><body><br><br>" & vbCrLf
    Response.Write "<table cellpadding=2 cellspacing=1 border=0 width=400 class='border' align=center>" & vbCrLf
    Response.Write "  <tr align='center' class='KenQiao_Net_ss'><td height='22'><strong>"&Admin_Check_C&"</strong></td></tr>" & vbCrLf
    Response.Write "  <tr class='KenQiao_Net_ds'><td height='100' valign='top'><br><br>"&Admin_Check_D&"</td></tr>" & vbCrLf
    Response.Write "  <tr align='center' class='KenQiao_Net_qs'><td>"
    Response.Write "  <a href="""&InstallDir&"Admin_Login.Asp"" target=""_top"">&lt;&lt; 返回登录页面</a>  [<a href=# onclick=history.go(-1)> 返回上一页 </a>] "
    Response.Write "<a href='javascript:window.close();'>【关闭】</a>"
    Response.Write "</td></tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "</body></html>" & vbCrLf
    Call Admin_logout
	  Call CloseConn()
	  Response.End 
	  End if
end sub

'**************************************************
'函数名：Admin_logout
'作  用：清除COOKIES中管理员身份的验证信息
'返回值：无
'**************************************************
sub Admin_logout()
response.cookies(FY_cookies)("AdminName")=""
response.cookies(FY_cookies)("AdminId")=""
response.cookies(FY_cookies)("AdminPass")=""
response.cookies(FY_cookies)("AdminFlag")=""
response.cookies(FY_cookies)("AdminBM")=""
response.cookies(FY_cookies)=""
end sub


'****************************************************
'过程名：admin_footer
'作  用：后台版权信息
'参  数：无
'****************************************************
sub admin_footer()
  Call FY_Cache.DelAllCache()
  Call CloseConn()
	response.write "<br><table align=""center"" width=""100%"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=KenQiao_Net_bk style=""border-collapse: collapse""><tr align=""center"" class=KenQiao_Net_ds><td colspan=""6"">程序开发：<a href='http://www.KenQiao.Net' target='_blank'>飞云小说技术博客</a></td></tr></table>"
end sub
%>