📄 topnav.aspx

📁 ASP[1].NET在线SQL数据库企业管理器v0.13(C#源码提供),希望对大家有用
💻 ASPX
字号:
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.sqlclient" %>
<%@ Import Namespace="MLP.data" %>

<%

	'Response.Expires = 60
	'Response.Expiresabsolute = DateAdd("d", -1, Now())
	'Response.AddHeader ("pragma","no-cache")
	'Response.AddHeader ("cache-control","private")
	'Response.CacheControl = "no-cache"


	Dim SysViews as String = "*sysalternates*sysconstraints*syssegments*"
	Dim SysDBs as String = "*model*msdb*tempdb*"
	Dim SysTables as String = "*dtproperties*"
	
	if request("Catalog") <> "" then
		session("CatalogName") = request("Catalog")
		session("MyConString") = "Data Source=" & session("DataSource") & ";Initial Catalog=" & request("Catalog") & ";uid=" & session("Username") & ";pwd=" & session("Password")
	elseif session("CatalogName") = ""  then
		session("CatalogName") = "master"
		session("MyConString") = "Data Source=" & session("DataSource") & ";uid=" & session("Username") & ";pwd=" & session("Password")
	end if
	
	
	Dim d as new MLP.Data.Data
	Dim dr as SqlDataReader
		

	if Trim(Session("MyConString")) = "" or Trim(session("Username")) = ""  then %>
		<script language="JavaScript">
			parent.location.href='connect.aspx';
		</script>
<% 	response.end

	end if %>

<script runat="server">

	Sub DrawTitle (Title, Href)
		With Response
			.write ("<a href=""" & HREF & """  ONMOUSEOUT=""document['CloseImage'].src = 'images/close.gif';"" ONMOUSEOVER=""document['CloseImage'].src = 'images/close_over.gif';"">")
			.write ("<img src=""images/close.gif"" align=""right"" border=""0"" name=""CloseImage""></a>")
			.write ("&nbsp;" & Title)
		End With
	End Sub

	Sub DisplayError (a as System.Exception)
			
			With Response
				.write ("<table width=""100%"" height=""90%"">")
				.write ("<tr><td valign=""middle"">")
				.write ("<center>")
				.write ("<table class=""TableStyle"" cellpadding=""0"" cellspacing=""0"" width=""400"">")
				.write ("<tr><td class=""WindowHeader"">")
				.write ("<a href=""javascript:history.back();""  ONMOUSEOUT=""document['CloseImage'].src = 'images/close.gif';"" ONMOUSEOVER=""document['CloseImage'].src = 'images/close_over.gif';"">")
				.write ("<img src=""images/close.gif"" align=""right"" border=""0"" name=""CloseImage""></a>")
				.write ("&nbsp;SQL Server Error")
				.write ("</td></tr>")
				.write ("<tr><td class=""TableHeader"" align=""center"">")
				.write ("<table cellpadding=""10"" class=""MainStyle""><tr><Td align=""center"">")
				.write ("<img src=""images/IconCritical.gif"" align=""left"">")
				.write ("<h2>" & a.Message & "</h2><br>")
				.write ("Error Code: " & a.GetHashCode & "&nbsp;&nbsp;")
				.write ("Source: " & a.Source & "<br><br>")
				.write ("</td></tr></table>")
				.write ("</td></tr>")
				.write ("</table><br>")
				.write ("</td></tr>")
				.write ("</table><br>")
				.end
			End With
	End Sub
	
	Sub DisplayMessage (message as String)
			With Response
				.write ("<table width=""100%"" height=""80%"">")
				.write ("<tr><td valign=""middle"">")
				.write ("<center>")
				.write ("<table class=""TableStyle"" cellpadding=""0"" cellspacing=""0"" width=""400"">")
				.write ("<tr><td class=""WindowHeader"">")
				.write ("<a href=""javascript:history.back();""  ONMOUSEOUT=""document['CloseImage'].src = 'images/close.gif';"" ONMOUSEOVER=""document['CloseImage'].src = 'images/close_over.gif';"">")
				.write ("<img src=""images/close.gif"" align=""right"" border=""0"" name=""CloseImage""></a>")
				.write ("&nbsp;ASP Enterprise Manager Message")
				.write ("</td></tr>")
				.write ("<tr><td class=""TableHeader"" align=""center"">")
				.write ("<table cellpadding=""10"" class=""MainStyle"" width=""100%""><tr><Td align=""center"">")
				.write ("<img src=""images/IconInformation.gif"" align=""left"">")
				.write (message & "<br><br>")
				.write ("</td></tr></table>")
				.write ("</td></tr>")
				.write ("</table><br>")
				.write ("</td></tr>")
				.write ("</table><br>")
				.end
			End With
	End Sub

</script>


<html>
<head>
<title>
		ASP Enterprise Manager for SQL Server & MSDE
</title>

<style>
	.MainStyle { font-family: Arial;
					  font-size: 10pt;
					
					}	


	.TableStyle { font-family: Arial;
					  font-size: 9pt;
					  background-color: #FFFFFF;
					  border:             windowframe 1px solid;
					}	
					
	.TableGrid {
			font-family: Verdana, Tahoma, sans-serif;
			font-size: 9pt;
			background-color: window;
			color: windowtext;
			border-right: threedlightshadow 1px solid;
			border-bottom: threedlightshadow 1px solid;
			color: #666666;
			padding-left: 3px;
			padding-right: 3px;
		}
		
	.TableHeader { font-size: 10pt;
						background-color: #CCCCCC;
						border-color: #EEEEEE #999999 #999999 #EEEEEE;
						border-style: solid;
						border-width: 1px
					}
					
	.WindowHeader { font-size: 10pt;
						background-color: #336699;
						border-color: #6699CC #003366 #003366 #6699CC;
						border-style: solid;
						border-width: 2px;
						color: #FFFFFF;
						font-weight: bold;
						font-family: Trebuchet MS;
					}
					
	.TableInput {
						font-family: Tahoma, Arial, Helvetica, sans-serif;
						font-size: 9pt;
						border: 1px #9999ff solid;
						padding-bottom: 3px;
						padding-left: 3px;
					} 

	.TableInputOff {
						font-family: Tahoma, Arial, Helvetica, sans-serif;
						font-size: 9pt;
						background-color: #eeeeff;
						color: #9999ff;
						border: 1px #9999ff solid;
						padding-bottom: 3px;
						padding-left: 3px;
					}
					
	.LeftStyle { font-family: Arial;
					  font-size: 8pt;
					}
	
	.InsertCell {  border: 1px #EEEEFF solid;
						width: 100%;
						height: 35px;
					}
		
	H1 { font-size: 14pt; font-family: Arial; font-weight: bold; margin-bottom: 2px; }	
	
	H2 { font-size: 11pt; font-family: Arial; font-weight: bold; margin-bottom: 2px; color: #990000;}	
					
	:link { color: #336699; text-decoration: none; }
	:visited { color: #336699;  text-decoration: none;}
	:Active { color: #FF0000; }
	:Focus { color: #FF0000; }
	:hover { color: #FF0000; }
	
	a.ItemLink { color: #999999; }
	a.ItemLink:visited { color: #999999; }
	a.ItemLink:Active { color: #FF0000; }
	a.ItemLink:Focus { color: #FF0000; }
	a.ItemLink:hover { color: #FF0000; }
</style>

</head>
<body bgcolor="#FFFFFF">

	<% if InStr(lcase(request.ServerVariables("SCRIPT_NAME")), "databases.aspx") = 0 and InStr(lcase(request.ServerVariables("SCRIPT_NAME")), "handleerror.aspx") = 0 _
		and InStr(lcase(request.ServerVariables("SCRIPT_NAME")), "changepassword.aspx") = 0 then %>
		<table class="MainStyle" width="100%">
		<tr><Td>
			<table cellpadding="0" cellspacing="0">
			<tr><td>
		 		<img src="images/Icons_database.gif">
		 	</td><td>
		 		<h1>&nbsp;&nbsp;<%= session("CatalogName") %></h1>
		 		
		 	</td></tr>
		 	</table>
		
		</td></tr>
		</table> 
		 <hr>
		
		
		 
	<% end if %>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -