storedprocedures.aspx

来自「ASP[1].NET在线SQL数据库企业管理器v0.13(C#源码提供),希望对」· ASPX 代码 · 共 76 行

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

<%
	dr = d.getDataSP("sp_stored_procedures")
	
	Dim ProcedureName as String
	Dim ShowProcedure as Boolean
	
	With Response
	
		.write ("<br><table cellspacing=""0"" class=""TableStyle"" width=""100%"">")
		.write ("<tr><td class=""WindowHeader"">")
		
		 DrawTitle ("Stored Procedures", "setDatabase.aspx")
		
		.write ("</td></tr>")
		
		.write ("<tr><td class=""TableHeader"">")
	
		.write ("<table cellpadding=""10"" width=""100%"">")
		.write ("<tr><td>")
	
		.write ("<table class=""TableStyle"" cellspacing=""0"" cellpadding=""2"" width=""100%"" height=""300"">")
		.write ("<tr><td class=""TableHeader"" colspan=""2"">")
		.write ("Name")
		.write ("</td><td class=""TableHeader"">")
		.write ("Owner")
		.write ("</td><td class=""TableHeader"">")
		.write ("Type")
		.write ("</td></tr>")
		while dr.read()
				ProcedureName = Left(dr("Procedure_Name"), InStr(dr("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 width=""21"" class=""TableGrid"">")
						.write ("<img src=""images/small_Icons_Stored_Procedur.gif"">")
						.write ("</td><td  NOWRAP class=""TableGrid"">")
						.write ("<a href=""StoredProcedure_edit.aspx?sp=" & ProcedureName & """>")
						.write (ProcedureName)
						.write ("</a>")
						.write ("</td><td NOWRAP class=""TableGrid"">")
						.write (dr("Procedure_Owner"))
						.write ("</td><td width=""100"" class=""TableGrid"">")
						.write (dr("Procedure_Type"))
						.write ("</td></tr>")
					
				End if
				
		
		end while
		.write ("<tr><td colspan=""3"" height=""100%""><br><Br><Br></td></tr>")
		.write ("</table>")

		
		.write ("</td></tr>")
		.write ("</table>")

		.write ("</td></tr>")
		.write ("</table>")

	End With
	

	

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