📄 databases2.aspx
字号:
<!--#include file="includes/topnav.aspx"-->
<%
Try
dr = d.getDataSPA("SP_DATABASES")
With Response
.write ("<table class=""LeftStyle"" cellpadding=""1"" cellspacing=""0"">")
.write ("<tr><td width=""100%"" colspan=""2"">")
.write ("<img src=""images/small_Icons_Folder.gif"" align=""left"">")
.write (" Databases")
.write ("</td></tr>")
.write ("<tr><td colsapn=""2"">")
.write ("<img src=""images/spacer.gif"">")
.write ("</td></tr>")
While dr.read()
if InStr(SysDBs, "*" & dr("Database_Name") & "*") = 0
.write ("<tr><td>")
.write (" <img src=""images/smallIcon_database.gif"">")
.write ("</td><td width=""100%"">")
.write ("<a href=""setdatabase.aspx?Catalog=" & dr("Database_Name") & """ alt=""" & dr("Database_Name") & " - " & FormatNumber(dr("Database_Size"), 0) & " KB"" target=""MainFrame""")
.write (" onClick=""location.href='databases.aspx?Catalog=" & dr("DataBase_Name") & "';""")
.write (" >")
.write (dr(0) & "</a><br>" & vbCRLF)
.write ("</td></tr>")
.write ("</td></tr>")
if lcase(session("CatalogName")) = lcase(dr(0)) then
Dim dr2 as sqlDataReader
' .write ("<tr><td>")
' .write (" ")
' .write ("</td><td>")
' .write ("<img src=""images/small_Icons_Diagrams.gif"" ALIGN=""ABSMIDDLE"">")
' .write (" Diagrams")
.write ("</td></tr>")
.write ("<tr><td>")
.write (" ")
.write ("</td><td>")
.write ("<img src=""images/small_Icons_Tables.gif"" ALIGN=""ABSMIDDLE"">")
.write ("<a href=""tables_list.aspx"" target=""MainFrame"">")
.write (" <b>Tables</b></a>")
.write ("</td></tr>")
.write ("<tr><td>")
.write (" ")
.write ("</td><td>")
.write (" ")
.write ("<a href=""tables_design.aspx"" target=""MainFrame"">")
.write ("<i>New Table...</i></a>")
'ENUMERATE TABLES
dr2 = d.getDataSP("sp_tables")
With Response
while dr2.read()
if dr2("Table_Type") <> "SYSTEM TABLE" and dr2("Table_Type") <> "VIEW" and InStr(SysTables, dr2("Table_Name")) = 0 then
.write ("<tr><td>")
.write (" ")
.write ("</td><td>")
.write (" ")
.write ("<a class=""ItemLink"" href=""tables_properties.aspx?table=" & dr2("Table_Name") & """ target=""MainFrame"">")
.write (dr2("Table_Name"))
.write ("</a>")
.write ("</td><td>")
end if
end while
End With
' VIEWS
.write ("<tr><td>")
.write (" ")
.write ("</td><td>")
.write ("<img src=""images/small_Icons_Views.gif"" ALIGN=""ABSMIDDLE"">")
.write (" <a href=""views.aspx"" target=""MainFrame""><b>Views</b></a>")
.write ("</td></tr>")
.write ("<tr><td>")
.write (" ")
.write ("</td><td>")
.write (" ")
.write ("<a href=""views_edit.aspx"" target=""MainFrame"">")
.write ("<i>New View...</i></a>")
.write ("</td></tr>")
'ENUMERATE VIEWS
dr2 = d.getDataSP("sp_tables")
With Response
while dr2.read()
if dr2("Table_Type") <> "SYSTEM TABLE" and dr2("Table_Type") <> "TABLE" and dr2("Table_Owner") <> "INFORMATION_SCHEMA" then
if InStr(SysViews, "*" & dr2("Table_Name") & "*") = 0 then
.write ("<tr><td>")
.write (" ")
.write ("</td><td>")
.write (" ")
.write ("<a class=""ItemLink"" href=""views_edit.aspx?view=" & dr2("Table_Name") & """ target=""MainFrame"">")
.write (dr2("Table_Name"))
.write ("</a>")
.write ("</td><td>")
end if
end if
end while
End With
' STORED PROCEDURES
.write ("<tr><td>")
.write (" ")
.write ("</td><td NOWRAP>")
.write ("<img src=""images/small_Icons_Stored_Procedur.gif"" ALIGN=""ABSMIDDLE"">")
.write (" <a href=""StoredProcedures.aspx"" target=""MainFrame""><b>Stored Procedures</b></a>")
.write ("</td></tr>")
.write ("<tr><td>")
.write (" ")
.write ("</td><td>")
.write (" ")
.write ("<a href=""storedProcedure_edit.aspx"" target=""MainFrame"">")
.write ("<i>New Procedure...</i></a>")
.write ("</td></tr>")
'ENUMERATE STORED PROCEDURES
dr2 = d.getDataSP("sp_stored_procedures")
Dim ProcedureName as String
Dim ShowProcedure as Boolean
While dr2.read()
ProcedureName = Left(dr2("Procedure_Name"), InStr(dr2("Procedure_Name") , ";") - 1)
' Do not display the 30 stored procedures that are generated when creating a view using the visual tools of Microsoft Enterprise Manager Software
ShowProcedure = False
if Len(ProcedureName) > 3 then
if Left(ProcedureName, 3) <> "dt_" then
ShowProcedure = True
end if
else
ShowProcedure = True
end if
if ShowProcedure then
.write ("<tr><td>")
.write (" ")
.write ("</td><td>")
.write (" ")
.write ("<a href=""StoredProcedure_edit.aspx?sp=" & ProcedureName & """ target=""MainFrame"" class=""ItemLink"">")
.write (ProcedureName)
.write ("</a>")
.write ("</td></tr>")
end if
End While
' USERS
.write ("<tr><td>")
.write (" ")
.write ("</td><td>")
.write ("<img src=""images/small_Icons_Users.gif"" ALIGN=""ABSMIDDLE"">")
.write (" <a href=""users.aspx"" target=""MainFrame"">Users</a>")
.write ("</td></tr>")
'ROLES
.write ("<tr><td>")
.write (" ")
.write ("</td><td>")
.write ("<img src=""images/small_Icons_Roles.gif"" ALIGN=""ABSMIDDLE"">")
.write (" <a href=""roles.aspx"" target=""MainFrame"">Roles</a>")
.write ("</td></tr>")
' .write ("<tr><td>")
' .write (" ")
.write ("</td><td>")
' .write ("<img src=""images/small_Icons_Rules.gif"" ALIGN=""ABSMIDDLE"">")
' .write (" Rules")
' .write ("</td></tr>")
' .write ("<tr><td>")
' .write (" ")
' .write ("</td><td>")
' .write ("<img src=""images/small_Icons_Defaults.gif"" ALIGN=""ABSMIDDLE"">")
' .write (" Defaults")
' .write ("</td></tr>")
' .write ("<tr><td>")
' .write (" ")
' .write ("</td><td>")
' .write ("<img src=""images/small_Icons_User_Defined_Ty.gif"" ALIGN=""ABSMIDDLE"">")
' .write (" User Defined Data Types")
' .write ("</td></tr>")
' .write ("<tr><td>")
' .write (" ")
' .write ("</td><td>")
' .write ("<img src=""images/small_Icons_User_Defined_Fu.gif"" ALIGN=""ABSMIDDLE"">")
' .write (" User Defined Functions")
' .write ("</td></tr>")
' .write ("<tr><td>")
' .write (" ")
' .write ("</td><td>")
' .write ("<img src=""images/small_Icons_Full_Text_Catal.gif"" ALIGN=""ABSMIDDLE"">")
' .write (" Full-Text Catalogs")
' .write ("</td></tr>")
.write ("<tr><td colsapn=""2"">")
.write ("<img src=""images/spacer.gif"">")
.write ("</td></tr>")
dr2.close()
dr2 = Nothing
end if
end if
End While
.write ("<tr><td colsapn=""2"">")
.write ("<img src=""images/spacer.gif"">")
.write ("</td></tr>")
.write ("<table class=""LeftStyle"" cellpadding=""1"" cellspacing=""0"">")
.write ("<tr><td width=""100%"" colspan=""2"">")
.write ("<img src=""images/small_Icons_Folder.gif"" align=""left"">")
.write (" Security")
.write ("</td></tr>")
.write ("<tr><td colsapn=""2"">")
.write ("<img src=""images/spacer.gif"">")
.write ("</td></tr>")
.write ("<tr><td>")
.write (" <img src=""images/small_Icons_logins.gif"">")
.write ("</td><td width=""100%"">")
.write ("<a href=""logins.aspx"" target=""MainFrame"">")
.write (" Logins</a>")
.write ("</td></tr>")
.write ("<tr><td>")
.write (" <img src=""images/small_Icons_ServerRoles.gif"">")
.write ("</td><td width=""100%"">")
.write ("<a href=""ServerRoles.aspx"" target=""MainFrame"">")
.write (" Server Roles</a>")
.write ("</td></tr>")
.write ("</table>")
End With
catch a As System.Exception
Session("Error") = a
%>
<script language="JavaScript">
parent.location.href='HandleError.aspx';
</script>
<% Response.End
end try
%>
<!--#include file="includes/bottom.aspx"--> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -