% pagecode = "0403" dim plistn, plinkn, where, rscount, epage, orderby, no, listcount, linkurl, pagelink Dim pYear, page, wzIdx, title, wzType, url, openUrl, wym page = trim(request("page")) pYear = trim(request("pYear")) openUrl = trim(request("openUrl")) Call opendb(conn, "default") plistn = 5 plinkn = 10 if page = "" then page = "1" if isnumeric(page) = false then page = "1" page = CLng(page) if page < 1 then page = 1 pagelink = "pYear=" & pYear linkurl = "page=" & page & "&" & pagelink where = " viewOn = 1 " If pYear <> "" Then where = where & " and wYear = '" & replace(pYear,"'","''") & "' " orderby = "wYear desc, wMonth desc" sql = "select count(*) from tb_webzine where " & where set rs = conn.execute(sql) rscount = rs(0) rs.close epage = int((rscount-1) / plistn) + 1 if epage < page then page = epage %>
À¥ÁøÀº À̸ÞÀÏÀ» ÅëÇؼµµ ¹Þ¾Æ º¸½Ç ¼ö ÀÖ½À´Ï´Ù.
°Ô½ÃÆÇ¿¡ À̸ÞÀÏ ÁÖ¼Ò¿Í ÇÔ²² ½Åû±ÛÀ» ³²°ÜÁÖ¼¼¿ä.
´ëÇÑ°áÇÙÇùȸ´Â Å©¸®½º¸¶½º ¾Á°ú ±âŸ ±âºÎ¡¤¸ð±ÝÀ» ÅëÇØ ¸¶·ÃÇÑ °áÇÙÅðÄ¡»ç¾÷ ±â±ÝÀ¸·Î ºÏÇÑ°ú Àú°³¹ß °áÇÙ°íÀ§Çè±¹ÀÇ °áÇÙÅðÄ¡¿¡ ±â¿©ÇÏ°íÀÖ´Ù. Àü ¼¼°èÀûÀ¸·Î ÀÎÁ¤¹ÞÀº °áÇÙ°ü¸® ±â¼úÀ» ¹ÙÅÁÀ¸·Î ±¹³»»Ó¸¸ ¾Æ´Ï¶ó ±¹¿Ü °³¹ßµµ»ó±¹ °áÇÙȯÀÚÀÇ °áÇÙÅðÄ¡¸¦ µ½°í ÀÖ´Â ´ëÇÑ°áÇÙÇùȸÀÇ ºÏÇÑÀÌÅ»ÁֹΠ°áÇÙȯÀÚ Áö¿ø»ç¾÷À» »ìÆ캸ÀÚ.
ÀÚ¼¼È÷º¸±â<% rs.movenext Loop End If rs.close %> |