<% maxindex = 15 maxdisp = 20 curpage = request("page") If request("page") ="" then curpage=1 else curpage = clng(request("page")) end if If request("page") ="" then curpage=1 else curpage = clng(request("page")) end if errchk = "N" errmessage = "" faqsearch = FuncInString(request("faqsearch")) sql_select = " cast(boardnum as numeric) boardnum, boardtype, boardsubtype, displaytype, title, " & _ " subcontent, content, name, pw, replycount, " & _ " viewcount, islock, isdelete, createdate, updatedate, " & _ " titleimage, file1, file2, file3, url, " & _ " urltype,chknum,ipaddr " sql_from = " webzineboard " sql_where ="where boardtype='35' " &_ "and isdelete='N' " sql_orderby = "order by createdate desc " '****************************************************************************** 'Àüü µ¥ÀÌÅÍ ¼ö È®ÀÎ '****************************************************************************** sql_count = "select isnull(count(*),0) from "& sql_from &" " & sql_where set rs = Fdcon.execute(sql_count) if not(rs.eof or rs.bof) then list_count = clng(rs(0)) 'ó¸® ÈÄ µÇµ¹¾Æ¿Ã °æ¿ì ´ëºñ ÆäÀÌÁö ¼ö Á¶Á¤ ------------------------------------------------------ chknum = Fix(list_count / maxdisp) IF ( (list_count mod maxdisp) > 0 ) THEN ' ³ª¸ÓÁö°¡ ÀÖÀ¸¸é page ÃѼö + 1 chknum = chknum + 1 END IF if chknum > 1 and chknum < curpage then curpage = curpage -1 end if'-------------------------------------------------------------------------------------------- else list_count = 0 curpage = 1 end if tempdb_name = SetSeqno("#") '****************************************************************************** 'ÆäÀÌ¡À» À§ÇÑ temp µðºñ »ý¼º '****************************************************************************** 'strsql = "if exists (select * from #aaa) drop table #aaa " strsql = "select top "& curpage * maxdisp &" IDENTITY(numeric,1,1) as idxnum, " strsql = strsql & sql_select strsql = strsql & " into "& tempdb_name &" from "& sql_from &" " strsql = strsql & sql_where strsql = strsql & sql_orderby Fdcon.execute(strsql) '****************************************************************************** 'ÆäÀÌÁö µ¥ÀÌÅÍ °Ë»ö '****************************************************************************** strsql = "SELECT " & sql_select & " from "& tempdb_name &" where idxnum >= "& ((curpage-1) * maxdisp)+1 &" " & sql_orderby & " ;" set rs = Fdcon.execute(strsql) if not(rs.eof or rs.bof) then arr_list = rs.getrows num_list = rs.recordcount '------------------------------------------------------------- 'ÆäÀÌ¡ ó¸® ½ÃÀÛ '------------------------------------------------------------- totcount = CLng(list_count) ' ÇöÀç ºÐ·ù¿¡ ¼ÓÇÑ ¸ðµç »óÇ° °¹¼ö pagecount = Fix(totcount / maxdisp) ' page ÃѼö = (ÃѸñ·Ï ¼ö / ÇÑ ÆäÀÌÁö ÃÖ°í Ç¥½Ã¼ö) ÀÇ Á¤¼öºÎ¹®¸¸ ÀúÀå IF ( (totcount mod maxdisp) > 0 ) THEN ' ³ª¸ÓÁö°¡ ÀÖÀ¸¸é page ÃѼö + 1 pagecount = pagecount + 1 END IF if list_count < maxdisp then count_to = (list_count mod maxdisp) -1 else if curpage = 1 then count_to = maxdisp -1 elseif curpage = pagecount then if list_count mod maxdisp = 0 then count_to = maxdisp -1 else count_to = (list_count mod maxdisp) -1 end if elseif curpage < pagecount then count_to = maxdisp - 1 end if end if '------------------------------------------------------------- 'ÆäÀÌ¡ ó¸® ³¡ '------------------------------------------------------------- else num_list = 0 end if rs.close %>
<% qn1 = "¿Â¶óÀÎ ÆÇÃ˹°, ±â³äÇ° ¼îÇθôÀÌ È²±Ý¾ËÀ» ³º´Â´Ù°í ±¤°í¸¦ Çϴ üÀκ»ºÎ¸¦ ¹Ï°í ÀÖ½À´Ï±î?" an1 = "Àý´ë ¾Æ´Õ´Ï´Ù. ÆÇÃ˹° ±â³äÇ° üÀÎÁ¡Àº ±âÁ¸¿¡ ¿µ¾÷¸ÁÀÌ ÀÖ´Â µô·¯ºÐÀ̶ó¸é °ø±Þ»ç ÀڷḦ ¹ÙÅÁÀ¸·Î ±âº»ÀûÀÎ ¿î¿µÀÌ µÇÁö¸¸ Ãʺ¸³ª ½ÃÀÛÇÏ´Â ºÐµéÀº ±¤°í¾øÀÌ ¿î¿µÀÌ ºÒ°¡´ÉÇÏ°í »çÀÌÆ®¸¸ º¸À¯ÇÏ°í °è½Ç °æ¿ì¿¡´Â ¿ù 100 ¸¸¿ø ¸ÅÃâ³»±âµµ Èûµç»ç¾÷ÀÔ´Ï´Ù." qn2="¾ÆÁ÷µµ ¹«ÀÚº», ¹«Á¡Æ÷,¹«ÀÎ »ç¾÷À̶ó°í À̾߱âÇÏ°í Àִ üÀκ»ºÎ¸¦ ¹Ï°í ÀÖ½À´Ï±î?" an2="Á¡Æ÷ÀÇ Á¾·ù´Â »ó°üÀÌ ¾øÁö¸¸ Á¡Æ÷´Â ¹Ýµå½Ã °¡Áö°í ÀÖ¾î¾ß Çϸç ÃÖ¼ÒÀοøÀÌ ÀÖ¾î¾ß¸¸ »ç¾÷ÀÌ °¡´ÉÇÑ ºÎºÐÀÔ´Ï´Ù." qn3="üÀÎÁ¡ ¼ö¹é°³Áß ´ëºÎºÐÀÇ Ã¼ÀÎÁ¡ÀÌ ÈæÀÚ¸¦ ³½´Ù°í Çϴ üÀκ»ºÎ¸¦ ¹Ï°í ÀÖ½À´Ï±î?" an3="´Ü¾ðÄÁ´ë µ·¹ö´Â üÀÎÁ¡Àº 5% ¹Ì¸¸À̸ç 5% Áß¿¡¼­µµ ±¤°í¸¦ ÇÏÁö¾Ê´Â üÀÎÁ¡Àº Àý´ë µ·À» ¹ú¼ö ¾ø´Â ±¸Á¶ ÀÔ´Ï´Ù." qn4="À§³Ê±âÇÁÆ®´Â ¾î¶² ÀåÁ¡À» °¡Áö°í ÀÖ³ª¿ä?" an4="1 : À§³Ê±âÇÁÆ®´Â ´ÜÀÏ°ÇÀÇ °è¾à±Ý °ú ¿î¿µºñ¸¦ ¹ú±âÀ§ÇÑ ¹«ºÐº°ÇÑ ÆÇ¸Å»ç °¡ÀÔÀ» ¹ÞÁö¾Ê½À´Ï´Ù.
" &_ "2 : ½ÇÁ¦ÆǸź¼·ý¿¡ ÀÇÇÑ °ø±Þ»ç ¿µÇâ·Â È®´ë¸¦ ÅëÇؼ­ ÆǸŻç ÀÌÀÍÀ» Áõ°¡½ÃÅ°°í ÀÖ½À´Ï´Ù
" &_ "3 : ÆÇ¸Å»ç ¼ýÀÚ ´ëºñ ¸ÅÃâ ÃÖ»óÀ§ üÀκ»ºÎ ÀÔ´Ï´Ù.

" &_ "Âü°í »çÇ× : ³×À̹ö ±¤°í »óÀ§ 10°³Áß 40% ÀÌ»óÀÇ ÆǸŻ簡 À§³Ê±âÇÁÆ® ÆǸŻçÀÓ" %>
<% qcnt = 4 For q=1 To qcnt If q = 1 Then qn = qn1 an = an1 ElseIf q = 2 Then qn = qn2 an = an2 ElseIf q = 3 Then qn = qn3 an = an3 ElseIf q = 4 Then qn = qn4 an = an4 End if %>
<%=qn %>
<% Next %>