test.aspx

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

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.sqlclient" %>
<%@ Import Namespace="MLP.data" %>

<style>

	.TableStyle { font-family: Arial;
					  font-size: 8pt;
					}	
	.TableHeader { background-color: #999999;
						border: #666666 #CCCCCC #CCCCCC #666666;
						border-style: solid;
						border-width: 1px
					}

</style>


<%
	

	if Request("Catalog") = "" then
		session("MyConString") = "Data Source=66.45.113.68;uid=sa;pwd="
	else
		session("MyConString") = "Data Source=66.45.113.68;Initial Catalog=" & request("Catalog") & ";uid=sa;pwd="
	end if
	Dim d as new MLP.Data.Data
	Dim dr as SqlDataReader
	
	dr = d.getDataSP("SP_DATABASES")
	
	With Response
		.write ("<table class=""TableStyle"">")
		While dr.read()
			.write ("<tr><td>")
		   .write ("<a href=""default.aspx?Catalog=" & dr("Database_Name") & """>")
			.write (dr(0) & "</a><br>")
			.write ("</td><td align=""right"">")
			.write (FormatNumber(dr("Database_Size"), 0) & " KB")
			.write ("</td></tr>")
			
		End While
		.write ("</table>")
	End With
	
	
	response.write ("<br><br><br>")
   
	dr = d.getDataSP("SP_Tables")
	
	With Response
		.write ("<table class=""TableStyle"">")
		while dr.read()
			if dr("Table_Type") <> "SYSTEM TABLE" then
				.write ("<tr><td>")
				.write (dr("Table_Name"))
				.write ("</td><td>")
				.write (dr("Table_Type"))
				.write ("</td></tr>")
			end if
		end while
		.write ("</table>")
	End With
	
	dr = d.getDataSP("SP_Stored_Procedures")
	
	With Response
		.write ("<br><Br>")
		.write ("<table class=""TableStyle"">")
		while dr.read()
			if Left(dr("Procedure_Name"), 3) <> "dt_" then
				.write ("<tr><td>")
				.write (Replace(dr("Procedure_Name"), ";1", ""))
				.write ("</td><td>")
				.write (dr("Procedure_Owner"))
				.write ("</td></tr>")
			end if
		end while
		.write ("</table>")
	End With
	
	
	
	dr = d.getData("USE master Select * from spt_datatype_info order by Type_Name ASC")
	
	Dim AI as String
	Dim X as Integer
	Dim First as Boolean
	With Response
		.write ("<br><Br>")
		.write ("<table class=""TableStyle"" border=""1"" cellspacing=""0"" cellpadding=""3"">")
				
			First = True
			while dr.read()
				if First then
					.write ("<tr>")
					For X = 0 to dr.FieldCount - 1
						.write ("<td class=""TableHeader"">" & dr.GetName(X) & "</td>")
					Next	
					.write ("</tr>")
					First = False
				end if
				.write ("<tr>")
					For X = 0 to dr.FieldCount - 1
						.write ("<td>" & dr.Item(x) & "&nbsp;</td>")
					Next
					'AI = iif (IsDBnull(dr("Auto_Increment")), 0, dr("Auto_Increment"))
					'if AI <> 1 then	
					'	.write ("<option>" & dr("Type_Name") & vbCRLF)
					'end if				
				.write ("</tr>")
			end while
		
		
		.write ("</table>")
	End With
	
	
%>