欧美成人精品手机在线观看_69视频国产_动漫精品第一页_日韩中文字幕网 - 日本欧美一区二区

<%

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

%>