您所在位置：主题：求解:[Microsoft][ODBC 驱动程序管理器] 数据源名称过长
雪夜读书
[专家分：0] 发布于 2007-05-11 19:06:00
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC 驱动程序管理器] 数据源名称过长
/sheji/list.asp，行 28
原代码:
<% Option Explicit %>
<!--#Include file="../conn.asp"-->
<html>
<head>
<title>LIST</title>
</head>
<body>
<h2 align="center">产品价格</h2>
<center>
<table border="1" width="100%">
<tr>
<td>ID</td>
<td>产品名称</td>
<td>类型</td>
<td>库存量</td>
<td>市场价</td>
<td>商城价</td>
<td>会员价</td>
</tr>
<%
//建立Recordset对象
Dim rs,strSql
set rs=Server.CreateObject("ADODB.Connection")
strSql="select ProductID,ProductName,ProductType,Stocks,Price_Market,Price_Original,Price_Member From Pe_product order By ProductID DESC"
rs.Open strSql,1,3
If rs.Bof Or rs.Eof Then
Response.Write"现在还没有数据"
Else
dim page_size
dim page_no
dim page_total
page_size=10
If Response.QueryString("page_no")="" then
page_no=1
else
page_no=Cint(Request.QueryString("page_no"))
End if
rs.pagesize=page_size
page_total=rs.PageCount
rs.AbsolutePage=page_no
dim I
I=page_size
Do while Not rs.EOF And I>0
I=I-1
Response.Write"<tr align='cnter'>"
Response.Write"<td>" & rs("productID") & "</td>"
Response.Write "<td>" & rs("productname") & "</td>"
Response.Write "<td>" & rs("producttype") & "</td>"
Response.Write "<td>" & rs("stocks") & "</td>"
Response.Write"<td>" & rs("price_market") & "</td>"
Response.Write"<td>" & rs("price_orginal") & "</td>"
Response.Write "<td>" & rs("price_member") & "</td>"
Response.Write"</tr>"
rs.MoveNext
Loop
%>
</table>
<%
Response.Write"<p>请选择数据页："
For I=1 To page_total
if I=page_no then
Response.Write I &" "
else
Response.Write"<a href='list.asp?page_no="& I &"'>"& I &"</A> "
end if
next
end if
rs.Close
Set rs=nothing
db.Close
Set db=nothing
%>
</center>
</body>
</html>
数据源设计为
<%
dim db,strCon
strCon="Dbq="&Server.Mappath("yskj#guweiwei123456.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
set db=Server.CreateObject("ADODB.Connection")
db.Open strCon
%>
[Microsoft][ODBC 驱动程序管理器] 数据源名称过长
/sheji/list.asp，行 28
原代码:
<% Option Explicit %>
<!--#Include file="../conn.asp"-->
<html>
<head>
<title>LIST</title>
</head>
<body>
<h2 align="center">产品价格</h2>
<center>
<table border="1" width="100%">
<tr>
<td>ID</td>
<td>产品名称</td>
<td>类型</td>
<td>库存量</td>
<td>市场价</td>
<td>商城价</td>
<td>会员价</td>
</tr>
<%
//建立Recordset对象
Dim rs,strSql
set rs=Server.CreateObject("ADODB.Connection")
strSql="select ProductID,ProductName,ProductType,Stocks,Price_Market,Price_Original,Price_Member From Pe_product order By ProductID DESC"
rs.Open strSql,1,3
If rs.Bof Or rs.Eof Then
Response.Write"现在还没有数据"
Else
dim page_size
dim page_no
dim page_total
page_size=10
If Response.QueryString("page_no")="" then
page_no=1
else
page_no=Cint(Request.QueryString("page_no"))
End if
rs.pagesize=page_size
page_total=rs.PageCount
rs.AbsolutePage=page_no
dim I
I=page_size
Do while Not rs.EOF And I>0
I=I-1
Response.Write"<tr align='cnter'>"
Response.Write"<td>" & rs("productID") & "</td>"
Response.Write "<td>" & rs("productname") & "</td>"
Response.Write "<td>" & rs("producttype") & "</td>"
Response.Write "<td>" & rs("stocks") & "</td>"
Response.Write"<td>" & rs("price_market") & "</td>"
Response.Write"<td>" & rs("price_orginal") & "</td>"
Response.Write "<td>" & rs("price_member") & "</td>"
Response.Write"</tr>"
rs.MoveNext
Loop
%>
</table>
<%
Response.Write"<p>请选择数据页："
For I=1 To page_total
if I=page_no then
Response.Write I &" "
else
Response.Write"<a href='list.asp?page_no="& I &"'>"& I &"</A> "
end if
next
end if
rs.Close
Set rs=nothing
db.Close
Set db=nothing
%>
</center>
</body>
</html>
数据源设计为
<%
dim db,strCon
strCon="Dbq="&Server.Mappath("yskj#guweiwei123456.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
set db=Server.CreateObject("ADODB.Connection")
db.Open strCon
%>
