<% page = request("page") myDB = Server.MapPath("board.mdb") strConnect = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & myDB Set Dbconnect = Server.CreateObject("ADODB.Connection") Dbconnect.Open(strConnect) set rs = server.createobject("ADODB.Recordset") keyfield = Request("keyfield") keyword = trim(Replace(Request("keyword"),"'","''")) if request.querystring("table") = "" then else session("linktable") = request.querystring("table") 'LINK ÇÏ¿© »ç¿ëÇÒ Å×ÀÌºí ¼±Åà end if if keyword = "" then strsql="select * from " & session("linktable") & " order by ÀϷùøÈ£ desc" else ' °Ë»öÇÏ°íÀÚ ÇÒ¶§ strSQL = "SELECT * FROM " & session("linktable") & " WHERE " & keyfield & " LIKE '%" & keyword & "%' ORDER BY ÀϷùøÈ£ desc" end if rs.Open strsql,Dbconnect,1 '·¹Äڵ尡 Çϳªµµ ¾ø´Ù¸é if rs.EOF or rs.BOF then NoData = True Else '·¹Äڵ尡 ÀÖ´Ù¸é NoData = False end if '·¹Äڵ尡 ÀÖÀ»¶§ ó¸® If NoData = False then rs.PageSize = 15 '·¹ÄÚµåÀÇ °¹¼ö totalRecord = rs.RecordCount 'bbs_numÀÇ ÃÖ´ë°ª ±¸Çϱâ lastnum = rs("ÀϷùøÈ£") cPage = page if page <> "" Then if cPage < 1 Then cPage = 1 end if else page = 1 cPage = 1 end if rs.AbsolutePage = cPage lastpg = int(((totalRecord -1) / rs.PageSize) + 1) if page > lastpg then page = lastpg end if end if'·¹Äڵ尡 ÀÖÀ»¶§ ó¸® ³¡ %> <% if request.querystring("kind") = "free" then %>

<% elseif request.querystring("kind") = "asp" then %>

<% elseif request.querystring("kind") = "source" then %>

<% else %>

<%=request.querystring("kind") %>

<% end if %>

[ Çù·Â¾÷ü ¸ðÁý ]

Á¦¸ñ <% if keyfield = "³»¿ë" then %> ³»¿ë <% elseif keyfield = "À̸§" then %> ÀÛ¼ºÀÚ <% end if %> ³»¿ë ÀÛ¼ºÀÚ

<% If NoData = False then if FirstPage <> 1 then RowCount = rs.PageSize end if Do While Not RS.EOF and RowCount > 0 str_blank = "" for iLoop = 1 to rs("´äº¯¼øÀ§") str_blank = str_blank + "      " next if datediff("h",rs("ÀÔ·ÂÀÏÀÚ"),now()) < 24 then if rs("´äº¯¼øÀ§") = 0 then if rs("´äº¯") = "Y" then str_img = "replied_new_content.gif" else str_img = "new_content.gif" end if else if rs("´äº¯") = "Y" then str_img = "replied_re_new_content.gif" else str_img = "re_new_content.gif" end if end if else if rs("´äº¯¼øÀ§") = 0 then if rs("´äº¯") = "Y" then str_img = "replied.gif" else str_img = "content.gif" end if else if rs("´äº¯") = "Y" then str_img = "re_replied.gif" else str_img = "re_content.gif" end if end if end if title = rs("Á¦¸ñ") If Len(title) > 24 Then title = Mid(title,1,24) & "..." End If if isnull(rs("ÆÄÀϸí")) then fileext = "" else fileext = rs("ÆÄÀϸí") end if fileext = mid(fileext, instrrev(fileext, ".")+1) Select Case Ucase(fileext) 'È®ÀåÀÚ¿¡ ÀÇÇÑ À̹ÌÁö ¼±Åà Case "HWP", "COM", "EXE","TXT", "WAV", "XLS", "DOC", "ZIP", "RAR", "GIF", "BMP", "MP3", "PDF" fileicon=fileext & ".gif" Case "RA", "RAM" fileicon = "ra.gif" Case "HTM", "HTML" fileicon= "htm.gif" Case "JPG", "JPEG" fileicon="jpg.gif" Case "MPG", "MPEG", "AVI" fileicon="mpg.gif" Case else fileicon="etc.gif" End Select response.write "" if fileext = "" then response.write "" else response.write "" end if response.write "" response.write "" response.write "" response.write "" i = i + 1 if (i mod 2) = 1 then response.write "" else response.write "" end if RowCount = RowCount - 1 rs.MoveNext Loop ViewPageNum = 15 endsign = 0 %> ¹øÈ£ Á¾·ù Á¦¸ñ À̸§ ³¯Â¥ º½ " & rs("ÀϷùøÈ£") & " " + str_blank + " " & title & " " & rs("À̸§") & " " & rs("ÀÔ·ÂÀÏÀÚ") & " " & rs("Á¶È¸¼ö") & " <% pagestep = ((cpage-1)\ViewPageNum) * ViewPageNum + 1 if lastpg>viewpagenum then if pagestep=1 then else %> [ ÀÌÀü <%=viewpagenum%> °³ ] <%end if For a=pagestep to pagestep+viewpagenum-1 if a>lastpg then exit for else if a=Cint(cpage) then%> <%=a%> <%else%> <%=a%> <%End if%> <%end if%> <%Next%> <%if ((cpage\viewpagenum)=(lastpg\viewpagenum)) then else%> [ ´ÙÀ½ <%=viewpagenum%>°³ ] <%end if%> <%else For a=1 to lastpg if a=Cint(cpage) then%> <%=a%> <%else%> <%=a%> <% end if next%> <%end if end if rs.close set rs=nothing Dbconnect.close set Dbconnect=nothing %> ±Û¾²±â