dim mDsn,SQL
    Set Conn = Server.CreateObject("ADODB.Connection")
mDsn = "DSN=nap2000_odbc;uid=operator;pwd=iamthedbo"
Conn.Open mDsn

    Set rst = Server.CreateObject("ADODB.Recordset")

SQL="select * from CS_CALLLOG where ACCOUNTID='609096666' and BEGINTIME > '2001-10-1 20:00:00' and ENDTIME < '2002-1-1 20:00:00'"
rst.Open SQL,Conn,1,3
%>

<% 'Response.Write (rst.RecordCount ) for i=1 to rst.RecordCount 'if rst.EOF then 'exit for 'end if %> <% rst.MoveNext next %> 主叫号码 被叫号码 来电者姓名 服务开始时间 服务结束时间 来电类型 <%=rst("CALLER")%> <%=rst("ACCOUNTID")%> <%=rst("NAME")%> <%=mid(rst("BEGINTIME"),3,2)%>/<%=mid(rst("BEGINTIME"),6,2)%>/<%=mid(rst("BEGINTIME"),9,2)%> <%=mid(rst("BEGINTIME"),12,5)%> <%=mid(rst("ENDTIME"),3,2)%>/<%=mid(rst("ENDTIME"),6,2)%>/<%=mid(rst("ENDTIME"),9,2)%> <%=mid(rst("ENDTIME"),12,5)%> <%=rst("MASTERFLAG")%>

<%
rst.Close

set rst = nothing

Conn.Close
set Conn = nothing
%>

如果你只是查询的话，不需要太注意数据库的打开方式！
只要是默认就可以了！