views.aspx

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

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

<%
	
	dr = d.getDataSP("sp_tables")
	
	
	
	With Response
	
		.write ("<br><table cellspacing=""0"" class=""TableStyle"" width=""100%"">")
		.write ("<tr><td class=""WindowHeader"">")
		
		 DrawTitle ("Views", "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()
			if dr("Table_Type") <> "SYSTEM TABLE" and dr("Table_Type") <> "TABLE" and dr("Table_Owner") <> "INFORMATION_SCHEMA" then
				
				if InStr(SysViews, "*" & dr("Table_Name") & "*") = 0 then	
					.write ("<tr><td width=""21"" class=""TableGrid"">")
					.write ("<img src=""images/smallicon_table.gif"">")
					.write ("</td><td  NOWRAP class=""TableGrid"">")
					.write ("<a href=""views_edit.aspx?view=" & dr("Table_Name") & """>")
					.write (dr("Table_Name"))
					.write ("</a>")
					.write ("</td><td NOWRAP class=""TableGrid"">")
					.write (dr("TABLE_OWNER"))
					.write ("</td><td width=""100"" class=""TableGrid"">")
					.write (dr("TABLE_TYPE"))
					.write ("</td></tr>")
				end if
					
			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"-->