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

Webzine

webzine

°áÇÙ¾ø´Â ¼¼»óÀ» À§ÇÏ¿©

À¥ÁøÀº À̸ÞÀÏÀ» ÅëÇؼ­µµ ¹Þ¾Æ º¸½Ç ¼ö ÀÖ½À´Ï´Ù.
°Ô½ÃÆÇ¿¡ À̸ÞÀÏ ÁÖ¼Ò¿Í ÇÔ²² ½Åû±ÛÀ» ³²°ÜÁÖ¼¼¿ä.

2018³â 09¿ùÈ£ À¥Áø ½æ³×ÀÏ
<% sql = "select top " & plistn * page & " * from tb_webzine where " & where & " order by wym desc" set rs = server.createobject("ADODB.RecordSet") rs.open sql,conn,1, 1 if not rs.eof then rs.PageSize = plistn rs.AbsolutePage = page no = rscount - ((page - 1) * plistn) listcount = plistn i = 0 do until rs.eof or listcount = 0 wzIdx = rs("wzIdx") title = rs("title") wzType = rs("wzType") url = rs("url") %>
Vol.99'°Ç°­ÇàÁø' 2018³â 09¿ùÈ£

´ëÇÑ°áÇÙÇùȸ´Â Å©¸®½º¸¶½º ¾Á°ú ±âŸ ±âºÎ¡¤¸ð±ÝÀ» ÅëÇØ ¸¶·ÃÇÑ °áÇÙÅðÄ¡»ç¾÷ ±â±ÝÀ¸·Î ºÏÇÑ°ú Àú°³¹ß °áÇÙ°íÀ§Çè±¹ÀÇ °áÇÙÅðÄ¡¿¡ ±â¿©ÇÏ°íÀÖ´Ù. Àü ¼¼°èÀûÀ¸·Î ÀÎÁ¤¹ÞÀº °áÇÙ°ü¸® ±â¼úÀ» ¹ÙÅÁÀ¸·Î ±¹³»»Ó¸¸ ¾Æ´Ï¶ó ±¹¿Ü °³¹ßµµ»ó±¹ °áÇÙȯÀÚÀÇ °áÇÙÅðÄ¡¸¦ µ½°í ÀÖ´Â ´ëÇÑ°áÇÙÇùȸÀÇ ºÏÇÑÀÌÅ»ÁֹΠ°áÇÙȯÀÚ Áö¿ø»ç¾÷À» »ìÆ캸ÀÚ.

ÀÚ¼¼È÷º¸±â
<% Exit Do rs.movenext Loop End If rs.close %>
<% sql = "select top " & plistn * page & " * from tb_webzine where " & where & " order by wym desc" set rs = server.createobject("ADODB.RecordSet") rs.open sql,conn,1, 1 if not rs.eof then rs.PageSize = plistn rs.AbsolutePage = page no = rscount - ((page - 1) * plistn) listcount = plistn i = 0 dim cnt cnt = no do until rs.eof or listcount = 0 wzIdx = rs("wzIdx") title = rs("title") wzType = rs("wzType") url = rs("url") wym = rs("wym") cnt = cnt -1 %> <% rs.movenext Loop End If rs.close %>
Webzine ±Ûº¸±â
  • À¥Áø ½æ³×ÀÏ À̹ÌÁö
  • Vol.<%=cnt%>
  • <%=strChange(title,"text")%>
  • À¥Áø ½æ³×ÀÏ ¼±¹Ý À̹ÌÁö
<%= strPageLinkNeo2(plinkn, epage, page, "magazine.asp?" & pagelink, "<<", "<", ">", ">>") %>