'*******************************************************'함수 명:ShowPage'작 사용:이전 페이지 표시 다음 페이지 수:sFileName ----링크 주소 TotalNumber ----총 수량 MaxPerPage ----페이지 당 수량' ShowTotal ----총 수량 표시 할 지 여부' ShowAllPages ---점프 할 수 있 도록 모든 페이지 를 드 롭 다운 목록 으로 표시 할 지 여부 입 니 다."일부 페이지 는 사용 할 수 없습니다.그렇지 않 으 면 JS 오류 가 발생 할 수 있 습 니 다." strUnit ----계수 단위'반환 값:'이전 페이지 다음 페이지 등의 정보 HTML 코드'********************************function ShowPage(sFileName,TotalNumber,MaxPerPage,ShowTotal,ShowAllPages,strUnit) dim TotalPage,strTemp,strUrl,i if TotalNumber=0 or MaxPerPage=0 or isNull(MaxPerPage) then ShowPage="" exit function end if if totalnumber mod maxperpage=0 then TotalPage= totalnumber \ maxperpage Else TotalPage= totalnumber \ maxperpage+1 end if if CurrentPage>TotalPage then CurrentPage=TotalPage strTemp= "" if ShowTotal=true then strTemp=strTemp & "모두 " & totalnumber & " " & strUnit & " " end if strUrl=JoinChar(sfilename) if CurrentPage<2 then strTemp=strTemp & "첫 페이지 이전 페이지 " Else strTemp=strTemp & "첫 페이지 " strTemp=strTemp & "이전 페이지 " end if if CurrentPage>=TotalPage then strTemp=strTemp & "다음 페이지 끝 페이지" Else strTemp=strTemp & "다음 페이지 " strTemp=strTemp & "끝 페이지" end if strTemp=strTemp & " 페이지:" & CurrentPage & "/" & TotalPage & "" & maxperpage & "" & strUnit & "/페이지 if ShowAllPages=True then strTemp=strTemp & " 제페이지 'strTemp = strTemp &" " end if strTemp=strTemp & "" ShowPage=strTemp end function
