< %
'功能：显示数据库中表名、字段名、字段内容
'原创：wangsdong
'来源：aspprogram.cn
'原创文章，转载请保留此信息，谢谢
set rs=server.CreateObject("adodb.recordset")
db="db1.mdb"
set conn=server.CreateObject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
Set rs=Conn.OpenSchema(20)
Do Until rs.EOF
If rs(3)="TABLE" Then
response.write "表名:"&rs(2)&"<br />"
Set rs1=server.CreateObject("adodb.recordset")
sql="select * from "&rs(2)
Set rs1=conn.execute(sql)
response.write "字段名:"
For i=0 To rs1.fields.count-1
response.write rs1.fields(i).name&" "
Next
response.write "<br />"
Do While Not rs1.eof
response.write " "
For i=0 To rs1.fields.count-1
t=rs1.fields(i).name
response.write rs1(t)&" "
Next
response.write " "
rs1.movenext
Loop
response.write " "
End If
rs.MoveNext
Loop
Set rs=Nothing
Set conn=nothing
% >
SQL Server
<%
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) & "
")
Response.Write("所有者:" & rs(1) & "
")
Response.Write("表 名:" & rs(2) & "
")
Response.Write("表的类型:" & rs(3) & "
")
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 & "
")
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删除表等等