<% If Request("GoTopage")="" Then curpage = 1 Else curpage = cint(Request("GoTopage")) End If CurPage2 = CurPage ipp = 50 titles = Trim(request("title")) set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons2.dat") strconnect = f.Readline set Dbcon=Server.CreateObject("ADODB.Connection") Dbcon.Open strconnect sql = "SELECT COUNT(num) AS cnt FROM " & titles set rs=Dbcon.Execute(sql) postcount = rs("cnt") 'ÃÑ ±ÛÀÇ °³¼ö¸¦ ±¸ÇÑ´Ù Set DbRec=Server.CreateObject("ADODB.RecordSet") DbRec.CursorType = 1 DbRec.Open "SELECT num,filename FROM " & titles & " ORDER BY num DESC",DbCon totpage = fix(postcount / ipp) 'Àüü ÆäÀÌÁöÀÇ ¼ö¸¦ ±¸ÇÑ´Ù If (totpage * ipp) <> postcount Then totpage = totpage + 1 End If For a = 1 To (curpage - 1) * ipp DbRec.MoveNext Next If titles = "juyu" Then k = "ñÐÀ¯ÃµÇÏ" ElseIf titles = "zombi" Then k = "Á»ºñÄÞºñ" ElseIf titles = "daigal" Then k = "´ë°¥À屺" ElseIf titles = "ftrader" Then k = "¿­Ç÷Àå»ç²Û" ElseIf titles = "scorpion" Then k = "Àü°¥" ElseIf titles = "killer" Then k = "¿¬¼â»ìÀθ¶" ElseIf titles = "yong" Then k = "´Ï³ªÀßÇØ" ElseIf titles = "boss" Then k = "º¸½ºÀÇ ¼øÁ¤" ElseIf titles = "daemul" Then k = "´ë¹°" Else k = "»ýÈ°¿ë¾î¹é°ú»çÀü" End If %>

    Á»ºñÄÞºñ

  • ÀÛ°¡
  • ±èÇàÀå
  • *º» ÀÛÇ°Àº ¼ö¿äÀÏ~±Ý¿äÀÏ ¿ÀÈÄ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") %>
<% If i = 1 Then %>
[<%=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 %>