<%
Dim PageNo , PageCount, enditem, i, j, p, catalog, bgcolor, objRs
PageNo = Request.QueryString("PageNo")
If PageNo < 1 or PageNo = empty Then PageNo = 1 ' 當Page小於1或是沒有值的時候，就將其Page設為1
catalog = Request.QueryString("catalog")
Select Case catalog
case "n"
strSQL = "Select * From Image where picno like '" & "n%'"
case "l"
strSQL = "Select * From Image where picno like '" & "l%'"
case "x"
strSQL = "Select * From Image where picno like '" & "x%'"
case "i"
strSQL = "Select * From Image where picno like '" & "i%'"
case else
strSQL = "Select * From Image where picno like '" & "x%'"
End Select
'strSQL = "Select * From Image"
Set objRs = Server.CreateObject("ADODB.Recordset")
objRs.Open strSQL,objConn,1,3
if objRs.RecordCount = 0 then
response.redirect "default.asp"
end if
objRs.PageSize = 15
PageCount = objRs.PageCount
' objRs.CursorLocation = adUseClient
PageCount = objRs.PageCount
' response.write objRs.AbsolutePage
' if PageNo > 1 then
' objRs.AbsolutePage = PageNo
' end if
' response.write objRs.AbsolutePage
' If PageNo > PageCount Then
' PageNo = PageCount ' 當Page大於頁數的時候就將其設為最大頁數
' end if
%>
IRIS e卡中心 ─ 新卡區
<%
Select Case catalog
case "n"
bgcolor = "#E0FCF3"
case "l"
bgcolor = "#ECECFF"
case "x"
bgcolor = "#FFEEF9"
case "i"
bgcolor = "#FFECDF"
case else
bgcolor = "#FFEEF9"
End Select
%>
<%
if objRs.PageSize * PageNo > objRs.RecordCount then
enditem = objRs.RecordCount
else
enditem = objRs.PageSize * PageNo
end if
Do While Not objRs.EOF and i <= enditem
' if PageNo = 1 then
' objRs.MoveFirst
' else
' objRs.Move (PageNo -1)*15
' end if
for i = objRs.PageSize * (PageNo - 1) + 1 to enditem
j = i mod 5
%>
<% if j = 1 then
response.write "
"
end if
%>
<% if instr(Right(objRs("picpath"),3),"gif") then %>
<%
response.write "|"
if PageCount > 1 then
for p = 1 to PageCount
if p = PageNo then
response.write " " & p & " |"
else
response.write " " & p & " |"
end if
next
else
response.write " 1 |"
end if
%>
<%
objRs.Close
Set objRs = nothing
objConn.Close
Set objConn = nothing
%>
