asp获取数据库中表名和字段名的代码

140 阅读 0 评论 93 点赞

我是靠谱客的博主刻苦盼望，最近开发中收集的这篇文章主要介绍asp获取数据库中表名和字段名的代码，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

复制代码代码如下:

< % 
'功能：显示数据库中表名、字段名、字段内容 
'原创：wangsdong 
'原创文章，转载请保留此信息，谢谢 

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 
% > 