📄 selmember.asp
字号:
<% Option Explicit %>
<!--#include file="conn.asp" -->
<%
Dim strPofileUsername
Dim lngUserID
Dim lngNumOfPosts
Dim strGroupName
Dim dtmRegisteredDate
Dim intTotalNumMembersPages
Dim intTotalNumMembers
Dim intRecordPositionPageNum
Dim intRecordLoopCounter
Dim dtmLastVisit
Dim intLinkPageNum
Dim strSearchCriteria
Dim strSortBy
Dim intSortSelectField
strSearchCriteria = "%"
If Request.QueryString("Mempn") = "" Then
intRecordPositionPageNum = 1
Else
intRecordPositionPageNum = CInt(Request.QueryString("Mempn"))
End If
If NOT Request.QueryString("find") = "" Then
strSearchCriteria = Request.QueryString("find") & "%"
End If
strSearchCriteria = formatSQLInput(strSearchCriteria)
Select Case Request.QueryString("Sort")
Case "post"
strSortBy = "postnum DESC"
intSortSelectField = 1
Case "latestUsers"
strSortBy = "joindtm DESC"
intSortSelectField = 2
Case "oldestUsers"
strSortBy = "joindtm ASC"
intSortSelectField = 3
Case "location"
strSortBy = "Location ASC"
intSortSelectField = 4
Case Else
strSortBy = "Username ASC"
intSortSelectField = 0
End Select
%>
<html>
<head>
<title>论坛会员管理</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<script language="JavaScript">
<!-- Hide from older browsers...
function CheckForm () {
if (document.frmMemberSearch.find.value==""){
alert("请输入用户名");
return false;
}
return true;
}
function MembersSort(SelectSort){
if (SelectSort != "") self.location.href = "selmember.asp?find=<% = Server.URLEncode(Request.QueryString("find")) %>&sort=" + SelectSort.options[SelectSort.selectedIndex].value;
return true;
}
function MembersPage(SelectPage){
if (SelectPage != -1) self.location.href = "selmember.asp?find=<% = Request.QueryString("find") %>&sort=<% = Request.QueryString("sort") %>&Mempn=" + SelectPage.options[SelectPage.selectedIndex].value;
return true;
}
// -->
</script>
<link href="includes/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<p class="text"><span class="heading"><font size="5"><strong>论坛会员管理</strong></font><br>
</span><br />
<a href="menu.asp" target="_self">返回到管理主菜单</a><br>
<br />
<br>
你可以更改用户的信息，所属的用户组，更改密码，停止使用，删除等操作 <br>
</p>
<form name="frmMemberSearch" method="get" action="selmember.asp" onSubmit="return CheckForm();">
<table width="490" border="0" cellspacing="0" cellpadding="1" height="24" align="center" bgcolor="#000000">
<tr>
<td align="center" height="2"> <table width="100%" border="0" cellspacing="0" cellpadding="4" bgcolor="#FFFFFF">
<tr>
<td width="100%" height="20" align="center" bgcolor="#FFFFFF" class="text">搜索:
<input type="text" name="find" size="15" maxlength="15"> <input type="submit" name="Submit" value="搜索">
</td>
</tr>
<tr>
<td align="center" bgcolor="#FFFFFF" width="100%"><a href="selmember.asp" target="_self">All</a> <a href="selmember.asp?find=A" target="_self">A</a> <a href="selmember.asp?find=B" target="_self">B</a>
<a href="selmember.asp?find=C" target="_self">C</a> <a href="selmember.asp?find=D" target="_self">D</a> <a href="selmember.asp?find=E" target="_self">E</a> <a href="selmember.asp?find=F" target="_self">F</a>
<a href="selmember.asp?find=G" target="_self">G</a> <a href="selmember.asp?find=H" target="_self">H</a> <a href="selmember.asp?find=I" target="_self">I</a> <a href="selmember.asp?find=J" target="_self">J</a>
<a href="selmember.asp?find=K" target="_self">K</a> <a href="selmember.asp?find=L" target="_self">L</a> <a href="selmember.asp?find=M" target="_self">M</a> <a href="selmember.asp?find=N" target="_self">N</a>
<a href="selmember.asp?find=O" target="_self">O</a> <a href="selmember.asp?find=P" target="_self">P</a> <a href="selmember.asp?find=Q" target="_self">Q</a> <a href="selmember.asp?find=R" target="_self">R</a>
<a href="selmember.asp?find=S" target="_self">S</a> <a href="selmember.asp?find=T" target="_self">T</a> <a href="selmember.asp?find=U" target="_self">U</a> <a href="selmember.asp?find=V" target="_self">V</a>
<a href="selmember.asp?find=W" target="_self">W</a> <a href="selmember.asp?find=X" target="_self">X</a> <a href="selmember.asp?find=Y" target="_self">Y</a> <a href="selmember.asp?find=Z" target="_self">Z</a></td>
</tr>
</table></td>
</tr>
</table>
</form>
</div>
<div align="center"><%
strSQL = "SELECT timesuser.*, timesgrp.Name "
strSQL = strSQL & "FROM timesuser, timesgrp "
strSQL = strSQL & "WHERE timesuser.grpid = timesgrp.grpid AND timesuser.Username Like '" & strSearchCriteria & "' "
strSQL = strSQL & "ORDER BY timesuser." & strSortBy & ";"
rsConn.CursorType = 1
rsConn.Open strSQL, adoCon
rsConn.PageSize = 33
If rsConn.EOF Then
Response.Write "<span class=""text"">对不起，没有找到相关用户</span>"
Else
rsConn.AbsolutePage = intRecordPositionPageNum
intTotalNumMembers = rsConn.RecordCount
intTotalNumMembersPages = rsConn.PageCount
Response.Write vbCrLf & " <table width=""100%"" border=""0"" cellspacing=""0"" cellpadding=""0"" align=""center"">"
Response.Write vbCrLf & " <tr>"
Response.Write vbCrLf & " <td align=""center""><span class=""text"">"
If Request.QueryString("find") = "" Then
Response.Write vbCrLf & " 现在有 " & intTotalNumMembers & " 个用户 ，共 " & intTotalNumMembersPages & " 页，你位于第 " & intRecordPositionPageNum&" 页"
Else
Response.Write vbCrLf & " 找到 " & intTotalNumMembers & " 个相关会员"
End If
Response.Write vbCrLf & " </span></td>"
Response.Write vbCrLf & " </tr>"
Response.Write vbCrLf & " </table>"
Response.Write vbCrLf & " <br />"
%>
<form>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center" height="32">
<tr>
<td align="right" height="28" valign="top"><span class="text">排列:</span>
<select name="SelectSort" onChange="MembersSort(this)">
<option value="username" <% If intSortSelectField = 0 Then Response.Write "selected" %>>字母</option>
<option value="post" <% If intSortSelectField = 1 Then Response.Write "selected" %>>发帖数</option>
<option value="latestUsers" <% If intSortSelectField = 2 Then Response.Write "selected" %>>注册日期-由新到旧</option>
<option value="oldestUsers" <% If intSortSelectField = 3 Then Response.Write "selected" %>>注册日期-由旧到新</option>
<option value="location" <% If intSortSelectField = 4 Then Response.Write "selected" %>>地区首字母</option>
</select> </td>
</tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" bgcolor="#000000" align="center">
<tr>
<td width="983" height="46"> <table border="0" cellspacing="1" cellpadding="3" bgcolor="#000000" width="100%">
<tr bgcolor="#CCCCCC" class="tHeading">
<td width="26%" height="2"><div align="center"><b>用户名</b></div></td>
<td width="16%" height="2"><div align="center"><b>所属用户组</b></div></td>
<td width="10%" height="2" align="center"><div align="center"><b>发帖数</b></div></td>
<td width="23%" height="2" align="left"><div align="center"><b>最后访问</b></div></td>
<td width="25%" height="2" align="left"><div align="center"><b>注册日期</b></div></td>
</tr>
<%
For intRecordLoopCounter = 1 to 33
If rsConn.EOF Then Exit For
dtmLastVisit = ""
lngUserID = CLng(rsConn("userid"))
strPofileUsername = rsConn("Username")
lngNumOfPosts = CLng(rsConn("postnum"))
dtmRegisteredDate = CDate(rsConn("joindtm"))
If NOT isNull(rsConn("lastvst")) Then dtmLastVisit = CDate(rsConn("lastvst"))
strGroupName = rsConn("Name")
%>
<tr bgcolor="#FFFFFF">
<td height="30" class="text" width="26%"><div align="center"><a href="../register.asp?pf=<% = lngUserID %>&M=A" target="_top">
<% = strPofileUsername %>
</a></div></td>
<td align="center" height="30" class="text" width="16%">
<% = strGroupName %>
</td>
<td align="center" height="30" class="text" width="10%">
<% = lngNumOfPosts %>
</td>
<td align="center" height="30" class="text" width="23%">
<%
If dtmLastVisit = "" Then
Response.Write " "
Else
Response.Write FormatDateTime(dtmLastVisit, VbLongDate)
End If
%>
</td>
<td align="center" height="30" class="text" width="25%">
<% = FormatDateTime(dtmRegisteredDate, VbLongDate) %>
</td>
</tr>
<%
rsConn.MoveNext
Next
End If
%>
</table></tr>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center" height="32">
<tr><%
If intTotalNumMembersPages > 1 Then
Response.Write vbCrLf & " <td align=""right"" height=""28"" valign=""bottom""><span class=""text"">Page"
Response.Write vbCrLf & " <select onChange=""MembersPage(this)"" name=""SelectPage"">"
Dim intTopicPageLoopCounter
For intTopicPageLoopCounter = 1 to intTotalNumMembersPages
Response.Write vbCrLf & " <option value=""" & intTopicPageLoopCounter & """"
If intTopicPageLoopCounter = intRecordPositionPageNum Then
Response.Write " selected"
End If
Response.Write ">" & intTopicPageLoopCounter & "</option>"
Next
Response.Write vbCrLf & " </select> of " & intTotalNumMembersPages & "</span></td>"
End If
%>
</tr>
</table><%
rsConn.Close
Set rsConn = Nothing
adoCon.Close
Set adoCon = Nothing
%>
<br />
</form><br />
</div>
<br />
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -