还是关于分页的问题
各位帮帮忙
有两个网页1和2，网页2显示满足1中打开数据库的条件（有：起始时间、终止时间等）的数据，想让网页2实现分页。网页1的条件是Post到2的，当我点击“下一页”时（还是在2中显示
），提示“未发现数据源名称并且未指定默认驱动程序”，就是说网页1给网页2 的条件没有了是不是？我应该怎么解决更好一点呢？
先谢过各位的指点了，焦急的等待ing
2007-02-08 21:56
2007-02-09 00:15
2007-02-09 09:30
2007-02-09 10:43
2007-02-09 10:46
<%@ LANGUAGE = VBScript %>
Dim start_date_time
Dim end_date_time
Dim start_time
Dim end_time
Dim start_year
Dim end_year
Dim start_month
Dim end_month
Dim start_day
Dim type
Dim SqlQuery,strDatabase
Dim conn,RS,i,j
Dim PgSz,PageNo,Total,n,m,RowCount
Dim FirstRSno,LastRSno
start_year=Request.form("start_year")
start_month=Request.form("start_month")
start_day=Request.form("start_day")
end_year=Request.form("start_year")
end_month=Request.form("start_month")
type=Request.form("type")
start_date_time=Request.form("start_hour")&Request.form("start_minute")&Request.form("start_second")&"000"
end_date_time=Request.form("end_hour")&Request.form("end_minute")&Request.form("end_second")&"000"
Dim select_condition
Select Case type
case "1"
select_condition=" where (时间>="+start_time+" and 时间<="+end_time+") order by 编号"
Case "2"
select_condition=" where (时间>="+start_time+" and 时间<="+end_time+" and 类型=1) order by 编号"
End Select
SqlQuery = "select * from s"+start_year+start_month+start_day+select_condition
strDatabase = "use_" + start_year
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open StrDatabase
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.cursorlocation=3
RS.open SqlQuery,Conn,3,1
<html>
<head>
<title>数据</title>
</head>
<body bgcolor="#f6f6ff">
<center>
<font color=green size=3 face="楷体_GB2312"><strong>数据</strong></font>
<!----font color=red size=2> 日期:<%=year(date)%>年<%=month(date)%>月<%=day(date)%>日</font----->
<font color=red size=2> 日期:<%=start_year%>年<%=start_month%>月<%=start_day%>日</font>
<font color=red size=2> 时间:<%=start_date_time%>--<%=end_date_time%></font>
<font size=1><br><br></font>
<%if RS.EOF then
j=0
%>
<br><br>
<Table border=1 width=66%>
<tr><TD>
<br><br><br><br>
<font size=3 color=green><b>所查时间范围内无数据 !!!</b></font>
<br><br><br><br><br>
</TD></tr></table><br><br>
<%else 'if Not RS.EOF then%>
<%
j = RS.recordcount
RS.MoveFirst
PgSz = 2000
RS.PageSize = Cint(PgSz)
total=RS.PageCount
pageno=Request.QueryString("pageno")
If pageno="" Then pageno="1"
pageno=Cint(pageno)
' 上下页面设置
If pageno>1 Then %>
<td>
<a href="m_data_sql_act.asp?pageno=<%=pageno-1%>">上一页</a>
<% Else %>
上一页
<% End If %>
</td>
<td>
<% If pageno<total Then %>
<a href="m_data_sql_act.asp?pageno=<%=pageno+1%>">下一页</a>
<% Else %>
下一页
<% End If %>
</td>
<%
rs.Move (pageno-1)*rs.pagesize ' 将记录定位在所翻到的页面的首个记录上
FirstRSno = RS.Fields(0).Value
%>
<CENTER>
<Table border=1 cellpadding=0 cellspacing=0 width=139%>
<tr>
<%For i = 0 to RS.Fields.Count -1 %>
<%if i<>1 then%>
<td align=center valign=top><font size=2 color=green><b>
<% = RS(i).Name %>
</b></font></TD>
<%end if
Next%>
</tr>
<%
RowCount = PgSz
Do While Not RS.EOF and rowcount > 0
%>
<tr>
<%For i = 0 to RS.Fields.Count - 1%>
<td align=right><font size=2 color=green><%=tmpstr%></font></td>
<%next%>
</tr>
<%
RowCount = RowCount - 1
RS.MoveNext
Loop
rs.moveprevious
lastrsno=rs.fields(0).value
%>
</table>
<%
end if 'RS.EOF
%>
<%
Conn.Close
set rs = nothing
set Conn = nothing
%>
<%
if j<>0 then
RecordCount=j
%>
<font color=red size=2><br>
符合条件的数据个数为:<%=recordcount%>个,一共分为：<%=Total%>第一条记录编号是是<%=FirstRSno%>最后一条记录是<%=lastrsno%>
</font>
<%
else
%>
<font color=red size=2><br>
*** 符合条件的数据个数为: <%=j%>个。
</font>
<%
end if 'j<>0
%>
</center>
</html>
数据库是按年分的每年一个库如：use_2007,里面的表是按日期分的每天一个表如：s20070208。
上面dim的变量都是从上一页:m_data_sql.asp中读过来的<form method="POST" action="m_data_sql_act.asp">本页的名称为m_data_sql_act.asp
现在只是查询一天的数据，还想做成跨日的
上面分页的程序就是参考论坛中的呢，可那些代码都是指定数据库和表
第一次查询可以，可点击下一页，就会打不开数据库，也就是打开数据库的条件为空了，怎么办呀,多谢各位高人了，急着用
[此贴子已经被作者于2007-2-9 18:05:41编辑过]
2007-02-09 18:03
2007-02-10 10:27
2007-02-12 21:48
2007-02-13 08:58
2007-02-13 10:04
，我去改了