logins.aspx

来自「在线SQL数据库企业管理器在线SQL数据库企业管理器」· ASPX 代码 · 共 66 行

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

<%
	
	Try
			dr = d.getDataSP("sp_helplogins")
			
			
			
			With Response
				
				.write ("<table width=""100%"" class=""MainStyle"">")
				.write ("<tr><td>")
				.write ("<a href=""logins_edit.aspx"">New Login</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 ("Login Name")
				.write ("</td><td class=""TableHeader"" NOWRAP>")
				.write ("Default DB")
				.write ("</td><td class=""TableHeader"" NOWRAP>")
				.write ("Default Language")
				.write ("</td></tr>")
				while dr.read()
				
						.write ("<tr><td width=""27"" align=""center"">")
						.write ("<img src=""images/small_icons_logins.gif"">")
						.write ("</td><td align=""left"" width=""45%"">")
						.write ("<a href=""logins_edit.aspx?loginName=" & dr("LoginName") & """>")
						.write (dr("LoginName") & "</a>&nbsp;")
						.write ("</td><td>")
						.write (dr("DefDBName") & "&nbsp;")
						.write ("</td><td>")
						.write (dr("DefLangName") & "&nbsp;")
						.write ("</td></tr>")
						
				
				end while
				.write ("</table>")
			End With
			
	Catch e as exception
	
		With Response
	
			.write ("<table width=""100%"" height=""70%"">")
			.write ("<tr><td align=""Center"" valign=""Middle"">")
			
			DisplayError (e)
			
			.write ("</td></tr>")
			.write ("</table>")
	
	
	
	
	
		End With
	
	End Try
	

%>