用户ASP中读出数据库名，表名，和字段名SQL的也行

<%'---------------读access库中的表名-------------------------  
             
             
              set conn=server.createobject("adodb.connection")
              connstr="Provider=Microsoft.jet.oledb.4.0;data source="&server.mappath("www.yy66.net.mdb")
             
             conn.open connstr
             
              Set     rstSchema=Conn.OpenSchema(20)  
               
              Do     Until     rstSchema.EOF  
                          Response.Write"Table     name:"& rstSchema(2)&"<br>     "& "Tabletype:"& rstSchema(3)&"< br> "  
                          rstSchema.MoveNext  
              Loop  
              %>      

 

<%'---------------读sql     server库中的表名-------------------------  
              SET     Conn=Server.CreateObject("ADODB.Connection")  
              Conn.Open     "Server=IP地址;Provider=sqloledb;Database=库名称;UID=用户名;PWD=密码;"  
              Set     rstSchema=Conn.OpenSchema(20)  
               
              Do     Until     rstSchema.EOF  
                          Response.Write     "Table     name:"&     rstSchema(2)&     "<br>     "&     "Table     type:"&     rstSchema(3)&     "<br>     <br>     "  
                          rstSchema.MoveNext  
              Loop  
              %>          
       
          <%'---------------读oracle库中的表名-------------------------  
              SET     Conn=Server.CreateObject("ADODB.Connection")  
              Conn.Open     "Provider=MSDAORA.1;Password=密码;User     ID=用户名;Data     Source=数据源名称"  
              Set     rstSchema=Conn.OpenSchema(20)  
               
              Do     Until     rstSchema.EOF  
                          Response.Write     "Table     name:"&     rstSchema(2)&     "<br>     "&     "Table     type:"&     rstSchema(3)&     "<br>     < br>     "  
                          rstSchema.MoveNext  
              Loop  
              %>