<%Option Explicit%> <% Dim isLogOn, isAdmin const MNT_SIZE= 14 Const CHAR_ADMIN= "P" if Len(Session("nId") & "") > 0 Then isLogOn= True isAdmin= isAdminByCode((Session("nId")& ""), CHAR_ADMIN) End if Dim seq, pageNo, part part= "G" seq= Request.QueryString("seq") & "" pageNo= Request.QueryString("pageNo") & "" if Len (seq)= 0 then seq= 0 else seq= CInt(seq) End if if Len(pageNo)= 0 then pageNo= 1 Dim rs, oCon, oCmd, oParam Dim totalRecs, totalPages Call ConnectionDb(oCon) '***** ' ÀÓ½ÃÅ×ÀÌºí¿¡¼­ µ¥ÀÌŸ¸¦ ¹ÝȯÇÒ¶§ ¹Ýµå½Ã ÀúÀåÇÁ·Î½ÃÀú¿¡¼­ SET NOCOUNT ON Call CmdConnection("sp_tPhoto_listPaging", oCmd, oCon) set oParam= oCmd.CreateParameter("@nPart", adVarChar, adParamInput, 1, part) oCmd.Parameters.Append oParam set oParam= oCmd.CreateParameter("@currentPage", adInteger, adParamInput, 4, CInt(pageNo) ) oCmd.Parameters.Append oParam set oParam= oCmd.CreateParameter("@pageSize", adInteger, adParamInput, 4, MNT_SIZE) oCmd.Parameters.Append oParam set oParam= oCmd.CreateParameter("@totalRecs", adInteger, adParamOutput) oCmd.Parameters.Append oParam set rs= oCmd.Execute totalRecs= oCmd.Parameters("@totalRecs").Value totalPages= getPageCounts(totalRecs, MNT_SIZE) set oCmd.ActiveConnection= nothing %>

	<% If isAdmin Then Response.Write " " & vbCrLf End If %>   »çÁø¿Ã¸®±â <% Dim idx, photo_path, thumb_path, photo_count Dim current_column, empty_column current_column= 1 empty_column= 0 photo_count= rs.recordCount if photo_count > 0 then Response.Write "" & vbCrLf Dim selected_seq Dim mnt_top, mnt_left, mnt_right, mnt_bottom For idx= 1 to MNT_SIZE Dim current_seq mnt_top= "mnt_top.png" mnt_left= "mnt_left.png" mnt_right= "mnt_right.png" mnt_bottom= "mnt_bottom.png" current_seq= CInt(Rs("seq")) selected_seq= current_seq if (seq= 0 AND idx=1) Or (current_seq= seq) then mnt_top= "s_" & mnt_top mnt_left= "s_" & mnt_left mnt_right= "s_" & mnt_right mnt_bottom= "s_" & mnt_bottom End if thumb_path= "../upload/thumb/" & rs("nThumb") Response.Write " " & vbCrLf Response.Write " " & vbCrLf Rs.MoveNext if (Rs.EOF Or Rs.BOF) then if (current_column <= 7) then empty_column= 7- current_column else empty_column= 14- current_column End if Call make_emptyColumn(empty_column) 'make empty Column Response.Write "" & vbCrLf Exit For Else if (idx= 7) then Response.Write "" & vbCrLf Response.Write "" & vbCrLf elseif(idx= 14) then Response.Write "" & vbCrLf End if current_column= current_column + 1 End If Next else Response.Write "" & vbCrLf end if rs.close oCon.close set rs= nothing set oCon= nothing Dim photoView_url photoView_url= "photoView.asp?seq=" & selected_seq %> " & vbCrLf Response.Write " " & vbCrlf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLF Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " ÇöÀç »çÁøÀÚ·á°¡ Á¸ÀçÇÏÁö ¾Ê½À´Ï´Ù. <% dim pageGroupSize pageGroupSize= CInt(Application("pageGroupSize")) if (CInt(toTalRecs) > 0) then Call PageList(MNT_SIZE, pageGroupSize, totalPages, pageNo) %>

<% Sub Make_emptyColumn(cnt) dim idx For idx= 1 to cnt Response.Write " " & vbCrLf Response.Write " " & vbCrlf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLF Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Response.Write " " & vbCrLf Next End Sub %>