一、创建数据库连接文件：
    <%
      Dim conn
      set conn = Server.CreateObject("ADODB.Connection")
      conn.Open "Driver={Sql Server};Server=(local);UID=sa;PWD=;DataBase=数据库名"
     %>
二、检索数据库中的数据：
    <%
       set rs=Server.CreateObject("ADODB.recordset")
       sql="select 关键字 from 表名"
       rs.open sql,conn,1,3
   %>
三、在您想显示数据的地方<% =rs("关健字") %>当然还要根据您的实际需要做相应的调整。^_^