亚洲乱码中文字幕综合,中国熟女仑乱hd,亚洲精品乱拍国产一区二区三区,一本大道卡一卡二卡三乱码全集资源,又粗又黄又硬又爽的免费视频

asp獲取數(shù)據(jù)庫中表名和字段名的代碼

 更新時間：2008年09月19日 18:16:16   作者：  
今天冒出來一個想法，在僅知道數(shù)據(jù)庫名的情況下，用asp得到數(shù)據(jù)庫中的所有表名、所有表的字段名、以及所有字段中的內(nèi)容。經(jīng)過一段時間查詢資料和修改，終于做出來了，現(xiàn)在與大家分享。
復(fù)制代碼 代碼如下:

< %
'功能：顯示數(shù)據(jù)庫中表名、字段名、字段內(nèi)容
'原創(chuàng)：wangsdong
'原創(chuàng)文章，轉(zhuǎn)載請保留此信息，謝謝

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

只要改變一下數(shù)據(jù)庫名，然后運行一下這個程序，就可以看到結(jié)果了。

相關(guān)文章

最新評論