<% option Explicit Response.Buffer = TRUE Dim CurrentPage, totalpage, page Dim strSql, Totalvalue, pageView 'Àü¿ªº¯¼ö Dim alldata, numrows, rowcounter, list_name, url, i, numcols, bg, bColor, SECT, whStr, FLAG, IQ_SECT FLAG = 2 Const Boardwidth = 10 Const perPage = 5 Const DBName = "news" Const TBName = "NEWS_IQ" Const CT = "IQ_NUM" Const idKey = "IQ_NUM" Const orStr = "ORDER BY IQ_DATE DESC" Const dField = "IQ_DATE, IQ_TITLE, IQ_FILE, IQ_VISITED, IQ_NUM" bg = 1 IQ_SECT = replaceStr(Request.QueryString("iq_sect")) page = GetOnlyNumber(request.QueryString("page"), "CINT") whStr = "IQ_SECT = '4'" 'If IQ_SECT = "" Then IQ_SECT = 1 'Select Case IQ_SECT ' Case "1" whStr = "IQ_SECT = '" & IQ_SECT & "'" ' Case Else Response.End 'End Select If (page = 0 Or page = "") then CurrentPage = 1 Else CurrentPage = Cint(page) %> ¼øº¹À½°¡Á·¿©·¯ºÐ! Çϳª´ÔÀº ´ç½ÅÀ» »ç¶ûÇϽʴϴÙ.
 
Ȩ > ¼øº¹À½¼Ò½Ä > ±â³äÇà»çÀÏÁ¤

Çà»ç¸ñÀû : 50Áֳ⠱â³ä°ú ¹ÎÁ· º¹À½È­¿Í ¼¼°è¼±±³¸¦ À§ÇÑ ±âµµ´ë¼ºÈ¸

Çà»çÀÏÀÚ : 2008. 5. 9(±Ý) ¿ÀÀü 10½Ã ~ ¿ÀÈÄ3½Ã

Çà»çÀå¼Ò : Àá½Ç ¿Ã¸²ÇÈ ÁÖ°æ±âÀå