users.aspx

在线SQL数据库企业管理器在线SQL数据库企业管理器

<!--#include file="includes/topnav.aspx"-->

<%@ Import Namespace="System.Collections" %>

<br>
<center>

	<script language="javascript">
			function confirmDrop(user) {
		      if (confirm("Drop user " + user + "?") == true) 
		   		{
		   		 	 location.href= 'users_drop.aspx?user=' + user;
		   		}
			}	
	</script>

<%
	
	dr = d.getDataSP("sp_helpuser")
	Dim CurUsers as New HashTable()
	
	
	With Response
		.write ("<table width=""100%"" cellpadding=""2"" cellspacing=""0"">")
		.write ("<tr><td class=""WindowHeader"">")
		DrawTitle ("Database Users", "setDatabase.aspx")
		.write ("</td></tr>")
		.write ("<tr><Td class=""TableHeader"" style=""padding: 10px;"">")
		.write ("<table width=""100%"" class=""MainStyle"">")
		.write ("<tr><td>")
		.write ("<a href=""users_edit.aspx""><b>New User</b></a>")
		.write ("</td></tr>")
		.write ("</table><br>")
	
		.write ("<table class=""TableStyle"" border=""0"" width=""100%""  cellspacing=""0"" cellpadding=""2"">")
		.write ("<tr><td class=""TableHeader"" colspan=""2"">")
		.write ("UserName")
		.write ("</td><td class=""TableHeader"">")
		.write ("LoginName")
		.write ("</td><td class=""TableHeader"">")
		.write ("DefDBName")
		.write ("</td><td class=""TableHeader"" width=""20"">")
		.write ("&nbsp;")
		.write ("</td></tr>")
		while dr.read()
				if CurUsers.ContainsKey(dr("UserName")) = False then
					CurUsers.Add(dr("UserName"), dr("LoginName"))
					.write ("<tr><td width=""30"" class=""TableGrid"">")
					.write ("<img src=""images/small_icons_users.gif"">")
					.write ("</td><td align=""left"" width=""200"" class=""TableGrid"">")
					.write ("<a href=""users_edit.aspx?user=" & dr("UserName") & """>")
					.write (dr("UserName") & "</a>&nbsp;")
					.write ("</td><td class=""TableGrid"">")
					.write (dr("LoginName") & "&nbsp;")
					.write ("</td><td class=""TableGrid"">")
					.write (dr("DefDBName") & "&nbsp;")
					.write ("</td><td class=""TableGrid"" align=""center"">")
					.write ("<a href=""javascript:confirmDrop('" & dr("UserName") & "');"">")
					.write ("<img src=""images/drop.gif"" alt=""Drop User"" border=""0""></a>")
					.write ("</td></tr>")
				end if
		
		end while
		.write ("</table>")
		
		.write ("<br></td></tr>")
		.write ("</table>")
		
	End With
	

	

%>