레코드 세트 페이징이 작동하지 않습니다.

Question

아무도 내 레코드 세트 페이징이 작동하지 않는 이유를 알 수 있습니까? 나는이 물건에 대해 훨씬 몰라, 내가이 Microsoft 웹 사이트 링크에서 가져온 내 코드에있는 그것의 부분 다음에

Dim con, con2, rec, rec2, dsn, dsn2, sql, sql2, rName, sDate, eDate, intPageCount 
rName=Request.Form("rn") 
sDate=FormatDateTime(Request.Form("sD"), 2) 
eDate=FormatDateTime(Request.Form("eD"), 2) 

dsn = "Radio" 
dsn2 = "InfoLib_SQL" 
sql = "SELECT * FROM T_RadioControlLog WHERE RadioName = '"&rName&"' AND CONVERT(date, Date, 101) >= 
     CONVERT(date, '"&sDate&"', 101) AND CONVERT(date, Date, 101) <= CONVERT(date, '"&eDate&"', 101)" 

set con=Server.CreateObject("ADODB.Connection") 
set rec=Server.CreateObject("ADODB.Recordset") 
rec.CursorLocation=3 

con.Open dsn, "pw", "pw" 
rec.Open sql, con 
rec.PageSize=5 
intPageCount=rec.PageCount 

Select Case Request("Action") 
    case "<<" 
     intpage =1 
    case"<" 
     intpage = Request("intpage")-1 
     if intpage < 1 then intpage = 1 
    case ">" 
     intpage = Request("intpage")+1 
     if intpage > intPageCount then intpage = intPageCount 
    case ">>" 
     intpage = intPageCount 
    case else 
     intpage = 1 
end select 

If NOT rec.eof Then 
Response.write("<table>") 
rec.AbsolutePage = intpage 
For intRecord = 1 to rec.PageSize 
    Response.write("<tr><td>Radio Name</td><td>Date</td><td>Employee Name</td><td>ID#</td></tr>") 
    Response.write("<tr><td>" & rec.fields("RadioName") & "</td>") 
    Response.Write("<td>" & rec.fields("Date") & "</td>") 
    set con2=Server.CreateObject("ADODB.Connection") 
    set rec2=Server.CreateObject("ADODB.Recordset") 
    sql2 = "SELECT EMP_NA FROM EMP_TABLE WHERE ID='"&rec.fields("ID#")&"'" 
    con2.Open dsn2, "pw", "pw" 
    rec2.Open sql2, con2 
    Response.Write("<td>" & rec2.fields("EMP") & "</td>") 
    Response.Write("<td>" & rec.fields("ID#")& "</td></tr>") 
    rec.movenext 
    rec2.close 
    con2.close 
    set rec2=nothing 
    set con2=nothing 
If rec.EOF Then Exit For 
Next 
%> 
<tr> 
<form name="pageNav" action="results.asp" method="post"> 
<input type="hidden" name="intpage" value="<%=intpage%>"> 
<input type="submit" name="Action" value="<<"> 
<input type="submit" name="Action" value="<"> 
<input type="submit" name="Action" value=">"> 
<input type="submit" name="Action" value=">>"> 
Page: <%=intpage & " of " & intPageCount%> 
</tr> 
</form> 
</table> 
<% 
Else 
Response.write("Sorry, no entries were found.") 
End If 


rec.close 
set rec=nothing 
con.close 
set con=nothing 

호출 : 여기 http://support.microsoft.com/kb/202125

내 코드입니다 DB 작업 및 항목은 확실히 반환됩니다. 내 레코드 집합이 반환되도록 설정되었으므로 작은 테이블이 5 개 항목으로 표시되지만 >>, <, >, etc.을 클릭하면 아무 것도 표시되지 않고 페이지가 비어있게됩니다. 누군가가 레코드 페이징이 어떻게 작동하는지 설명 할 수 있다면 좋을 것입니다.

Answer 1

몇 가지 의견을 보내주십시오.

당신은 DimintPageCount가 아니라 intPage이 아니라 큰 것이 아니라 여전히 개인적인 취향 인 Dim입니다.

포스트 백 중에 저장하지 않는 이전 페이지의 필드가 있습니다. 구체적으로는 I 게시에 그 값을 사용 콜백이

<form name="pageNav" action="results.asp" method="post"> 
<input type="hidden" name="rn" value="<%=rName%>"> 
<input type="hidden" name="sD" value="<%=sDate%>"> 
<input type="hidden" name="eD" value="<%=eDate%>"> 
<input type="hidden" name="intpage" value="<%=intpage%>"> 

같은 코드

rName=Request.Form("rn") 
sDate=FormatDateTime(Request.Form("sD"), 2) 
eDate=FormatDateTime(Request.Form("eD"), 2) 

이 부분하지만 대응하는 부분을 참조.

Answer 2

Function ShowFolderList(folderspec) 

    Dim fso, f, f1, fc, s 

    Set fso = CreateObject("Scripting.FileSystemObject") 

    Set f = fso.GetFolder(folderspec) 

    Set fc = f.Files 

    For Each f1 in fc 

     s = s & f1.name 

     s = s & "<BR>" 

    Next 

    ShowFolderList = s 

End Function 

이것은 도움말에서 온 것입니다. FSO에는 와일드 카드가 없습니다. 너 혼자해야 해. 따라서 f1.name이 요구 사항을 충족하는지 테스트 한 다음 해당 파일을 복사하십시오.