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> </td> <td class="adminuserscell"><b><%= lang_admin_users_015 %></b><br><br></td> <td> </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 %>