<% Response.CacheConTRol = "no-cache" Response.AddHeader "pragma","no-cache" response.expires=0 if request("page")="" then page=1 else page=request("page") end if set db=server.createobject("adodb.connection") db.open "provider=SQLOLEDB;Data Source=211.202.2.172; Initial Catalog=swmake; User Id=swmake; Password=pass5303@;'" sql="select * from freeware order by board_idx desc" set rs=server.createobject("adodb.recordset") rs.pagesize=20 rs.open sql,db,1 intBlockPage=20 %>
<%if session("id")="admin" then%> <%end if%>

<%if rs.bof or rs.eof then%>

ÇöÀç ÀÚ·á°¡ ¾ø½À´Ï´Ù.

±ÛÀ» ½áÁÖ¼¼¿ä.

<% else totalpage=rs.pagecount rs.absolutepage=page %>
<% intTemp = Int((Page - 1) / intBlockPage) * intBlockPage + 1 %>
  <%if intTemp=1 then%> <%else%> "> <%end if%>
[ <% intLoop = 1 Do Until intLoop > intBlockPage Or intTemp > TotalPage If intTemp = CInt(Page) Then Response.Write "" & intTemp &" " Else Response.Write"" & intTemp & " " End If intTemp = intTemp + 1 intLoop = intLoop + 1 Loop %> ]
<%if intTemp > TotalPage then%> <%else%> "> <%end if%>
<%if session("id")="admin" then%> <%end if%> <%if session("id")="admin" then%> <%end if%> <% i=1 k=1 do until rs.eof or i>rs.pagesize %> <%if session("id")="admin" then%> <%end if%> <%if session("id")="admin" then%> <%end if%> <% rs.movenext i=i+1 k=k+1 loop %> <%end if%> <%if session("id")="admin" then%> <%end if%>
¡¡ ¡¡ ¡¡Á¶È¸¼ö¡¡ ¡¡»èÁ¦

<%=rs("board_idx")%>

  <%=rs("title")%>

<%writeday=replace(rs("writeday"),"-",".")%>

<%=left(writeday,10)%>

<%=rs("readnum")%>

<% FileExt = Ucase(right(rs("fname"), 3)) ' È®ÀåÀÚ ¾ò±â Select Case FileExt Case "HWP", "COM", "EXE", "TXT", "WAV", "XLS", "PPT", "DOC", "MDB", "ZIP", "RAR", "ARJ", "HLP", "JPG", "GIF", "BMP", "RA", "RAM", "PDF" FileIcon = FileExt & ".gif" Case Else FileIcon = "etc.gif" End Select fname=mid(rs("fname"),instrRev(rs("fname"),"\")+1) %>

<%if rs("size")<>"" then size=rs("size")/1023.999%> <%=left(size,instr(size,".")-1)%>Kb<%end if%>

">

<% rs.close db.close set rs=nothing set db=nothing %>