📄 user_selectusers.asp
字号:
<!--#include file="../Conn.asp"-->
<!--#include file="../inc/Cl_ClsSysTem.asp"-->
<!--#include file="../inc/Cl_Function_Public.asp"-->
<!--#include file="../inc/Cl_FileIcon.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="../Skins/Css/User.Css" rel="stylesheet" type="text/css" />
<base target="_self" />
</head>
<body leftmargin="0" topmargin="0">
<%
Cl.Get_WebSetting()
const PageSize=48
Dim FileName
Dim UserGroupID,Receive_Users,keyword
Dim ComeUrl,FoundErr,Errmsg
dim TotalPut,CurrentPage,TotalPages
Dim SQL,Rs,i
ComeUrl=Cstr(Request.ServerVariables("HTTP_REFERER"))
if Not Cl.ChkUserLogin then
Response.write "<li>您未登录或者您无此操作权限！</li>"
Response.end
end if
UserGroupID = Cl.GetClng(request("UserGroupID"))
If UserGroupID = 0 Or UserGroupID=5 Then UserGroupID=4
CurrentPage = Cl.GetClng(request("page"))
keyword = Cl.ReplaceBadChar(request("keyword"))
FileName = "User_SelectUsers.asp?UserGroupID="&UserGroupID&"&keyword="&keyword
%>
<table border="0" cellspacing="1" cellpadding="0" align="center" class="Border">
<tr class="Title">
<td align="center"><b>选择用户</b></td>
</tr>
<tr class="Tdbg" height="23">
<td>选项：<%
Dim Node
For Each Node In Application(Cl.CacheName & "_usergrouplist").DocumentElement.selectNodes("usergroup[@id!=5]")
Response.write "[<a href='User_SelectUsers.asp?UserGroupID="&Node.selectSingleNode("@id").text&"'>"&Node.selectSingleNode("@groupname").text&"</a>] "
Next
Set Node = Nothing%></td>
</tr>
</table>
<br />
<table border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<form method="post" name="myform" id="myform" action="">
<tr class="title">
<td> 选定用户预览：</td>
</tr>
<tr class="tdbg">
<td><textarea name="UserList" style="width:98%" rows="5" readonly="readonly"></textarea></td>
</tr>
</form>
</table>
<br />
<table border="0" align="center" cellpadding="0" cellspacing="1" class="border">
<tr class="title">
<td> <font color="red"><%=Cl.GetUserGroupName(UserGroupID)%></font> 列表:
(提示：点击用户即可把用户加入列表中)</td>
</tr>
<tr>
<td><table width="100%" border="0" align="center" cellpadding="5" cellspacing="1">
<tr class="tdbg">
<td><% call ShowUser_List() %></td>
</tr>
<tr class="tdbg">
<td><form method="post" name="myform2" id="myform2" action="">
<input name="keyword" type="text" size="18" /> <input type="submit" value="查找用户" />
</form></td>
</tr>
<tr class="tdbg">
<td align="center"> <a href="" onclick="return adduser('<%=Receive_Users%>')">增加以上所有用户</a> <a href="" onclick="return deluser(1)">删除最后一个用户</a> <a href="" onclick="return deluser(0)">删除全部用户</a></td>
</tr>
<tr class="tdbg">
<td><%
if TotalPut>0 then
Response.write Cl.Showpage(FileName,TotalPut,PageSize,"个","用户")
end if
%></td>
</tr>
</table> </td>
</tr>
</table>
<br />
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
<tr>
<td align="center">
<input type="button" name="CloseWindow" value="[关闭窗口]" onclick="javascript:window.close();" /></td>
</tr>
</table>
<script language="JavaScript" type="text/javascript">
myform.UserList.value=opener.myform.ReceiveUser.value;
var oldusername="";
function adduser(obj)
{
if(opener.myform.ReceiveUser.value=="")
{
opener.myform.ReceiveUser.value=obj;
myform.UserList.value=opener.myform.ReceiveUser.value;
return false;
}
var username=obj.substring(1,obj.length);
var singleuser=username.split("|");
for(i=0;i<singleuser.length;i++)
{
if(checkuser(opener.myform.ReceiveUser.value,singleuser[i]))
{
alert(singleuser[i]+" 用户已经存在，此操作已经忽略！");
}
else
{
var svalue=opener.myform.ReceiveUser.value+"|"+singleuser[i];
opener.myform.ReceiveUser.value=svalue.replace("||", "|");
myform.UserList.value=opener.myform.ReceiveUser.value;
}
}
return false;
}
function deluser(num)
{
if (num==0 || opener.myform.ReceiveUser.value=="" || opener.myform.ReceiveUser.value=="|")
{
opener.myform.ReceiveUser.value="";
myform.UserList.value="";
return false;
}
var strDel=opener.myform.ReceiveUser.value;
strDel=strDel.substring(1,strDel.length);
var s=strDel.split("|");
opener.myform.ReceiveUser.value="|"+strDel.substring(0,strDel.length-s[s.length-1].length-1);
myform.UserList.value=opener.myform.ReceiveUser.value;
return false;
}
function checkuser(userlist,thisuser)
{
var mystr=userlist.substring(1,userlist.length);
var s=mystr.split("|");
for (j=0;j<s.length;j++)
{
if(s[j]==thisuser)
return true;
}
return false;
}
</script>
</body>
</html>
<%
Sub ShowUser_List()
Dim sql_S,Rs_S
OpenConn_U
set Rs_S=server.createobject("adodb.recordset")
sql_S="select "&Db.UserID&","&DB.UserName&" from " & DB.UserTable & " where "&Db.UserGroupID&"= "&UserGroupID&" and "&DB.UserName&" like '%"&keyword&"%' order by "&Db.UserID&""
Rs_S.open sql_S,Conn_U,1,1
if Rs_S.bof and Rs_S.eof then
TotalPut=0
response.write "<br /><li>没有任何用户</li>"
else
TotalPut=Rs_S.recordcount
if (TotalPut mod PageSize)=0 then
TotalPages = TotalPut \ PageSize
else
TotalPages = TotalPut \ PageSize + 1
end if
if CurrentPage > TotalPages then CurrentPage=TotalPages
if CurrentPage < 1 then CurrentPage=1
Rs_S.move (CurrentPage-1)*PageSize
dim i,strHTML
strHTML = strHTML & "<table width='100%' border='0' cellspacing='1' cellpadding='1'><tr>"
do while not Rs_S.eof
Receive_Users = Receive_Users&"|"&Rs_S(DB.UserName)
'if (i mod 8)=0 then strHTML = strHTML & ""
strHTML = strHTML & "<td><img src='../images/Other/user_face.gif' width=12 height=11> <a href='' onclick='return adduser(""|" &Rs_S(DB.UserName)& """)'>" & Rs_S(DB.UserName) & "</a></td><td align='center'>"
i=i+1
if i>=PageSize then exit do
if (i mod 8)=0 then strHTML = strHTML & "</tr><tr>"
Rs_S.movenext
loop
strHTML = strHTML & "</tr></table>"
response.write strHTML
end if
Rs_S.close:set Rs_S=Nothing
end Sub
'<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved. │
'└───────────────────────────────────────────────────────┘
'-->
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -