ASP获取数据库表名，字段名以及对字段的一些操作

最近，在ASP论坛上看到很多网友问怎么获取数据库表名，字段名以及如何对字段进行删除，增添的操作故写此文。 
本人对SQLServer比较熟一些，故以SQLServer为列： 
<% 
SET Conn=Server.CreateObject("ADODB.Connection") 
Conn.Open "Server=IP地址;Provider=sqloledb;Database=库名称;UID=用户名;PWD=密码;" 
%> 
读SqlServer库中的表名: 
<% 
Set rs=Conn.OpenSchema(20) 
While not rs.EOF 
Response.Write("所在数据库名:" & rs(0) & "<br>") 
Response.Write("所有者:" & rs(1) & "<br>") 
Response.Write("表 名:" & rs(2) & "<br>") 
Response.Write("表的类型:" & rs(3) & "<br>") 
rs.MoveNext 
Wend 
%> 
这样，我们知道表名了，现在我们再来看看怎么对表的字段进行操作。 
假设：其中数据库中有表：[Things],表中字段为：id,thingsName,thingsType 
获取该表的所有字段名： 
<% 
Dim i,j，Sql 
Set rs=Server.CreateObject(“ADODB.Recordset”) 
Sql="select * from [Things] where 1<>1" 
rs.open sql,Conn,1,1 
j=rs.Fields.count 
For i=0 to (j-1) 
Response.Write("第" & i+1 & "个字段名：" & rs.Fields(i).Name & "<br><br>") 
Next 
%> 
好了，现在我们明白了怎么获取字段名了。 
如果大家想对获取的字段值进行一些操作，这也是可以的： 
比如我们想要删除表[Things]中字段thingsType ，就可 
以这样写： 
<% 
Sql="ALTER TABLE [Things] DROP COLUMN thingsType" 
Conn.execute Sql 
%> 
又比如我们想要添加一个字段thingsCOLOR,它的类型为varchar型，长度为20,且默认值为Red，写法如下： 
<% 
Sql="ALTER TABLE [Things] ADD thingsCOLOR VARCHAR(20) DEFAULT ‘Red‘" 
Conn.execute Sql 
%> 
以上对字段的基本操作都是用SQL语言实现，在ASP中，通过SQL语言，我们只要有足够的权限就可以完成 
更多的数据库操作，比如用CREATE建表，用DROP删除表等等

最后，本人才疏学浅，本篇文章肯定会有错误之处，还望大家批评。 
也希望大家在CSDN上发短信给我共同探讨，谢谢大家！