<% Response.CacheConTRol = "no-cache" Response.AddHeader "pragma","no-cache" response.expires=0 if session("id")<>"" then if session("td")<>"" or session("td")="" or isnull(session("td")) then if session("td")="" or isnull(session("td")) then session("td")="2010.01.01" end if if datediff("d",replace(session("td"),".","-"),left(now(),10))>0 then %> <% else 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@;'" if session("id")="admin" then sql="select * from repair order by ref desc,re_step asc" else if session("id")<>"" and session("id")<>"admin" then sql="select * from repair where id='"&session("id")&"' order by ref desc,re_step asc" end if end if 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 session("id")="admin" then%>

<%end if%>

<%if session("id")="admin" then%> <%end if%>

<%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%> <% i=1 k=1 do until rs.eof or i>rs.pagesize %> <%if rs("re_step")=0 then%> <%else%> <%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("num")%>	<%if rs("re_level")>0 then wid=10*rs("re_level") %> <%end if%> <%if session("id")="admin" or (session("id")=rs("id") and session("id")<>"guest") then%> <%else%> <%end if%> <%=rs("title")%>	<%if rs("id")="guest" then%><%=rs("id")%> <%else if rs("cname")<>"" and rs("cname")<>"소프트웨어메이크(주)" then%><%=rs("cname")%> <%else if rs("cname")="" or rs("cname")="소프트웨어메이크(주)" then%><%=rs("name")%> <%end if%><%end if%><%end if%>	<%writeday=replace(rs("writeday"),"-",".")%> <%=left(writeday,10)%>	<% 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("readnum")%>	">

<% rs.close db.close set rs=nothing set db=nothing end if end if else %> <% end if %>