?? 例10-5.asp
字號:
<% @ LANGUAGE="VBSCRIPT" %>
<%
dim ptr
Response.Write "<HTML><Head><Title>數據庫字段名和字段值范例</Title></Head>"
Response.Write "<body>"
Response.Write "<Table border=0 bgcolor=#AAAAAA align=center width='100%'>"
Response.Write "<TR align=middle><TD>"
Response.Write "<font size=5 color=blue>數據庫的字段名和字段值列表</font>"
Response.Write "</TD></TR></Table><hr/>"
Set m_con = Server.CreateObject("ADODB.Connection")
m_con.ConnectionString = "DSN=mydataname"
m_con.Open
Set m_recordset=Server.CreateObject("ADODB.RecordSet")
Response.Write "<Table border=1 bgcolor=#CCCCCC align=center width='100%'>"
m_recordset.ActiveConnection = m_con
m_recordset.Open "Select * from studentmark"
counter=m_recordset.fields.count
Response.Write "<TR align=middle>"
for ptr = 0 to counter -1
Response.Write "<TD><Font color=RED> "
Response.Write m_recordset.fields(ptr).Name
Response.Write "</font></TD>"
next
Response.Write "</TR>"
While Not m_recordset.eof
Response.Write "<TR align=middle>"
for ptr = 0 to counter -1
Response.Write "<TD><Font color=blue> "
Response.Write m_recordset.fields(ptr).value
Response.Write "</font></TD>"
next
Response.Write "</TR>"
m_recordset.MoveNext
Wend
m_con.Close
set m_recordset=nothing
set m_con= nothing
Response.Write "</Table>"
Response.Write "</body></HTML>"
%> ?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -