| 번호 |
제목 |
작성자 |
조회 |
날짜 |
<%
If searchkey = "" then
sql = "SELECT * FROM qna ORDER BY ref DESC, ansnum ASC"
Else
sql = "select * from qna where "&part&" like '%"&searchkey&"%' order by ref DESC, ansnum ASC"
End if
'response.write sql
Set DbCon=Server.CreateObject("ADODB.Connection")
DbCon.Open (strConnect)
Set rs=Server.CreateObject("ADODB.Recordset")
rs.CursorType=3
rs.Open sql, dbcon
if not rs.eof then
'패이지사이즈 설정
rs.pagesize=10
ps=rs.pagesize
tr=rs.recordcount
pc = rs.pagecount
if page<1 then
page=1
end if
if page>rs.pagecount then
page=rs.pagecount
end if
rs.absolutepage = page
blocksize=10
block=int((page-1)/blocksize)
listblock=int((rs.pagecount-1)/blocksize)
'페이지사이즈 설정 끝
viewnum = (page-1)*10 + 1
n = tr - (page-1)*blocksize
k=1
ncolor=1
do until rs.eof or k>ps
subject = replace(rs("subject"),""","'")
If Len(subject) > 40 Then
subject = Mid(subject,1,37) & "..."
End If
'바탕색 만들기
if ( ncolor mod 2 ) = 0 then
rscolor1 = "F4FAFF"
rscolor2 = "def1fb"
else
rscolor1 = "F4FAFF"
rscolor2 = "FFFFFF"
end if
'바탕색 만들기
%>
| <%if left(now,10) = left(rs("date"),10) then%><%=n%><%else%><%=n%><%end if%> |
<%if rs("step") > 0 then%> " border="0"> <% else %> <%end if%>
&ref=<%=rs("ref")%>&page=<%=page%>&part=<%=part%>&searchkey=<%=searchkey%>"><%=subject%> |
<%if rs("email")="" then%><%=rs("writer")%><%else%>"><%=rs("writer")%><%end if%> |
<%=rs("visited")%> |
<%=left(rs("date"),10)%> |
<%
viewnum = viewnum + 1
n=n-1
k=k+1
rs.MoveNext
Loop
else
%>
| 자료가 없습니다. |
<%
end if
%>
|
목록보기
<% if searchkey <> "" then %> 
<%end if%>
<% end if %>
<%
for i=(block*blocksize+1) to (block*blocksize)+blocksize
if i >rs.pagecount then
exit for
end if
%>
<% if page=i then %>[<%=i%>]
<% else %>[<%=i%>]
<% end if %>
<% next %>
<% if block < listblock then %>
<% end if %>
<% else %>
<% end if %>