An idea came up today. When only knowing the database name, use asp to get all the table names, field names of all tables, and the contents of all fields in the database. After a period of searching for information and modifications, I finally made it, and now I’m sharing it with you. Copy the code code as follows:
<%
'Function: Display table names, field names, and field contents in the database
'Original: wangsdong
'Original article, please keep this information for reprinting, thank you
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 table name:&rs(2)&<br />
Set rs1=server.CreateObject(adodb.recordset)
sql=select * from &rs(2)
Set rs1=conn.execute(sql)
response.write field name:
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
%>
Just change the database name and run the program to see the results.