admin_user.asp

来自「金路网络硬盘====特首快传系统 (Tso upload system 1.0)」· ASP 代码 · 共 153 行

<!--#include file="Inc/Inc.asp"-->
<!--#include file="../Include/MD5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Admin_Css.css" rel="stylesheet" type="text/css"></head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Call ClsAdmin.CheckManager(0,6)
ClsPub.Chk_Post()
ClsPub.SysConfig()
Dim Action,UserId
Action=ClsPub.SafeRequest(3,"Action",1,0,0)
UserID=ClsPub.SafeRequest(3,"UserID",0,0,0)
Select Case Action
	Case "SaveAddManager"
		SaveAddManager()
	Case "ManagerList"
		Call ManagerList()
	Case "DeleteManager"
		Call DeleteManager(UserID)
	Case "EditManager"
		Call EditManager(UserID)
	Case "SaveEditManager"
		Call SaveEditManager(UserID)
	Case Else
		Call ManagerList()
End Select

Sub ManagerList()
	Dim Temp
	Temp=ClsPub.DB_Query("Select * From Tso_User Order By UserID Desc")
	If Not IsArray(Temp) Then
		SysMsg="暂无会员"
		Call ClsPub.ShowMsg("Back",3)
	End If
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
        <tr> 
      <td height="22" class="title" colspan=7>会员列表</td>	 
    </tr>
<FORM METHOD=POST ACTION="?action=touser">
<tr align=center height=23>
<td class="td"Highlight width="153"><B>帐号</B></td>
<td class="td"Highlight width="160"><B>邮箱</B></td>
<td class="td"Highlight width="120"><B>注册时间</B></td>
<td class="td"Highlight width="120"><b>注册IP</b></td>
<td class="td"Highlight width="120"><B><b>最近登陆时间</b></B></td>
<td class="td"Highlight width="120"><B>最近登陆IP</B></td>
<td class="td"Highlight width="100"><B>操作</B></td>
</tr>
<%
	Dim i,MyItem,ManagerCount,PageSize,Page
	ManagerCount=Ubound(Temp,2)
	PageSize=15
	Page=Request.QueryString("Page")
	If Page="" OR Not IsNumeric(Page) Then
		Page=1
	Else
		Page=Int(Page)
	End If
	For i = 0 To ManagerCount
		MyItem=MyItem+1
		If MyItem>(Page-1)*PageSize And MyItem<=Page*Pagesize Then

%>
<tr bgcolor="F1F3F5" onMouseOut="this.style.backgroundColor=''" onMouseOver="this.style.backgroundColor='#CAD7F7'" style="padding: 0px 2px;"> 
<td align=center><a href="Admin_User.asp?Action=EditManager&UserID=<%=Temp(0,i)%>"><%=Temp(1,i)%></a></td>
<td align=center><a href="mailto:<%=Temp(3,i)%>"><%=Temp(3,i)%></a></td>
<td align=center><%=replace(Temp(6,i),"下午","")%></td>
<td align=center><%=Temp(4,i)%></td>
<td align=center><font color="#FF0000"><strong><%=Temp(7,i)%></strong></font></td>
<td align=center><font color="#FF0000"><strong><%=Temp(5,i)%></strong></font></td>
<td align=center><a href="Admin_User.asp?Action=EditManager&UserID=<%=Temp(0,i)%>">修改</a> <a href="Admin_User.asp?Action=DeleteManager&UserID=<%=Temp(0,i)%>" onClick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a></td>
</tr>
<%			ElseIf MyItem>Page*PageSize Then
			Exit For
		End If
	Next
%>
<tr><td colspan=7 class="td" align="left">
<%=ClsPub.PageList(Pagesize,ManagerCount+1,Page,"","")%></td></tr>
</FORM>
</table>
<%
End Sub
Sub DeleteManager(UserID)
	Dim Temp
	Temp=ClsPub.DB_Query("Select Count(UserID) AS ManagerTotal From Tso_User")
	ClsPub.DB_Execute("Delete * From Tso_User Where UserID="&UserID)
	'SysMsg="管理员删除成功"
	Response.Redirect "Admin_User.asp"
	'Call ClsPub.Alert("Back",0)
End Sub
Sub EditManager(UserID)
	Dim Temp,TempValue
	Temp=ClsPub.DB_Query("Select * From Tso_User Where UserID="&UserID)
	If Not IsArray(Temp) Then
		SysMsg="该会员不存在"
		Call ClsPub.Alert("Back",0)
		Exit Sub
	End If
	TempValue=Temp(2,0)
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
	<tr> 
      <td height="22" class="title" colspan=2>修改会员权限</td>	 
    </tr>
    <tr>
		<td class=td colspan="2">
<form method="POST" action="Admin_User.asp?Action=SaveEditManager&UserID=<%=Temp(0,0)%>">
帐号:<input type="text" name="Username" size="20" Value="<%=Temp(1,0)%>"> 50个字符长度，建议只使用英文
<br>密码:<input type="password" name="PassWord" size="20"> 如只修改用户登陆名而不修改密码请留空
<br>
<tr>
<td class=td colspan="2" align=center>
<input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2">
</form></td>
</td>
	</tr>	
</table>
<%
End Sub
Sub SaveEditManager(UserID)
	If UserID=0 Then
		SysMsg="参数不足，无法进行操作!"
		Call ClsPub.Alert("Back",0)
	End If
	Dim Username,Password,IsLock,PowerList
	Username=ClsPub.SafeRequest(2,"Username",1,0,0)
	Password=ClsPub.SafeRequest(2,"Password",1,0,0)
	IsLock=ClsPub.SafeRequest(2,"IsLock",1,0,0)
	PowerList=ClsPub.SafeRequest(2,"PowerList",1,0,0)
	PowerList=PowerList&","
	If UserName="" Then
		SysMsg="用户名不能为空"
		Call ClsPub.Alert("Back",0)
		Exit Sub
	End If
	If Password<>"" Then
		Password=Md5(Password)
		ClsPub.DB_Execute("Update Tso_User Set UserName='"&Username&"',UserPwd='"&Password&"' Where UserID="&UserID)
	Else
		ClsPub.DB_Execute("Update Tso_User Set UserName='"&Username&"' Where UserID="&UserID)
	End If
		SysMsg="会员信息修改成功"
		Call ClsPub.Alert("Admin_User.asp",0)
End Sub

%>
<%CloseAll%>
</body>
</html>