📄 user_adminmain.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New User_AdminMain
KSCls.Execute()
Set KSCls = Nothing
Class User_AdminMain
Private KSCMS
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
Public Sub Execute()
Dim GroupID, I, SqlStr, RSObj
Dim Title, CreateDate, TempStr, GRS
Dim KeyWord, SearchType
'收集搜索参数
KeyWord = KSCMS.G("KeyWord")
SearchType = KSCMS.G("SearchType")
'搜索参数集合
Dim SearchParam
SearchParam = "KeyWord=" & KeyWord & "&SearchType=" & SearchType
GroupID = Trim(KSCMS.G("GroupID"))
If GroupID = "" Then GroupID = 0
Const Row = 8 '每行显示数
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; chaRSet=gb2312"">"
Response.Write "<title>管理员管理</title>"
Response.Write "<link href=""../Inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
Response.Write "<script language=""JavaScript"">" & vbCrLf
Response.Write "var GroupID='" & GroupID & "'; //管理员组ID" & vbCrLf
Response.Write "var KeyWord='" & KeyWord & "'; //搜索关键字" & vbCrLf
Response.Write "var SearchParam='" & SearchParam & "'; //搜索参数集合" & vbCrLf
Response.Write "</script>" & vbCrLf
Response.Write "<script language=""JavaScript"" src=""../JS/Common.js""></script>"
Response.Write "<script language=""JavaScript"" src=""../JS/ContextMenu.js""></script>"
Response.Write "<script language=""JavaScript"" src=""../JS/SelectElement.js""></script>"
Response.Write "<script language=""JavaScript"" src=""../Common/AdminFunction.JS""></script>"
Response.Write "</head>"
Response.Write "<body scroll=no topmargin=""0"" leftmargin=""0"" OnClick=""SelectElement();"" onkeydown=""GetKeyDown();"" onselectstart=""return false;"">"
Response.Write "<table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""sortbutton"">"
Response.Write " <tr>"
Response.Write " <td height=""23"" align=""left"">"
If KeyWord = "" Then
If GroupID = 0 Then
Response.Write "<input class=""buttonstyle"" name=""CreateFolder"" title=""添加管理组"" type=""button"" value=""添管理组"" onclick=""CreateGroup();"" >"
Response.Write "<input class=""buttonstyle"" name=""EditFolder"" title=""编辑管理组"" type=""button"" value=""改管理组"" onclick=""Edit('');"" >"
Response.Write "<input class=""buttonstyle"" name=""channeldel"" title=""删除管理组"" type=""button"" value=""删管理组"" onclick=""Delete('');"">"
Response.Write "<input class=""buttonstyle"" name=""channeldel"" title=""设置管理组权限"" type=""button"" value=""设置权限"" "
If Request.Cookies(KSCMS.SiteSn)("SuperTF") = 1 Then
Response.Write " onclick=""SetGroupPower('');"""
Else
Response.Write " disabled"
End If
Response.Write ">"
Response.Write "<input class=""buttonstyle"" name=""SearchButton"" type=""button"" value=""搜索助理"" title=""搜索小助理"" onClick=""parent.frames['LeftFrame'].initializeSearch('Manager')"">"
Response.Write "<input class=""buttonstyle"" name=""Button1"" type=""button"" Disabled value=""设置密码"" title=""设置密码"" onClick=""SetAdminPassWord();"">"
Response.Write " <input class=""buttonstyle"" name=""channeldel"" disabled title=""返回上一级"" type=""button"" value=""回上一级"" onclick=""ChangeUp();"">"
Else
Response.Write "<input class=""buttonstyle"" disabled name=""CreateFolder"" title=""添加管理组"" type=""button"" value=""添管理组"" onclick=""CreateGroup();"" >"
Response.Write "<input class=""buttonstyle"" disabled name=""EditFolder"" title=""编辑管理组"" type=""button"" value=""改管理组"" onclick=""Edit('');"" >"
Response.Write "<input class=""buttonstyle"" disabled name=""channeldel"" title=""删除管理组"" type=""button"" value=""删管理组"" onclick=""Delete('');"">"
Response.Write "<input class=""buttonstyle"" disabled name=""channeldel"" title=""设置管理组权限"" type=""button"" value=""设置权限"">"
Response.Write "<input class=""buttonstyle"" name=""SearchButton"" type=""button"" value=""搜索助理"" title=""搜索小助理"" onClick=""parent.frames['LeftFrame'].initializeSearch('Manager')"">"
Response.Write "<input class=""buttonstyle"" name=""Button1"" type=""button"" value=""设置密码"" title=""设置密码"" onClick=""SetAdminPassWord();"">"
Response.Write " <input class=""buttonstyle"" name=""channeldel"" title=""返回上一级"" type=""button"" value=""回上一级"" onclick=""ChangeUp();"">"
End If
Else
Response.Write ("<img src='../Images/home.gif' align='absmiddle'><span style='cursor:hand' onclick=""SendFrameInfo('User_AdminMain.asp','User_Left.asp','../Split.asp?ButtonSymbol=Disabled&OpStr=管理员管理 >> <font color=red>管理首页</font>')"">管理员首页</span>")
Response.Write (">>> 搜索结果: ")
Select Case SearchType
Case 0
Response.Write ("用户名含有 <font color=red>" & KeyWord & "</font> 的管理员")
Case 1
Response.Write ("管理员简介含有 <font color=red>" & KeyWord & "</font> 的管理员")
End Select
End If
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<table width=""100%"" height=""25"" border=""0"" cellpadding=""0"" cellspacing=""1"">"
If GroupID = 0 And KeyWord = "" Then
SqlStr = "Select GroupID,GroupName,Description,AddDate,SuperTF from KS_AdminGroup Order BY SuperTF Desc, AddDate desc"
Else
Dim Param
Param = " Where 1=1"
If KeyWord <> "" Then
Select Case SearchType
Case 0
Param = Param & " And UserName like '%" & KeyWord & "%'"
Case 1
Param = Param & " And Description like '%" & KeyWord & "%'"
End Select
Else
Param = Param & " And GroupID=" & GroupID
End If
Param = Param & " Order BY SuperTF Desc,AddDate desc"
SqlStr = "Select * From KS_Admin " & Param
End If
If GroupID = 0 And KeyWord = "" Then
Response.Write ("<tr><td height=6></td></tr>")
Else
Response.Write ("<tr> ")
Response.Write (" <td>")
Response.Write (" <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
Response.Write ("<tr align=""center""><td height=23 width=100 class=""sort"">管 理 员</td><td width=120 class=""sort"">隶 属 组</td><td width=100 class=""sort"">最后登录IP</td><td width=150 class=""sort"">最后登录时间</td><td width=130 class=""sort"">最后登出时间</td><td width=80 class=""sort"">登录次数</td><td width=80 class=""sort"">锁 定</td></tr>")
End If
Set RSObj = Server.CreateObject("AdoDb.RecordSet")
RSObj.Open SqlStr, Conn, 1, 1
Dim T, TitleStr, LockStr, ShortName
Do While Not RSObj.EOF
If GroupID = 0 And KeyWord = "" Then
Response.Write ("<tr> ")
Response.Write (" <td>")
Response.Write (" <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">")
Response.Write ("<tr> ")
For T = 1 To Row
If Not RSObj.EOF Then
Title = RSObj("GroupName")
ShortName = KSCMS.ListTitle(Title, 24)
TitleStr = " TITLE='组 名 称:" & Title & " 创建日期:" & RSObj("AddDate") & " 简要描述:" & RSObj("Description") & "'"
Response.Write ("<td width=""" & CInt(100 / Row) & "%"" Style=""cursor:default"" align=""center""" & TitleStr & ">")
Response.Write ("<span onmousedown=""mousedown(this);"" style=""POSITION:relative;"" GroupID=""" & RSObj("GroupID") & """ TitleStr=""" & Title & """ OnDblClick=""OpenTheFolder(this.GroupID,this.TitleStr)"">")
Response.Write ("<img src=""../Images/Folder/AdminGroup" & RSObj("SuperTF") & ".gif""> ")
Response.Write ("<div style=""display:block;height:16;width:80;cursor:default"">" & ShortName & "</div>")
Response.Write ("</span>")
Response.Write ("</td>")
If RSObj.EOF Then Exit For
RSObj.MoveNext
Else
Exit For
End If
Next
'不到7个单元格,则进行补空
Do While T <= Row
Response.Write ("<td width=70> </td>")
T = T + 1
Loop
Response.Write ("</tr>")
Response.Write ("<tr><td colspan=" & Row & " height=10></td></tr>")
Response.Write ("</table></td>")
Response.Write ("</tr>")
Else
If RSObj("Locked") = 1 Then
LockStr = "<font color=red>已锁定</font>"
Else
LockStr = "<font color=green>正常</font>"
End If
TitleStr = " TITLE='姓 名:" & RSObj("RealName") & " 性 别:" & RSObj("Sex") & " 添加时间:" & RSObj("AddDate") & " 简要描述:" & RSObj("Description") & "'"
Response.Write ("<tr><td height=25" & TitleStr & "> <span ondblclick=""EditAdmin('',this.AdminID);"" AdminID=""" & RSObj("AdminID") & """><img src=../Images/Folder/Admin" & Trim(CStr(RSObj("SuperTF"))) & ".gif border=0 align=absmiddle><span style=""cursor:default"">" & RSObj("UserName") & "</span><span></td>")
Response.Write ("<td align=""center"">")
Set GRS = Conn.Execute("Select GroupName From KS_AdminGroup Where GroupID=" & RSObj("GroupID"))
If Not GRS.EOF Then
Response.Write (GRS(0))
End If
GRS.Close
Response.Write ("</td>")
Response.Write ("<td align=""center"">" & RSObj("LastLoginIP") & "</td>")
Response.Write ("<td align=""center"">" & RSObj("LastLoginTime") & "</td>")
Response.Write ("<td align=""center"">" & RSObj("LastLogoutTime") & "</td>")
Response.Write ("<td align=""center"">" & RSObj("LoginTimes") & "</td>")
Response.Write ("<td align=""center"">" & LockStr & "</td>")
Response.Write ("</tr>")
RSObj.MoveNext
End If
If RSObj.EOF Then Exit Do
Loop
RSObj.Close:Conn.Close:Set RSObj = Nothing:Set GRS = Nothing
Response.Write "</table>"
Response.Write "</body>"
Response.Write "</html>"
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -