例10-3.asp

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

<% @ LANGUAGE="VBSCRIPT" %>
<% 
  Response.Write "<HTML><Head><Title>连接ODBC数据源范例</Title></Head>"
  Response.Write "<body>"
  Response.Write "建立Connection对象....<BR>"
  Set m_con = Server.CreateObject("ADODB.Connection")
  Response.Write "建立Connection对象成功。<HR>"
  Response.Write "打开数据库....<BR>"
  m_con.ConnectionString = "DSN=mydataname"
  m_con.Open
  Response.Write "打开数据库成功。<HR>"
  m_con.Close
  Response.Write "关闭数据库成功。<HR>"
  set m_con= nothing
  Response.Write "<Pre>   测试成功      </Pre> <HR><HR>"
 Response.Write "</body></HTML>"  
%>