asp显示数据库中表名、字段名、字段内容
作者:wangsdong 来源:aspprogram.cn 时间:2008-06-17 18:09:00
今天冒出来一个想法,在仅知道数据库名的情况下,用asp得到数据库中的所有表名、所有表的字段名、以及所有字段中的内容。经过一段时间查询资料和修改,终于做出来了,现在与大家分享。
< %
'功能:显示数据库中表名、字段名、字段内容
'原创:wangsdong
'来源:www.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)&"
"
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 "
"
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%>
标签:数据库,asp,字段,表
0
投稿
猜你喜欢
access MDB 转换为 Execl(ASP类)
2008-07-19 12:10:00
模仿PHP写的ASP分页函数
2008-04-13 06:11:00
Sun拟10亿美元收购MySQL
2008-01-17 11:56:00
我的页面制作方法
2008-03-23 13:51:00
谈谈网页一屏有多大?
2007-12-21 12:28:00
asp清空站点缓存
2009-08-04 18:01:00
如何将txt文本中的数据轻松导入MySQL表中
2009-03-06 17:35:00
搜索结果页(SERP):个性化如何影响用户行为?
2009-07-22 21:00:00
在ASP中使用Oracle数据库技巧
2008-05-17 11:47:00
XML的简单读取与写入
2008-09-04 10:35:00
Mysql数据库备份和还原常用的命令
2011-12-01 10:41:54
ajax 同步请求和异步请求的差异分析
2011-07-05 12:36:04
[翻译]标记语言和样式手册 Chapter 14 图片替换
2008-02-18 12:56:00
游戏的用户体验营销小札
2009-08-30 15:13:00
避免使用滤镜
2009-10-13 20:30:00
间歇向上无缝翻滚代码
2008-05-05 12:30:00
牛刀小试YUI compressor(YUI安装方法)
2009-02-12 16:18:00
静态页面实现文章点击数统计的js方法
2008-01-23 19:17:00
13个超酷的js显示时间效果
2007-08-30 09:52:00
Instr函数与InstrRev函数的区别
2008-07-07 16:53:00