'功能：显示数据库中表名、字段名、字段内容

setrs=server.CreateObject("adodb.recordset")

db="db1.mdb"

setconn=server.CreateObject("adodb.connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db)

conn.openconnstr

Setrs=Conn.OpenSchema(20)

DoUntilrs.EOF

Ifrs(3)="TABLE"Then

response.write"表名:"&rs(2)&"<br/>"

Setrs1=server.CreateObject("adodb.recordset")

sql="select*from"&rs(2)

Setrs1=conn.execute(sql)

response.write"字段名:"

Fori=0Tors1.fields.count-1

response.writers1.fields(i).name&""

Next

response.write"<br/>"

DoWhileNotrs1.eof

response.write""

Fori=0Tors1.fields.count-1

t=rs1.fields(i).name

response.writers1(t)&""

Next

response.write""

rs1.movenext

Loop

response.write""

EndIf

rs.MoveNext

Loop

Setrs=Nothing

Setconn=nothing

%>

下一篇：ASP实现头像图像随机变换