例10-4.asp

来自「深入浅出XML示例下载」· ASP 代码 · 共 42 行

ASP
42 行
字号 
<% @ 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>"  
%>

例10-4.asp - 源码说明

本页面展示了「深入浅出XML示例下载」中的 例10-4.asp 源码文件，采用 ASP 编程语言编写，共 42 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与XML相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?