好奇怪，asp分页下一页内容丢失，在线等，急！！！！！！欢迎大家来点意见。

Jane0621 2005-10-05 02:06:40

我的记录集使用存储过程取得的。帮忙看看。老板急要。不然我要下课了。



<%
On Error resume next
Dim oAutoRs,aParam,vDbusKey,currentpage,rowcount,i,b,sStyle
currentpage = Trim(Request.QueryString("currentpage"))
if currentpage = "" then
currentpage = 1
end if

vDbusKey = Cint(Request.QueryString("dbus_key"))

aParam = Array(MakeArray("@dbus_key",adInteger, adParamInput, 4, vDbusKey,null, null))
SET oAutoRs = oDB.ExecSPReturnRS("sp_DealerBusDet_get", aParam)
%>

<%
P_Index = 2
sPageTitle = "<A HREF='../Default.asp'>首页</A> >> <A HREF='Default.asp'>搜索经销商</A> >> 搜索结果"
%>

<%= GetWinTitle("搜索经销商")%>
<H1>经销商项目详细资料</H1>
<hr>
<FORM NAME="DealDesFORM" action="" METHOD="POST">
<TABLE WIDTH="510" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR HEIGHT="25">
<TD width="130"><DIV CLASS="title" STYLE="background-color:#FEFEBE;">经营项目名称</DIV></TD>
<TD width="1"><IMG border="0" SRC="/_Images/shim.gif"></TD>
<TD ALIGN="MIDDLE" width="270"><DIV CLASS="title" STYLE="background-color:#FEFEBE;">项目详细资料</DIV></TD>
<TD width="1" ><IMG border="0" SRC="/_Images/shim.gif"></TD>
<TD ALIGN="MIDDLE" width="110"><DIV CLASS="title" STYLE="background-color:#FEFEBE;">价格</DIV></TD>
<TD width="1" ><IMG border="0" SRC="/_Images/shim.gif"></TD>
</TR>
<TR style="background-color:#DDDDDD;">
<td COLSPAN="6"><img src="/_Images/spacer.gif" height="1" border="0"></td>
</TR>
<%
oAutoRs.pagesize=3
b=false
oAutoRs.Absolutepage = CINT(currentpage)
' response.Write(currentpage)
' response.End()
rowcount =0

while not oAutoRs.EOF and rowcount < oAutoRs.PageSize
If b Then
sStyle = "style='background-color:#eeeeee;'"
Else
sStyle = "style='background-color:#ffffff;'"
End if

%>
<TR HEIGHT="25" <%=sStyle %>>
<TD VALIGN="bottom"><%=oAutoRs("Dbusdet_name")%></TD>
<TD/>
<TD VALIGN="bottom"><%=oAutoRs("Dbusdet_desc")%></TD>
<TD/>
<TD VALIGN="bottom"><%=FormatCurrency(oAutoRs("item_price"))%>元</TD>
<TD/>
</TR>
<TR>
<TD style="background-color:#BBBBBB;" COLSPAN="6"><img src="/_Images/spacer.gif" height="1" border="0"></TD>
</TR>
<%
b = not b
rowcount=rowcount+1
oAutoRs.MoveNext
Wend
%>
<TR style="background-color:#AAAAAA;">
<td colspan="6"><img src="/_Images/spacer.gif" height="1" border="0" ></td>
</TR>
<TR style="background-color:#DDDDDD;">
<TD VALIGN="BOTTOM" colspan="6">
<TABLE width="510" cellpadding="0" cellspacing="0" border="0">
<TR HEIGHT="20">
<TD ALIGN="MIDDLE" WIDTH="114"><B>共 <% = oAutoRs.pagecount%>页</B></TD>
<TD ALIGN="MIDDLE" WIDTH="238"><B>当前页次:<%=currentpage%>/<% = oAutoRs.pagecount%>页</B></TD>

<%
for i=1 to oAutoRs.PageCount
if i=CINT(currentpage) then
%>
<TD WIDTH="158">[<% = i %>]
<%else%>
[<a href="SearchResultDetaiDbusCats.asp?currentpage=<% = i %>&vDbusKey=<%=Cint(Request.QueryString("dbus_key"))%>"><% = i %></a>]
<%
end if
next
%>
</TD>
</TABLE>
</TD>
</TR>
<TR style="background-color:#AAAAAA;">
<td colspan="6"><img src="/_Images/spacer.gif" height="1" border="0"></td>
</TR>
</TABLE>
</FORM>

...全文