<% 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 = "killer" Then k = "연쇄살인마" ElseIf titles = "killer" Then k = "연쇄살인마" ElseIf titles = "difference" Then k = "도시정벌" ElseIf titles = "boss" Then k = "보스의 순정" ElseIf titles = "daemul" Then k = "대물" Else k = "생활용어백과사전" End If %>
스포츠조선 > 만화/연재물
 
현재페이지 : <%=curpage%>/<%=totpage%>
<% 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 %> <% ElseIf i = 2 Then i = 0 %> <% End If %> <% DbRec.Movenext i = i + 1 e = e + 1 Loop %>
<%=Adate%>