首页 > > 网络编程 > Mssql >

经典源码——SQL SERVER结构浏览器

2008-04-02 10:30:46来源：互联网阅读 ()

　　日前，本编辑在TechTarget站浏览时，无意中发现了此代码，看了又看觉得甚是经典，遂拿出和众SQLer分享，欢迎交流。

<%@ LANGUAGE = J<I>script</I> %>
<%
<I>var</I> ConnStr= "DSN=admin"; //
<I>var</I> UserLogin= "sa"; // input empty Login and Password,
<I>var</I> UserPassword= ""; // if your DSN works via WinNT trust connection
<I>var</I> CharSet= "gb2312"; // as sample "windows-1251"
<I>var</I> PgSize= 10;
%>
<html>
<head>
<<I>meta</I> http-equiv="content-type" content="text/html; charset=<%=CharSet%>">
<title>MS SQL Structure Viewer Version 1.2</title>
</head>
<body bgcolor=#2f2f2f link=#000000 vlink=#000000 alink=#000000 topmargin=1 leftmargin=1>
<table width='100%' bgcolor=gray cellpadding=0 cellspacing=0><td>
<table width='100%' cellpadding=0 cellspacing=1>
<tr><td align=center>
<font color=white size= 1><b>MS SQL WebTools >> Table Structure Viewer</b></font></td>
<td align=right>
<font color=black><small><b>written by
<a href="mailto:little@ivc.tagmet.ru">
<font color=black><small><b>Alexander Tkalich</b></small></a></b></small></font>
</td></tr>
</table>
</td>
</table>
<p>
<%
<I>var</I> trColor1= "#7f9faf", trColor2= "#bfcfd7";
<I>var</I> trColor= trColor1;

<I>function</I> isDef( Value){
if( Value== ( Value "")) return true;
return false;
}

<I>function</I> QOutSelect( Conn, Name, Value, FirstName, FirstValue, SQL, SSize){
<I>var</I> Rs= Conn.Execute( SQL);
Response.Write( "<select name='" Name "' size=" SSize ">");
if( FirstName!= "")
Response.Write( "<option value='" FirstValue "'>" FirstName);
for( ; !Rs.EOF; Rs.MoveNext()){
Id= Rs( 0);
Nm= Rs( 1);
if( Value== "" Id) S= 'selected'; else S= '';
Response.Write( "<option value='" Id "' " S ">" Nm "\n");
}
Response.Write( "</select>");
}

<I>var</I> S, DbName, TbName, Tbl, Row;
if( !isDef( DbName= Request.Form( "DbName")))
DbName= Request.QueryString( "DbName");
if( !isDef( TbId= Request.Form( "TbId")))
TbId= Request.QueryString( "TbId");
Tbl= Request.QueryString( "Tbl");
Row= Request.QueryString( "Row")/ 1;
%>

<center>

<%
<I>var</I> Conn= Server.CreateObject("ADODB.Connection");
Conn.Open( ConnStr, UserLogin, UserPassword);

if( !isDef( Tbl)){
%>

<form name='f' method=post action='TbStru.asp'>
<input type=hidden name=CurrentDb value='<%=DbName%>'>
<table border=1 bgcolor=#7f9faf cellpadding=0 cellspacing=0><td>
<table border=0 cellpadding=8 cellspacing=0><tr valign=bottom><td align=center><b>Databases</b><br>

<%
QOutSelect( Conn, "DbName' onChange='document.f.submit();", DbName, "", "",
"select name, name from master.dbo.sysdatabases Order by name", 10);
Response.Write( '</td>');
if( isDef( DbName)){
Response.Write( '<td align=center><b>Tables & Views</b><br>');
QOutSelect( Conn, "TbId' onChange='document.f.submit();", TbId, '', '',
"select id, name from " DbName ".dbo.sysobjects where type in ('U','V') and category<>2 Order By Name", 10);
Response.Write( '</td>');
}
if( isDef( DbName)) S= 'Show structure';
else S= 'Show list of tables';
Response.Write(
"\n<td><table height='100%' border=0>\n"
"<tr valign=bottom><td><input type=submit value='" S "'></td></tr>\n"
"</table></td></tr></table></td></table></form><p>\n"
);
}

if( !isDef( CurrentDb= Request.Form( "CurrentDb")))
CurrentDb= Request.QueryString( "CurrentDb");
if( !isDef( Tbl)&& isDef( DbName)&& DbName ""== CurrentDb ""&& isDef( TbId)){
Rs= Conn.Execute(
"select O.name, U.name"
" from " DbName ".dbo.sysobjects O, "
DbName ".dbo.sysusers U"
" where O.id=" TbId " and U.uid=O.uid"
);
TbName= Rs( 0);
TbOwner= Rs( 1);
Response.Write(
"<a target='_blank' href='TbStru.asp?Tbl=[" DbName "].[" TbOwner "].[" TbName "]&TbId=" TbId
"&DbName=" DbName "'>"
"<font color=white><b>" DbName "." TbOwner "." TbName "</b></font></a>\n"
);
Response.Write( "<br>\n");
Rs= Conn.Execute(
"select C.name, T.name, C.length, C.xprec, C.xscale,"