ASP獲取數據庫表名、庫名、字段名的方法

ASP獲取數據庫表名，字段名

以SQLServer為例：

代碼如下:
< %  
SET Conn=Server.CreateObject("ADODB.Connection")  
Conn.Open "Server=IP地址;Provider=sqloledb;Database=庫名稱(chēng);UID=用戶(hù)名;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("表的類(lèi)型:" & rs(3) & "<br />")  
rs.MoveNext  
Wend  
%>

這樣，我們知道表名了，現在我們再來(lái)看看怎么對表的字段進(jìn)行操作。
假設：其中數據庫中有表：[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 & "個(gè)字段名：" & rs.Fields(i).Name & "<br /><br />")  
Next  
%>
好了，現在我們明白了怎么獲取字段名了。
如果大家想對獲取的字段值進(jìn)行一些操作，這也是可以的：
比如我們想要刪除表[Things]中字段thingsType ，就可
以這樣寫(xiě)：
代碼如下:
< %  
Sql="ALTER TABLE [Things] DROP COLUMN thingsType"  
Conn.execute Sql  
%>
又比如我們想要添加一個(gè)字段thingsCOLOR,它的類(lèi)型為varchar型，長(cháng)度為20,且默認值為Red，寫(xiě)法如下：
代碼如下:
< %  
Sql="ALTER TABLE [Things] ADD thingsCOLOR VARCHAR(20) DEFAULT 'Red'"  
Conn.execute Sql  
%>
以上對字段的基本操作都是用SQL語(yǔ)言實(shí)現，在A(yíng)SP中，通過(guò)SQL語(yǔ)言，我們只要有足夠的權限就可以完成

更多的數據庫操作，比如用CREATE建表，用DROP刪除表等等。