스포츠조선 만화

좀비콤비

작가
김행장
*본 작품은 수요일~금요일 오후3시에 업데이트 됩니다.

<% i = 1 e = 1 Do until DbRec.EOF Or e>ipp y = Left(Dbrec("filename"), 4) m = Mid(Dbrec("filename"), 5, 2) d = Mid(Dbrec("filename"), 7, 2) Adate = y&"-"&m&"-"&d numszo = Dbrec("num") %>

[<%=k%>] <%=y%>년 <%=m%>월 <%=d%>일자 (1) <% ElseIf i = 2 Then i = 0 %>
[<%=k%>] <%=y%>년 <%=m%>월 <%=d%>일자 (2) <% End If %>: <%=Adate%>

<% DbRec.Movenext i = i + 1 e = e + 1 Loop %>

<% If titles = "now" Then Else MyChoice = 10 Total_Block = int(TotPage / MyChoice) If int(TotPage) Mod MyChoice = 0 Then Total_Block = Total_Block - 1 End If If Request("block") <> "" Then NowBlock = Request("block") Else NowBlock = 0 End If %>
<% If TotPage > 0 Then If Cint(NowBlock) > 0 Then CurPage = (int(NowBlock * MyChoice) - (MyChoice - 1)) %>

이전 <% End If %> <% If Cint(Total_Block) <> Cint(NowBlock) Then For Gopage = 1 To MyChoice If CurPage2 <> (int(NowBlock * MyChoice) + Gopage) Then %> <%=(int(NowBlock * MyChoice) + Gopage)%> <% Else %> <%=(int(NowBlock * MyChoice) + Gopage)%> <% End If Next Else %> <% If (TotPage Mod MyChoice = 0) Then ttt = MyChoice Else ttt = TotPage Mod MyChoice End If For Gopage = 1 To ttt If CurPage2 <> (int(NowBlock * MyChoice) + Gopage) Then %> <%=(int(NowBlock * MyChoice) + Gopage)%> <% Else %> <%=(int(NowBlock * MyChoice) + Gopage)%> <% End If Next End If '다음 블럭의 첫페이지 수를 계산한다. CurPage = (int(NowBlock * MyChoice) + Gopage) %> <% If (Cint(Total_Block) > 0) and (Cint(NowBlock) < Cint(Total_Block)) Then %>

다음 <% End If End If End If %>