www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/admin_users_view.asp

    
<%
Dim User
Dim User_numRows

Set User = Server.CreateObject("ADODB.Recordset")
User.ActiveConnection = MM_oConn_STRING
User.Source = "SELECT * FROM ac_user ORDER BY Username"
User.CursorType = 0
User.CursorLocation = 2
User.LockType = 1
User.Open()

User_numRows = 0
%>
<%
Dim User_Repeat1__numRows
Dim User_Repeat1__index

User_Repeat1__numRows = -1
User_Repeat1__index = 0
User_numRows = User_numRows + User_Repeat1__numRows
%>
<%
' *** Logout the current user.
dim MM_Logout, MM_logoutRedirectPage, UC_redirectPage, MM_newQS
MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1"
If (CStr(Request("MM_Logoutnow")) = "1") Then
  Session.Contents.Remove("MM_Username")
  Session.Contents.Remove("MM_UserAuthorization")
  Session.Contents.Remove("MM_UserID")
  MM_logoutRedirectPage = "../main_login.asp?referrer=admin"
  ' redirect with URL parameters (remove the "MM_Logoutnow" query param).
  if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL"))
  If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
    MM_newQS = "?"
    For Each Item In Request.QueryString
      If (Item <> "MM_Logoutnow") Then
        If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&"
        MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item))
      End If
    Next
    if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS
  End If
  Response.Redirect(MM_logoutRedirectPage)
End If
%>
<table border="0" cellpadding="4" cellspacing="0">
  <tr><td>&nbsp;</td>
      	  <td class="adminuserscell"><b><%= lang_admin_users_015 %></b><br><br></td>
  <td>&nbsp;</td></tr>
  <% While ((User_Repeat1__numRows <> 0) AND (NOT User.EOF)) %>
  <tr> 
    <td>
    <% 
    dim userType
    userType = User.Fields.Item("Type").Value
    if (userType=1) then
    %>
        <img src="icons/woman1_24.gif">
        </td>
        <td class="adminuserscell"><%=(User.Fields.Item("Username").Value)%></td>
        <td class="adminuserscell"><a href="#" onclick="javascript:getMenuItem('admin_users2.asp',<%=(User.Fields.Item("ID").Value)%>);"><%= lang_admin_menu_001 %></a></td>
        <td class="adminuserscell"></td>
        <%
        elseif (userType=2) then
        %>
        <img src="icons/woman3_24.gif"></td>
        <td class="adminuserscell"><%=(User.Fields.Item("Username").Value)%></td>
        <td class="adminuserscell" colspan="2">(Not available in free version)</td>
        <%
        else
        %>
        <img src="icons/worker_24.gif"></td>
        <td class="adminuserscell"><%=(User.Fields.Item("Username").Value)%></td>
        <td class="adminuserscell" colspan="2">(Not available in free version)</td>
       <%
        end if
        %>
      </tr>
  <% 
  User_Repeat1__index=Repeat1__index+1
  User_Repeat1__numRows=Repeat1__numRows-1
  User.MoveNext()
Wend
%>
<tr><td></td><td colspan="2"><br><b><%= lang_admin_users_016 %></b> (Not available in free version)</td></tr>
<tr><td></td><td colspan="2"><br /><a href="<%= MM_Logout %>"><%= lang_admin_users_017 %></a></td></tr>
</table>

<%
User.Close()
Set User = Nothing
%>