<% 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 freeboard order by ref desc,re_step asc" 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%> <% 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("ref")%>	<%if rs("re_level")>0 then wid=10*rs("re_level") %> <%end if%> <%if len(rs("title"))>42 then%><%=left(rs("title"),42)%>..<%else%><%=rs("title")%><%end if%>	<%=rs("name")%>	<%writeday=replace(rs("writeday"),"-",".")%> <%=left(writeday,10)%>	<%=rs("readnum")%>	">

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