62,243
社区成员
发帖
与我相关
我的任务
分享asp数据源问题?
我的源代码如下：
<% Option Explicit %>
<!--#Include file="function.asp" -->
<HTML>
<HEAD>
<TITLE>ASP讨论天地 </TITLE>
</HEAD>
<BODY>
<H2 align="center">ASP讨论天地</H2>
<CENTER>
<TABLE border="2" bordercolor="#6600CC" width="80%" cellspacing="2">
<TR bgcolor="##99FFFF" align="center">
<TD width="7%">序号</TD>
<TD width="43%">主题</TD>
<TD width="8%">回复</TD>
<TD width="8%">点击</TD>
<TD width="8%">发言人</TD>
<TD width="26%">发言时间</TD>
</TR>
<%
Dim db,connstr
Set db=Server.CreateObject("ADODB.Connection")
db.Open "bb"
Dim sql
Dim rs
sql="select * from bbs where layer=1 Order by resubmit_date desc"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,db,1
If Not rs.eof And Not rs.bof Then
Dim pa_no
Dim page_size
Dim page_total
Page_size=10
If Request("page_no")="" then
pa_no=1
Else
pa_no=CInt(Request("page_no"))
End If
session("page_no")=pa_no
session("username")="oo"
rs.PageSize=Page_size
Page_total=rs.Page_total
rs.AbsolutePage=pa_no
Dim I, J
I=0
J=rs.PageSize
Do While Not rs.eof And J>0
I=I+1
J=J-1
%>
<TR bgcolor="#00FF66" align="center">
<TD><%=(pa_no-1) * page_size+I%></TD>
<TD><a href="par.asp?bbs_id=<%=rs("bbs_id")%>"><%=rs("title")%></a></TD>
<TD><%=rs("child")%></TD>
<TD><%=rs("hits")%></TD>
<TD><%=rs("user_name")%></TD>
<TD><%=rs("resubmit_date")%></TD>
</TR>
<%
rs.MoveNext
Loop
End if
%>
</TABLE>
<a href="ann.asp">发表新文章</a>
<%
Call select_page(pa_no,page_total)
%>
</CENTER>
</BODY>
</HTML>
运行出现如下错误：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/new/index.asp, 第 27 行
27行，即：rs.Open sql,db,1
注：我已经设置好了数据源 bb
<% Option Explicit %>
<!--#Include file="function.asp" -->
<HTML>
<HEAD>
<TITLE>ASP讨论天地 </TITLE>
</HEAD>
<BODY>
<H2 align="center">ASP讨论天地</H2>
<CENTER>
<TABLE border="2" bordercolor="#6600CC" width="80%" cellspacing="2">
<TR bgcolor="##99FFFF" align="center">
<TD width="7%">序号</TD>
<TD width="43%">主题</TD>
<TD width="8%">回复</TD>
<TD width="8%">点击</TD>
<TD width="8%">发言人</TD>
<TD width="26%">发言时间</TD>
</TR>
<%
Dim db,connstr
Set db=Server.CreateObject("ADODB.Connection")
db.Open "bb"
Dim sql
Dim rs
sql="select * from bbs where layer=1 Order by resubmit_date desc"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,db,1
If Not rs.eof And Not rs.bof Then
Dim pa_no
Dim page_size
Dim page_total
Page_size=10
If Request("page_no")="" then
pa_no=1
Else
pa_no=CInt(Request("page_no"))
End If
session("page_no")=pa_no
session("username")="oo"
rs.PageSize=Page_size
Page_total=rs.Page_total
rs.AbsolutePage=pa_no
Dim I, J
I=0
J=rs.PageSize
Do While Not rs.eof And J>0
I=I+1
J=J-1
%>
<TR bgcolor="#00FF66" align="center">
<TD><%=(pa_no-1) * page_size+I%></TD>
<TD><a href="par.asp?bbs_id=<%=rs("bbs_id")%>"><%=rs("title")%></a></TD>
<TD><%=rs("child")%></TD>
<TD><%=rs("hits")%></TD>
<TD><%=rs("user_name")%></TD>
<TD><%=rs("resubmit_date")%></TD>
</TR>
<%
rs.MoveNext
Loop
End if
%>
</TABLE>
<a href="ann.asp">发表新文章</a>
<%
Call select_page(pa_no,page_total)
%>
</CENTER>
</BODY>
</HTML>
运行出现如下错误：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/new/index.asp, 第 27 行
27行，即：rs.Open sql,db,1
注：我已经设置好了数据源 bb
...全文
请发表友善的回复…
发表回复
凋零的老树 2006-10-25
- 打赏
- 举报
db.Open conn,1,1
IAMBOSS 2006-10-25
- 打赏
- 举报
顶
IAMBOSS 2006-10-25
- 打赏
- 举报
顶
IAMBOSS 2006-10-25
- 打赏
- 举报
rs.Open sql,db,1,1
改了之后还是27行：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/new/index.asp, 第 27 行
改了之后还是27行：
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
ODBC 驱动程序不支持所需的属性。
/new/index.asp, 第 27 行
xingyaohua 2006-10-25
- 打赏
- 举报
rs.Open sql,db,1,1
IAMBOSS 2006-10-25
- 打赏
- 举报
不是，我是用access的，是设置数据源的，不是用连接字符串的形式的
gui0605 2006-10-25
- 打赏
- 举报
dim bb="server=(local);uid=sa;pwd=;database=pubs"
Set db=Server.CreateObject("ADODB.Connection")
db.Open "bb"
Set db=Server.CreateObject("ADODB.Connection")
db.Open "bb"
sfar 2006-10-25
- 打赏
- 举报
没有数据库连接字符串
antiking 2006-10-25
- 打赏
- 举报
你数据库连接字符串在什么地方??????
