SQL SERVER结构浏览器

　2001-02-08 10:56:08　来源：WEB开发网　　　

核心提示：从老外那儿转帖过来的很酷，只要修改几个参数就可以了，SQL SERVER结构浏览器，很有帮助<%@ LANGUAGE = JScript %><%var ConnStr= "DSN=admin";//var UserLogin= "sa";// input em

从老外那儿转帖过来的

很酷，只要修改几个参数就可以了，很有帮助

<%@ LANGUAGE = JScript %>
<%
　　　　var ConnStr= "DSN=admin";　　//
　　var UserLogin= "sa";　　　　// input empty Login and PassWord,
　　var UserPassword= "";　　// if your DSN works via WinNT trust connection
　　var CharSet= "gb2312";　　　　// as sample "windows-1251"
　　var PgSize= 10;　　
%>
<html>
<head>
<meta 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>
<%
var trColor1= "#7f9faf", trColor2= "#bfcfd7";
var trColor= trColor1;

function isDef( Value){
　　if( Value== ( Value+ "")) return true;
　　return false;
}

function QOutSelect( Conn, Name, Value, FirstName, FirstValue, SQL, SSize){
　　var 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>");
}

var 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>

<%
var 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' ><font color=white><b>Next >></b></font></a></td>\n");
　　}
　　Response.Write( "</table>");
}
%>