午夜视频在线观看区二区-午夜视频在线观看视频-午夜视频在线观看视频在线观看-午夜视频在线观看完整高清在线-午夜视频在线观看网站-午夜视频在线观看亚洲天堂

<%

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

%>