当前位置: 首页 > 图文教程 > 网络编程 > ASP > SQL SERVER结构浏览器

ASP
编写通用的asp防注入程序
vbs(asp)下的Function 语句
ASP中类Class相关内容的整理资料
字符批量替换程序asp服务器版
旁注-网站小助手旭方修改免杀asp版
用正则表达式写的HTML分离函数
asp中"无限流"分页程序代码
asp的一个日期格式化函数
asp中创建多级目录的两段代码
asp中去除内容HTML标签的三个function函数
chr(9)、chr(10)、chr(13)、chr(32)、chr(34)讲解
方便的大家admin及admin888 经过 md5加密后16位和32位代码
可用的ASP无重复数字随机函数, 数组实现, 并应用于随机显示记录集
asp动态级联菜单代码
ASP中经常使用的SQL语句与教程说明
实例分析之用ASP编程实现网络内容快速查找的代码
服务端 VBScript 与 JScript 几个相同特性的写法与示例
ASP 环境下 VBS 事件应用 示例代码
asp 之上传漏洞终结篇
asp中一段防SQL注入的通用脚本

ASP 中的 SQL SERVER结构浏览器


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 126 ::
收藏到网摘: n/a

  从老外那儿转帖过来的

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

<%@ 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 &gt;&gt; Table Structure Viewer</b></font></td>
    <td align=right>
    <font color=black><small><b>written by
    <a href="mailto:[email protected]">
    <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>

<%
&