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