ASP obtains the table name and field name code in the database.

CopyCode The Code is as follows: <%
'Function: displays the table name, field name, and field content in the database.
'Original: wangsdong
'Originality Article Reprinted. Please keep this information. 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.exe cute (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 thisProgramYou can see the result.