📄 admin_forumlevel.asp
字号:
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title><%=EL_Channel.ChannelName%></title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
</head>
<body>
<%
Call EL_Common.CheckChannel(EL_Channel.ChannelID, 9)
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td align="center" class="top_25"><strong>论坛用户等级管理</strong></td>
</tr>
<tr>
<td class="td_50">管理导航：<a href="Admin_ForumLevel.asp?ChannelID=<%=EL_Channel.ChannelID%>">等级管理首页</a> </td>
</tr>
</table>
<br>
<%
Select Case Action
Case "": Call Main()
Case "SaveNew": Call SaveLevel(0)
Case "SaveModify": Call SaveLevel(1)
Case "Delete": Call SaveLevel(2)
Case "ListUser": Call ListUser()
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()
Sub SaveLevel(UpdateType)
On Error Resume Next
Dim LevelCmd
Dim LevelID, LevelName, PictrueURL, LeastPost
LevelID = EL_Common.ELRequest("LevelID", 2)
LevelName = EL_Common.ELRequest("LevelName", 1)
PictrueURL = EL_Common.ELRequest("PictrueURL", 1)
LeastPost = EL_Common.ELRequest("LeastPost", 2)
Call EL_Common.InitCommand(LevelCmd, "EL_SP_ForumLevel")
With LevelCmd
.Parameters.Append .CreateParameter("RETURN", 2, 4)
.Parameters.Append .CreateParameter("@UpdateType", 3, 1, 4, UpdateType)
.Parameters.Append .CreateParameter("@LevelID", 3, 1, 4, LevelID)
.Parameters.Append .CreateParameter("@ChannelID", 3, 1, 4, EL_Channel.ChannelID)
.Parameters.Append .CreateParameter("@LevelName", 200, 1, 50, LevelName)
.Parameters.Append .CreateParameter("@PictrueURL", 200, 1, 255, PictrueURL)
.Parameters.Append .CreateParameter("@LeastPost", 3, 1, 4, LeastPost)
.Execute()
End With
Set LevelCmd = Nothing
EL_Common.ShowScriptError()
Select Case UpdateType
Case 0:
EL_Common.ShowSuccessMsg("添加等级成功："& EL_Common.ServerHTMLEncode(LevelName))
Case 1:
EL_Common.ShowSuccessMsg("更新等级成功："& EL_Common.ServerHTMLEncode(LevelName))
Case Else:
Response.Redirect ComeURL
End Select
End Sub
Sub ListUser()
On Error Resume Next
Dim UserCmd, rsUser, StrFields, StrCondition, i
Dim PageCounts, RowCount, TotalRowCount
Dim LevelID, LevelType, LevelName, ArrData
LevelID = EL_Common.ELRequest("LevelID", 2)
ArrData = EL_Common.GetFieldValue("LevelID,LevelType,LevelName", "EL_ForumLevel", "ChannelID="& EL_Channel.ChannelID &" And LevelID="& LevelID)
If LevelID <> ArrData(0) Then
EL_Common.ShowErrorMsg("指定等级不存在")
Exit Sub
End If
LevelType = ArrData(1)
LevelName = ArrData(2)
StrFields = "UserID,UserName,TrueName,LoginTimes,LastLoginIp,LastLoginTime,RegDateTime"
StrCondition = "ForumLevel='"& EL_Common.ReplaceBadChar(LevelName) &"' And AdminPassed="& EL_True &" And EmailPassed="& EL_True
Call EL_Common.InitCommand(UserCmd, "EL_SP_SplitPage")
With UserCmd
.Parameters.Append .CreateParameter("RETURN", 3, 4, 4)
.Parameters.Append .CreateParameter("@Tables", 200, 1, 50, "EL_User")
.Parameters.Append .CreateParameter("@PrimaryKey", 200, 1, 20, "UserID")
.Parameters.Append .CreateParameter("@Sort", 200, 1, 200, "RegDateTime DESC")
.Parameters.Append .CreateParameter("@CurrentPage", 3, 1, 4, CurrentPage)
.Parameters.Append .CreateParameter("@PageSize", 3, 1, 4, PageSizes)
.Parameters.Append .CreateParameter("@Fields", 200, 1, 1000, StrFields)
.Parameters.Append .CreateParameter("@Filter", 200, 1, 1000, StrCondition)
.Parameters.Append .CreateParameter("@Group", 200, 1, 1, "")
.Parameters.Append .CreateParameter("@TotalRowCount", 3, 2, 4)
.Parameters.Append .CreateParameter("@PageCount", 3, 2, 4)
Set rsUser = .Execute()
End With
rsUser.Close()
RowCount = UserCmd(0)
TotalRowCount = UserCmd(9)
PageCounts = UserCmd(10)
%>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td>·您现在的位置：<a href="Admin_ForumLevel.asp?ChannelID=<%=EL_Channel.ChannelID%>">论坛用户等级管理</a> >> <span class="BlueText"><%=EL_Common.ServerHTMLEncode(LevelName)%></span> 列表</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td width="6%" align="center" class="top_item"><strong>ID</strong></td>
<td width="14%" align="center" class="top_item"><strong>用户名</strong></td>
<td width="16%" align="center" class="top_item"><strong>真实姓名</strong></td>
<td width="8%" align="center" class="top_item"><strong>登陆次数</strong></td>
<td width="13%" align="center" class="top_item"><strong>最后登陆IP</strong></td>
<td width="17%" align="center" class="top_item"><strong>最后登陆时间</strong></td>
<td width="17%" align="center" class="top_item"><strong>注册时间</strong></td>
<td width="9%" align="center" class="top_item"><strong>操作</strong></td>
</tr>
<%
If RowCount = 0 Then
Response.Write "<tr><td class='td_50' colspan='8' align='center'>没有任何会员</td></tr>"
Else
rsUser.Open()
For i = 1 To RowCount
%>
<tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
<td align="center"><%=rsUser("UserID")%></td>
<td align="center"><%=EL_Common.ServerHTMLEncode(rsUser("UserName"))%></td>
<td align="center"><%=EL_Common.ServerHTMLEncode(rsUser("TrueName"))%></td>
<td align="center"><%=rsUser("LoginTimes")%></td>
<td align="center"><%=rsUser("LastLoginIp")%></td>
<td align="center"><%=rsUser("LastLoginTime")%></td>
<td align="center"><%=rsUser("RegDateTime")%></td>
<td align="center"><a href="Admin_User.asp?Action=Show&UserID=<%=rsUser("UserID")%>">详细</a></td>
</tr>
<% If i < RowCount Then rsUser.MoveNext
Next
rsUser.Close()
End If
%>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td width="12%"> </td>
<td width="88%" align="right" nowrap><%Call EL_Common.ShowPage(URLParameters, CurrentPage, PageSizes, PageCounts, TotalRowCount, "会员", "个")%></td>
</tr>
</table>
<%
Set rsUser = Nothing
Set UserCmd = Nothing
EL_Common.ShowScriptError()
End Sub
Sub Main()
On Error Resume Next
Dim LevelCmd, rsLevel, i, RowCount
Call EL_Common.InitCommonCmd(LevelCmd, rsLevel, "EL_ForumLevel", "*", "ChannelID="& EL_Channel.ChannelID &" Order By LevelType DESC,LeastPost ASC")
rsLevel.Close()
RowCount = LevelCmd(0)
%>
<script language="javascript">
function Check(frm){
if(frm.LevelName.value.trim()==""){
alert("请输入等级名称");
frm.LevelName.focus();
return false;
}
if(frm.LeastPost.value.trim()==""){
alert("请输入最少发帖");
frm.LeastPost.focus();
return false;
}
if(frm.PictrueURL.value.trim()==""){
alert("请输入等级图片");
frm.PictrueURL.focus();
return false;
}
SubmitOnce(frm);
return;
}
</script>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td>·您现在的位置：<a href="Admin_ForumLevel.asp?ChannelID=<%=EL_Channel.ChannelID%>">论坛用户等级管理</a></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
<tr>
<td width="4%" align="center" nowrap class="top_item"><strong>ID</strong></td>
<td width="18%" align="center" nowrap class="top_item"><strong>等级名称</strong></td>
<td width="11%" align="center" nowrap class="top_item"><strong>最少发帖</strong></td>
<td width="17%" align="center" nowrap class="top_item"><strong>等级图片</strong></td>
<td width="8%" align="center" nowrap class="top_item"><strong>更新</strong></td>
<td width="23%" align="center" nowrap class="top_item"><strong>图片预览</strong></td>
<td width="6%" align="center" nowrap class="top_item"><strong>用户数</strong></td>
<td width="13%" align="center" nowrap class="top_item"><strong>操作</strong></td>
</tr>
<%
If RowCount = 0 Then
Response.Write "<tr><td class='td_50' colspan='7' align='center'>没有任何等级</td></tr>"
Else
rsLevel.Open()
For i = 1 To RowCount
%>
<form name="LevelForm_<%=rsLevel("LevelID")%>" action="Admin_ForumLevel.asp" method="post" onSubmit="return Check(this)">
<tr class="td_25" onMouseOut="this.className='td_25'" onMouseOver="this.className='MouseOver_25'">
<td align="center"><%=rsLevel("LevelID")%></td>
<td align="center"><input name="LevelName" type="text" id="LevelName" value="<%=EL_Common.ServerHTMLEncode(rsLevel("LevelName"))%>" size="20"></td>
<td align="center"><input name="LeastPost" type="text" id="LeastPost" value="<%=rsLevel("LeastPost")%>" size="10" <% If rsLevel("LevelType") > 0 Then Response.Write "disabled"%>></td>
<td align="center"><input name="PictrueURL" type="text" id="PictrueURL" value="<%=EL_Common.ServerHTMLEncode(rsLevel("PictrueURL"))%>" size="15"></td>
<td align="center"><input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="SaveModify">
<input name="LevelID" type="hidden" id="LevelID" value="<%=rsLevel("LevelID")%>">
<input type="submit" name="Submit2" value="更新"></td>
<td><img src="<%=InstallDir & EL_Channel.ChannelDir &"/Level/"& EL_Common.ServerHTMLEncode(rsLevel("PictrueURL"))%>" border="0" /></td>
<td align="center"><strong><%=rsLevel("UserNum")%></strong></td>
<td align="center" nowrap>
<%
If rsLevel("LevelType") > 0 Then
Response.Write "<span class=graytext>删除</span> | "
Else
%>
<a href="Admin_ForumLevel.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=Delete&LevelID=<%=rsLevel("LevelID")%>" onClick="return confirm('确认要删除等级吗？删除后不可恢复')">删除</a> |
<% End If %>
<a href="Admin_ForumLevel.asp?ChannelID=<%=EL_Channel.ChannelID%>&Action=ListUser&LevelID=<%=rsLevel("LevelID")%>">用户列表</a>
</td>
</tr>
</form>
<%
If i<RowCount Then rsLevel.MoveNext
Next
rsLevel.Close()
End If
%>
<form name="NewLevel" action="Admin_ForumLevel.asp" method="post" onSubmit="return Check(this)">
<tr class="td_50">
<td align="center"><span class="BlueText">新</span></td>
<td align="center"><input name="LevelName" type="text" id="LevelName" size="20"></td>
<td align="center"><input name="LeastPost" type="text" id="LeastPost" value="0" size="10"></td>
<td align="center"><input name="PictrueURL" type="text" id="PictrueURL" size="15"></td>
<td colspan="4"><input type="submit" name="Submit" value="添加等级">
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=EL_Channel.ChannelID%>">
<input name="Action" type="hidden" id="Action" value="SaveNew"></td>
</tr>
</form>
</table>
<br>
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr>
<td height="50">提示：<br>
添加、删除或修改等级系统都自动修复部分用户的等级信息<br>
等级图片放置论坛频道目录下的 <span class="BlueText"><strong>level </strong></span>文件夹，添加的时候只需要输入图片文件名</td>
</tr>
</table>
<%
Set rsLevel = Nothing
Set LevelCmd = Nothing
EL_Common.ShowScriptError()
End Sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -