📄 admin_user.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 0628免费正式版
'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 Admin_User
KSCls.Execute()
Set KSCls = Nothing
Class Admin_User
Private KSCMS
Private MaxPerPage
Private rsAdmin,sqlAdmin
Private UserID,UserSearch,Keyword,strField,CurrentPage,sql,FoundErr,RS,TotalPut,TotalPages,I
Private Action,ComeUrl,strFileName
Private ValidDays,tmpDays,BeginID,EndID
Private ErrMsg
Private Sub Class_Initialize()
MaxPerPage=20
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
Sub Execute()
If Not KSCMS.ReturnPowerResult(0, "KMUA10003") Then
Write ("<script>parent.frames['BottomFrame'].location.href='javascript:history.back();';</script>")
Call KSCMS.ReturnErr(1, "")
End If
Response.Write "<html>"
Response.Write"<head>"
Response.Write"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write"<link href=""../Inc/Admin_Style.CSS"" rel=""stylesheet"" type=""text/css"">"
Response.Write"</head>"
Response.Write"<body leftmargin=""0"" topmargin=""0"" marginwidth=""0"" marginheight=""0"">"
Response.Write"<table width=""100%"" height=""25"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
Response.Write " <tr>"
Response.Write" <td height=""25"" class=""sort""> "
Response.Write " <strong> 快速查找用户：</strong><a href=""Admin_User.asp"">搜索用户</a> | <a href=""?UserSearch=12"">所有用户</a> | <a href=""?UserSearch=1"">被锁住的用户</a> | <a href=""?UserSearch=2"">所有管理员</a> | <a href=""?UserSearch=3"">待审批会员</a> | <a href=""?UserSearch=4"">待邮件验证</a> | <a href=""?UserSearch=5"">24小时内登录</a> | <a href=""?UserSearch=6"">24小时内注册</a>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write"</TABLE>"
ComeUrl=Cstr(Request.ServerVariables("HTTP_REFERER"))
keyword = Trim(request("keyword"))
strField = Trim(request("Field"))
UserSearch = KSCMS.ChkClng(request("UserSearch"))
Action = Trim(request("Action"))
UserID = Trim(Request("UserID"))
strFileName = "Admin_User.asp"
CurrentPage = KSCMS.ChkClng(request("page"))
if keyword<>"" then keyword=KSCMS.ReplaceBadChar(keyword)
%>
<SCRIPT language=javascript>
function unselectall()
{
if(document.myform.chkAll.checked){
document.myform.chkAll.checked = document.myform.chkAll.checked&0;
}
}
function CheckAll(form)
{
for (var i=0;i<form.elements.length;i++)
{
var e = form.elements[i];
if (e.Name != "chkAll")
e.checked = form.chkAll.checked;
}
}
</SCRIPT>
</head>
<%
Select Case Action
Case "Add"
call AddUser()
Case "SaveAdd"
call SaveAdd()
Case "Modify"
call Modify()
Case "SaveModify"
call SaveModify()
Case "Del"
call DelUser()
Case "Lock"
call locked()
Case "UnLock"
call Unlocked()
Case "Move"
call MoveUser()
Case "Update"
call UpdateUser()
Case "DoUpdate"
call DoUpdate()
Case "AddMoney"
call AddMoney()
Case "SaveAddMoney"
call SaveAddMoney()
Case Else
call main()
End Select
if FoundErr=True then KSCMS.ShowError(ErrMsg)
Response.Write "<div style=""text-align:center;color:#003300"">-----------------------------------------------------------------------------------------------------------</div>"
Response.Write "<div style=""height:30px;text-align:center"">KeSion CMS V 2.2, Copyright (c) 2006-2008 <a href='http://www.kesion.com/' target=""_blank""><font color=#cc6600>KeSion.Com</font></a>. All Rights Reserved . </div>"
End Sub
Sub Main()
Dim GroupID:GroupID=KSCMS.G("GroupID")
if UserSearch=0 then
Call ShowSearch()
else
dim strGuide ,sSQL
strGuide="<table width='100%' align='center' border='0' cellpadding='0' cellspacing='1' class='border'><tr class='tdbg'><td align='center' height='25'> "
sSQL = " UserID,UserName,GroupID,ChargeType,Point,BeginDate,LastLoginIP,LastLoginTime,LoginTimes ,locked,Edays"
Select Case UserSearch
Case 1
sql="select "&sSQL&" from KS_User where Locked=1 order by UserID desc"
strGuide=strGuide & "所有被锁住的用户"
Case 2
sql="select "&sSQL&" from KS_User where GroupID=4 order by UserID desc"
strGuide=strGuide & "所有管理员身份的用户"
Case 3
sql="select "&sSQL&" from KS_User where GroupID=2 order by UserID desc"
strGuide=strGuide & "待管理员认证用户"
Case 4
sql="select "&sSQL&" from KS_User where GroupID=1 order by UserID desc"
strGuide=strGuide & "待邮件验证的用户"
Case 5
sql="select "&sSQL&" from KS_User where datediff('h',LastLoginTime," & Application("SqlNowString") & ")<25 order by LastLoginTime desc"
strGuide=strGuide & "最近24小时内登录的用户"
Case 6
sql="select "&sSQL&" from KS_User where datediff('h',RegDate," & Application("SqlNowString") & ")<25 order by RegDate desc"
strGuide=strGuide & "最近24小时内注册的用户"
Case 10
sql="select "&sSQL&" from KS_User where GroupID=" & GroupID & " order by UserID desc"
strGuide=strGuide & KSCMS.GetUserGroupName(GroupID)
strFileName=strFileName&"&GroupID=" & GroupID
Case 11
UserID = KSCMS.ChkClng(UserID)
if UserID>0 then
Sql = "Select "&sSQL&" From KS_User Where UserID="&UserID&""
else
Dim strsql
strsql=""
if request("username")<>"" then
if request("usernamechk")="yes" then
strsql=strsql & " username='"&request("username")&"'"
else
strsql=strsql &" username like '%"&request("username")&"%'"
end if
end if
if cint(request("GroupID"))>0 then
if strsql="" then
strsql=strsql & " GroupID="&request("GroupID")&""
else
strsql=strsql & " and GroupID="&request("GroupID")&""
end if
strFileName=strFileName&"&GroupID="&request("GroupID")&""
end if
if request("Email")<>"" then
if strsql="" then
strsql=strsql & " Email like '%"&request("Email")&"%'"
else
strsql=strsql & " and Email like '%"&request("Email")&"%'"
end if
strFileName=strFileName&"&email="&request("Email")&""
end if
'======特殊搜索=======
dim Tsqlstr
if request("loginT")<>"" then
if request("loginR")="more" then
Tsqlstr=" LoginTimes >= "&KSCMS.Chkclng(request("loginT"))
else
Tsqlstr=" LoginTimes <= "&KSCMS.Chkclng(request("loginT"))
end if
if strsql="" then
strsql=Tsqlstr
else
strsql=strsql & " and" & Tsqlstr
end if
strFileName=strFileName&"&loginR="&request("loginR")&"&loginT="&request("loginT")
end if
if request("vanishT")<>"" then
if request("vanishR")="more" then
Tsqlstr=" datediff('d',LastLoginTime,"&Application("SqlNowString")&") >= "&KSCMS.Chkclng(request("vanishT"))&""
else
Tsqlstr=" datediff('d',LastLoginTime,"&Application("SqlNowString")&") <= "&KSCMS.Chkclng(request("vanishT"))&""
end if
if strsql="" then
strsql=Tsqlstr
else
strsql=strsql & " and" & Tsqlstr
end if
strFileName=strFileName&"&vanishR="&request("vanishR")&"&vanishT="&request("vanishT")
end if
if request("regT")<>"" then
if request("regR")="more" then
Tsqlstr=" datediff('d',RegDate,"&Application("SqlNowString")&") >= "&KSCMS.Chkclng(request("regT"))
else
Tsqlstr=" datediff('d',RegDate,"&Application("SqlNowString")&") <= "&KSCMS.Chkclng(request("regT"))
end if
if strsql="" then
strsql=Tsqlstr
else
strsql=strsql & " and" & Tsqlstr
end if
strFileName=strFileName&"®R="&request("regR")&"®T="&request("regT")
end if
if request("artcleT")<>"" then
if request("artcleR")="more" then
Tsqlstr=" articleNum >= "&KSCMS.Chkclng(request("artcleT"))
else
Tsqlstr=" articlenum <= "&KSCMS.Chkclng(request("artcleT"))
end if
if strsql="" then
strsql=Tsqlstr
else
strsql=strsql & " and" & Tsqlstr
end if
strFileName=strFileName&"&artcleR="&request("artcleR")&"&artcleT="&request("artcleT")
end if
'======特殊搜索结束======
If strsql = "" Then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请指定搜索参数！</li>"
Exit Sub
End If
If Request("Searchmax") = "" Or Not Isnumeric(Request("Searchmax")) Then
Sql = "Select top 1 "&sSQL&" From KS_User Where " & strsql & " order by UserID Desc"
Else
Sql = "Select top "&Request("Searchmax")&" "&sSQL&" From KS_User Where " & strsql & " order by UserID desc"
End If
strFileName=strFileName&"&Searchmax="&request("Searchmax")
end if '''ID
strGuide=strGuide & "查询结果："
Case 12
sql="Select "&sSQL&" From KS_User Order by UserID Desc"
strGuide=strGuide & "所有用户"
Case Else
FoundErr=True
ErrMsg=ErrMsg & "<br><li>错误的参数！</li>"
End Select
strGuide=strGuide & "</td><td width='150' align='center'>"
if FoundErr=True then Exit Sub
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open sql,Conn,1,1
if rs.eof and rs.bof then
TotalPut=0
Response.Write strGuide & "共找到 <font color=#ff6600>0</font> 个用户 </td></tr></table>"
rs.Close:set rs=Nothing
else
TotalPut=rs.recordcount
Response.Write strGuide & "共找到 <font color=#ff6600>" & TotalPut & "</font> 个用户 </td></tr></table>"
if (TotalPut mod MaxPerPage)=0 then
TotalPages = TotalPut \ MaxPerPage
else
TotalPages = TotalPut \ MaxPerPage + 1
end if
if CurrentPage > TotalPages then CurrentPage=TotalPages
if CurrentPage < 1 then CurrentPage=1
rs.move (CurrentPage-1)*MaxPerPage
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -