asp数据源问题?

2006-10-25 09:51:39 170 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Security Fabric 安全架构 FortiOS 为架构所需的所有安全特性提供了原生的集成能力，所有边缘的安全一致性得到保证，能够适应多云平台的场景。从网络、平台、到应用，FortiOS 7.0 实现了自下而上混合云、多云多应用的全覆盖，对云上的原生应用，包括国内阿里云等云厂商在内，做到了无缝集成，且所有的云上用统一的安全策略提供自适应的安全保护，具备深度可见性。在云交付接入边缘保持统一的防火墙、安全和网络策略，为分支机构远端用户提供可扩展、高性能的安全接入，同时，SaaS交付模式也保持了网络和运营的灵活性，改善用户体验，降低支出成本。阅读详情

我的源代码如下：
<% Option Explicit %>

<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

...全文