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