狠狠色丁香婷婷综合尤物/久久精品综合一区二区三区/中国有色金属学报/国产日韩欧美在线观看 - 国产一区二区三区四区五区tv

<%

Dim conn, rs, strSQL, fldName

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

conn.Open "你的數(shù)據(jù)庫連接字符串"

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

%>