📄 例10-5.asp

📁 深入浅出XML示例下载

💻 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 + -