数据源已建，dba01sj.asp部分代码：
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="cy06dba.asp" -->
<%
Dim dba01__tempsj1
dba01__tempsj1 = "2001-06-01"
if (Request.Form("sj1")  <> "") then dba01__tempsj1 = Request.Form("sj1")
%>
<%
Dim dba01__tempsj2   
dba01__tempsj2 = "2001-06-02"
if (Request.Form("sj2")  <> "") then dba01__tempsj2 = Request.Form("sj2")
%>
<%
set dba01 = Server.CreateObject("ADODB.Recordset")
dba01.ActiveConnection = MM_cy06dba_STRING
dba01.Source = "SELECT JH, RQ, SCSJ, RCYL1, RCYL, HS, DYMTY, DYM, BZ, bj,cc,cc1,YY, TY, HY, JKWD  FROM CY06dba.DBA01  WHERE rq >= to_date('" + Replace(dba01__tempsj1, "'", "''") + "','YYYY-MM-DD')  AND   rq <= to_date('" + Replace(dba01__tempsj2, "'", "''") + "','YYYY-MM-DD')  ORDER BY JH,RQ"


cy06dba.asp如下：
<%
MM_cy06dba_STRING = "dsn=cy06db;uid=cy06dba;pwd=zyytcy06;"
%>
查询数据：出现：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'

[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

/sjcx/dba01sj.asp，行 15
请高手解决。

请问怎么换连接字符串，在winxp里程序运行正常

好了，问题解决，十分感谢。