www.gusucode.com > 站长俱乐部新闻发布系统精简版 1.01源码程序 > admin/default_main.asp
<% ' *** 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 width="100%" border="0" cellpadding="6" cellspacing="0" class="ac_admin_main"> <tr> <td><img src="../images/blank.gif" width="18" height="6" alt="" /></td></tr> <tr valign="baseline"><td><%= adminHeading(1,lang_admin_default_001,null,null,null) %></td></tr> <tr> <td class="admin_intro" colspan="1"> <div align="center"> <br /> <table width="60%" border="0" cellspacing="0" cellpadding="5"> <tr><td></td><td></td><td style="admin_intro"><b> <% if (Session("MM_UserAuthorization") = 1) then %> <%= lang_admin_default_002 %> <%= Session("MM_Username") %> <br /><br /></b> <% elseif (Session("MM_UserAuthorization") = 2) then %> <%= lang_admin_default_002 %> <%= Session("MM_Username") %> <br /><br /></b> <% elseif (Session("MM_UserAuthorization") = 3) then %> <%= lang_admin_default_002 %> <%= Session("MM_Username") %> <br /><br /></b> <%= lang_admin_default_003 %> <br /><br /><br /><br /> <% end if %> </td></tr> <% if (Session("MM_UserAuthorization") = 1) then %> <tr> <td width="6%"> </td> <td width="9%"><a href="admin_config.asp"><img src="icons/gear.gif" width="48" height="48" border="0" alt="" /></a></td> <td width="76%" style="admin_intro"> <p><a href="admin_config.asp"><br /> <%= lang_admin_default_004 %><br /> </a><%= lang_admin_default_005 %><br /> <br /> <br /> </p> </td> <td width="9%"> </td> </tr> <% end if %> <% if (Session("MM_UserAuthorization") = 1) then %> <tr> <td> </td> <td><a href="admin_colors.asp"><img src="icons/text_rich_colored.gif" width="48" height="48" border="0" alt="" /></a></td> <td style="admin_intro"> <p><a href="admin_colors.asp"><br /> <%= lang_admin_default_006 %></a><br /> <%= lang_admin_default_007 %><br /> <br /> <br /> </p> </td> <td> </td> </tr> <% end if %> <% if ((Session("MM_UserAuthorization") = 1) OR (Session("MM_UserAuthorization") = 2)) then %> <% end if %> <% if (Session("MM_UserAuthorization") = 1) then %> <tr> <td> </td> <td><a href="admin_users.asp"><img src="icons/woman1.gif" width="48" height="48" border="0" alt="" /></a></td> <td style="admin_intro"> <p><a href="admin_users2.asp"><br /> <%= lang_admin_default_010 %></a><br /> <%= lang_admin_default_011 %><br /> <br /> <br /> </p> <p><br /> </p> </td> <td> </td> </tr> <% end if %> <% if ((Session("MM_UserAuthorization") = 2) OR (Session("MM_UserAuthorization") = 3)) then %> <tr> <td> </td> <td><a href="admin_users.asp"><img src="icons/woman1.gif" width="48" height="48" border="0" alt="" /></a></td> <td style="admin_intro"> <p><a href="admin_users2.asp"><br /> <%= lang_admin_default_010 %></a><br /> <br /> <br /> </p> <p><br /> </p> </td> <td> </td> </tr> <% end if %> <tr> <td> </td> <td><a href="<%= MM_Logout %>"><img src="icons/door2_48.gif" width="48" height="48" border="0" alt="" /></a></td> <td style="admin_intro"> <p><a href="<%= MM_Logout %>"><%= lang_admin_default_012 %></a> <br /> <%= lang_admin_default_013 %><br /> </p> </td> <td> </td> </tr> </table> <p> </p> </div> </td> </tr> </table>