½ºÆ÷Ã÷Á¶¼± > Àüü±â»ç
<% If Request("GoTopage")="" Then curpage = 1 Else curpage = cint(Request("GoTopage")) End If CurPage2 = CurPage ipp = 12 set fso = Server.CreateObject("Scripting.FileSystemObject") set f = fso.OpenTextFile("C:\cons5.dat") strconnect = f.Readline set Dbcon=Server.CreateObject("ADODB.Connection") Dbcon.Open strconnect sql = "SELECT COUNT(num) AS cnt FROM gisa_reply WHERE filename='" & session("szo_filename") & "'" set rs=Dbcon.Execute(sql) postcount = rs("cnt") Set Grs = Server.CreateObject("ADODB.Recordset") Grs.Open "SELECT num, wdate, name, id, content, icon FROM gisa_reply WHERE filename='" & session("szo_filename") & "' ORDER BY wdate DESC",DbCon totpage = fix(postcount / ipp) 'Àüü ÆäÀÌÁöÀÇ ¼ö¸¦ ±¸ÇÑ´Ù If (totpage * ipp) <> postcount Then totpage = totpage + 1 End If For a = 1 To (curpage - 1) * ipp Grs.MoveNext Next %>
 
<% If Right(session("szo_title"),2) = "Æò°¡" Then %> <% Else %> <% End If %>
  <%=session("szo_title")%>" target="_top">" target="_top"> 
<% i = 1 Do until Grs.EOF Or i>ipp %> <% Grs.Movenext i = i + 1 Loop Dbcon.Close Set Grs = Nothing Set rs = Nothing Set Dbcon = Nothing %>
.gif" width="18" height="18">
<%=Grs("id")%> <%=Grs("wdate")%> &ktf=<%=Grs("id")%>">  

<%=Grs("content")%>

<% 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 %>