<%

Dim conn, rs, strSQL, fldName

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "你的数据库连接字符串"

strSQL = "SELECT COLUMN_NAME FROM INFORMATION_SCHEMA.COLUMNS WHERE TABLE_NAME = '你的表名' AND TABLE_SCHEMA = 'dbo'" '或者你的模式名'

Set rs = conn.Execute(strSQL)

Response.Write("<table border='1'><tr><th>列名</th></tr>")

Do While Not rs.EOF

   Response.Write("<tr><td>" & rs("COLUMN_NAME").Value & "</td></tr>")

   rs.MoveNext()

Loop

Response.Write("</table>")

rs.Close

conn.Close

Set rs = Nothing

Set conn = Nothing

%>