高手帮助，ASP设计出错，急急急，在线等

来源：百度知道编辑：UC知道时间：2024/05/04 04:20:58

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/asp3/include/cod_ado.inc, 第 4 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)

网页：
GET /asp3/problem.asp
高手帮帮我啊
问题补充：这是提示错误的include/cod_ado.inc的代码
<%
sub cod_AdoOpen(objConnection, rsCoursesList,dsn,rss)
Set objConnection = Server.CreateObject("ADODB.Connection")
objConnection.Open dsn
Set rsCoursesList = Server.CreateObject("ADODB.Recordset")
rsCoursesList.ActiveConnection = objConnection
rsCoursesList.CursorLocation = adUseClient
rsCoursesList.CursorType = adOpenForwardOnly
rsCoursesList.LockType = adLockReadOnly
rsCoursesList.Source = rss
rsCoursesList.Open
end sub
sub cod_AdoClose(objConnection, rsCoursesList)
rsCoursesList.close
objConnection.close
set rsCoursesList = nothing <

sub cod_AdoOpen(objConnection, rsCoursesList,dsn,rss)
Set objConnection = Server.CreateObject("ADODB.Connection")
dim sql
sql="provider=microsoft.jet.oledb.4.0;data source="&dsn'dsn为数据库名
objConnection.Open sql
Set rsCoursesList = Server.CreateObject("ADODB.Recordset")
rs.open rss,objConnection,1,3
end sub
sub cod_AdoClose(objConnection, rsCoursesList)
rsCoursesList.close
objConnection.close
set rsCoursesList = nothing
set objConnection = nothing
end sub
试试,不对问我qq:86900867

高手帮助，ASP设计出错，急急急，在线等一段ASp代码出错寻高手帮助！ asp高手帮助高手帮助asp翻译请ASP高手帮助！求教ASP高手。急急。。。 asp语言出错高手帮忙网站设计出错了！急急急！网页出错了，急急呀，asp asp高手请帮助一下！