<% nselect = request.querystring("select") page = request.querystring("page") if IsEmpty(nselect) then Set conn=Server.CreateObject("ADODB.Connection") conn.open "hanmonten", "hanmonten", "4229" sql="select * from han_qna order by ref desc, re_step asc" Set rs=Server.CreateObject("ADODB.RecordSet") rs.open sql, conn, 3 on error resume next rs.pagesize=10 rs.absolutepage=1 page = 1 Set session("rs")= rs else if IsEmpty(session("rs")) then response.redirect("b_search.asp") end if '********湮 ȸ ϱ Set conn=Server.CreateObject("ADODB.Connection") Set rs=Server.CreateObject("ADODB.RecordSet") conn.open "hanmonten", "hanmonten", "4229" sql="select * from han_qna order by ref desc, re_step asc" rs.open sql, conn, 3 on error resume next rs.pagesize=10 select case nselect case 1 if int(page) > 1 then page = page-1 rs.absolutepage = page else page=1 rs.absolutepage = page end if case 2 if int(page) < rs.pagecount then page = page + 1 rs.absolutepage = page else page=rs.pagecount rs.absolutepage = page end if case 3 rs.absolutepage = page end select end if ncount = rs.pagesize %> Welcome to Hanmonten
όē
\ݏ쐬
ό Q&A
<% if session("adminname")="hanmonten" and session("adminpwd")="han4229" then%> login Administrator...... <% end if%> Total : <% =rs.recordcount %>
<% do until rs.eof or ncount <= 0 if len(rs("title")) > 10 then title = left(rs("title"),14) + "..." else title = rs("title") end if %> <% ncount = ncount-1 rs.movenext loop %>
e ^Cg e Ɖ
<% =left(rs("q_date"),10) %> <% '*********** ߰ ************' if rs("re_level") = 0 then %> [?] <% end if %> <% if rs("re_level") > 0 then wid = 10 * rs("re_level") %> Re: <% end if %> &page=<%=page%>">  <% =title %> <% if datediff("h", rs("q_date"), now) < 24 then %> <% end if%> "> <% =rs("name") %> <% =rs("visited") %>
<% if int(page) > 1 then %> <% else %> <% end if%> <% if int(page) < rs.pagecount then %> <% else %> <% end if%>


Copyright (C) 2001 DIGITAL HEART CO.,LTD. All Rights Reserved.
Designed by CLUB INTERNET