关于复合查询分页问题

zwpsky 2006-06-15 12:46:58

<%Response.Expires=-1%>
<%
Dim strFrom, strTo, strfmm, strfdd, strfyy, strtmm, strtdd, strtyy
Dim strcproject, strcr, stragent
Dim objDBConn, strSQL, strSQL2, strSQL3, strCadonn, objRS, objRS2, objRS3
Dim infFcount, intl

strFrom=replace(request("Begin_Date"),"/","-")
strTo=replace(request("End_Date"),"/","-")

set strcproject = request.form("cproject")
set strcr = request.form("callresult")
set stragent = request.form("agentid")

......

Const MaxPerPage=10
dim totalPut
dim CurrentPage
dim TotalPages
dim j
dim sql
if Not isempty(request("page")) then
currentPage=Cint(request("page"))
else
currentPage=1
end if

if not objRS.bof then
response.Write"数据库中没有数据"
totalPut=objRS2("TotalR")
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"report10.asp"
else
if (currentPage-1)*MaxPerPage<totalPut then
objRS.move(currentPage-1)*MaxPerPage
dim bookmark
bookmark=objRS.bookmark
showContent
showpage totalput,MaxPerPage,"report10.asp"
else
currentPage=1
showContent
showpage totalput,MaxPerPage,"report10.asp"
end if
end if
end if

sub showContent
dim i
i=0
intFCount = objRS.Fields.Count-1

Response.Write "<table border=0 cellpadding=3 cellspacing=1 align=center width=50% class=tableBorder><tr bgcolor=#E8F1FF>"

For intl = 0 to intFCount

Response.Write "<td><b>" & objRS(intl).Name & "</b></td>"

Next

Response.Write "</tr>"
Do While Not objRS.Eof
Response.Write "<tr bgcolor=#E8F1FF>"
For intI = 0 to intFCount
If objRS.Fields(intI).Value <> "" Then
Response.Write "<td valign=""top"">" & objRS.Fields(intI).Value & "</td>"
Else
Response.Write "<td valign=""top"">---</td>"
End If
Next
Response.Write "</tr>"
i=i+1
if i>=MaxPerPage then Exit Do
objRS.movenext
loop
objRS.close
set objRS=nothing

Response.Write "</table>"
End Sub

Function showpage(totalnumber,maxperpage,filename)
Dim n
If totalnumber Mod maxperpage=0 Then
n= totalnumber \ maxperpage
Else
n= totalnumber \ maxperpage+1
End If

Response.Write "<form method=Post action="&filename&">"
Response.Write "<p align='center'> "

Response.Write "<img src='../image/cha.gif' border='0'> 共有 <b>"&totalnumber&"</b> 条记录  "

If CurrentPage<2 Then

Response.Write "<img src='../image/lt.gif' border='0'> 首页上一页  "

Else

Response.Write "<img src='../image/lt.gif' border='0'> <a href="&filename&"?page=1&Begin_Date="&strFrom&"&End_Date="&strTo&"&cproject="&strcproject&" class='contents'>首页</a> "

Response.Write "<a href="&filename&"?page="¤tPage-1&"&Begin_Date="&strFrom&"&End_Date="&strTo&"&cproject="&strcproject&" class='contents'>上一页</a>  "

End If

If n-currentpage<1 Then

Response.Write "下一页末页 <img src='../image/gt.gif' border='0'>  "

Else

Response.Write "<a href="&filename&"?page="&(CurrentPage+1)&"&Begin_Date="&strFrom&"&End_Date="&strTo&"&cproject="&strcproject&" class='contents'>"

Response.Write "下一页</a> <a href="&filename&"?page="&n&"&Begin_Date="&strFrom&"&End_Date="&strTo&"&cproject="&strcproject&" class='contents'>末页</a> <img src='../image/gt.gif' border='0'>  "

End If

Response.Write "页次：<strong><font color=red>"¤tPage&"</font>/"&n&"</strong>页"
Response.write " <b>"&maxperpage&"</b> 条记录/页  "

Response.Write "转到：</font><input type='text' name='page' size=2 maxlength=10 value="¤tpage&">"

Response.Write " <input type='submit' value='跳转' name='cndok' style='cursor:hand'></form>"

End Function

为什么我在点下一页的时候,页面是空白的,不会显示数据? 我已经在翻页的时候带入了查询条件呀

...全文