📄 例10-4.asp

📁 深入浅出XML示例下载

💻 ASP

字号:

<% @ LANGUAGE="VBSCRIPT" %>
<% 
  Response.Write "<HTML><Head><Title>显示ODBC数据源范例</Title></Head>"
  Response.Write "<body>"
  Response.Write "<font size=5 color=blue>数据库内容列表：</font><hr/>"
  Set m_con = Server.CreateObject("ADODB.Connection")
  m_con.ConnectionString = "DSN=mydataname"
  m_con.Open
  Set m_recordset=Server.CreateObject("ADODB.RecordSet")
  m_recordset.ActiveConnection = m_con
  m_recordset.Open "Select * from studentmark"

  Response.Write "<Table border=2><TR>"
  Response.Write "<TD>姓名</TD><TD>年龄</TD><TD>数学成绩</TD>"
  Response.Write "<TD>计算机成绩</TD><TD>英语成绩</TD></TR>"
  While Not m_recordset.eof
   Response.Write "<TR>"
   Response.Write "<TD>"
   Response.Write  m_recordset("Name") 
   Response.Write "</TD>"
   Response.Write "<TD>"
   Response.Write  m_recordset("Age") 
   Response.Write "</TD>"
   Response.Write "<TD>"
   Response.Write  m_recordset("MathMark") 
   Response.Write "</TD>"
   Response.Write "<TD>"
   Response.Write  m_recordset("ComputerMark") 
   Response.Write "</TD>"
   Response.Write "<TD>"
   Response.Write  m_recordset("EnglishMark") 
   Response.Write "</TD>"
   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 + -