[QUOTE]Sub ShowColumn(TableName)
Set Rs=Conn.Execute("select * from ["& TableName &"]")
For I =0 to Rs.Fields.Count - 1
Response.Write(I &"、"& Rs.Fields(I).Name &"<BR>")
Next
Set Rs = Nothing
End Sub
Call ShowColumn("表名")[/QUOTE]
适用于SQL、ACCESS数据库
[此贴子已经被作者于2007-3-12 10:41:12编辑过]