asp获取数据库中表名和字段名的代码
来源:asp之家 时间:2011-04-18 11:02:00
代码如下:
< %
'功能:显示数据库中表名、字段名、字段内容
'原创:wangsdong
'原创文章,转载请保留此信息,谢谢 'www.naikaboli.com
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
% >
只要改变一下数据库名,然后运行一下这个程序,就可以看到结果了。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
Oracle也有注入漏洞
Dreamweaver制作网页实用七小招
如何更快更好地调试ASP程序代码?
如何创建 Firefox 的 Jetpack 扩展
![](https://img.aspxhome.com/file/UploadPic/200910/13/jetpack01-44s.png)
设计较好付款流程的12个建议
![](https://img.aspxhome.com/file/UploadPic/20096/8/11-95s.png)
两行代码实现的QQ窗口抖动效果
我是如何从玩Photoshop变成老板的
![](https://img.aspxhome.com/file/UploadPic/20084/10/2008410114044665s.jpg)
ASP初学者常犯的几个错误
![](https://img.aspxhome.com/file/UploadPic/2007-1/2007130163317843s.gif)
asp防止盗链HTTP_REFERER判断代码
不要忽略了颜色的可用性
![](https://img.aspxhome.com/file/UploadPic/20093/5/01-24s.jpg)
好习惯和坏习惯
一个不错的js软键盘代码而且移植方便
![](https://img.aspxhome.com/file/UploadPic/up/2007081413364471.jpg)
css学习笔记:DIV水平垂直居中
![](https://img.aspxhome.com/file/UploadPic/20096/19/11f7897f788g213-40s.jpg)
仿DW的图形菜单 DIV+CSS
![](https://img.aspxhome.com/file/UploadPic/20078/14/2007814102358206s.gif)
SQL Server自动更新统计信息的基本算法
给验证码增加干扰的杂点
Asp操作Xml的精炼类,含示例代码
超长文章的智能分页-支持HTML
FSO读取BMP,JPG,PNG,GIF图像文件信息的函数
WAP设计基础
![](https://img.aspxhome.com/file/UploadPic/20111/6/1-56s.png)