<%
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4
'다중 게시판시 테이블의 이름을 읽어 온다.
table=TRIM(Request("table"))
'머리말과 꼬리말등을 읽어 온다.
%>
<%
Set Result = Server.CreateObject("ADODB.RecordSet")
sqlStr="SELECT * From Admin"&table
set Rs=Dbcon.Execute(sqlStr)
header=TRIM(Rs("header"))
tailer=TRIM(Rs("tailer"))
ListMenu_bg=Rs("ListMenu_bg")
srch_chk=Rs("srch_chk")
viewlist=Rs("viewlist")
viewTableSelect=Rs("viewTableSelect")
width=Rs("width")
LinePerPage = Rs("LinePerPage")
IF IsNull(Rs("homepage")) THEN
HomePage = "http://www.iosis.co.kr"
ELSE
HomePage = Rs("HomePage")
END IF
TitleLength = Rs("TitleLength")
IF TitleLength="" OR TitleLength=0 Then
TitleLength=36
End IF
AdminWrite = Rs("AdminWrite")
'
'게시물의 전체 수를 세어보자
'속도 향상을 위해서 레코드카운트 속성을 포기한다.
'
SqlString="Select count(*) From " + table
Set rsCnt=DbCon.Execute(SqlString)
Recordcnt=rsCnt(0)
rsCnt.Close
Set rsCnt = Nothing
page = Request("page")
if page <> "" Then
cPage = page
if cPage < 1 Then
cPage = 1
end if
else
cPage = 1
page=1
end if
IF viewlist = "order" THEN
'게시물을 작성 순서대로 보기
SqlString="Select Top " & cpage * LinePerPage & " * From " + table + " Order By id DESC"
'SqlString="Select * From " + table + " Order By id DESC"
Else
'게시물을 관련글 순서대로 보기
SqlString="Select Top " & cpage * LinePerPage & " * From " + table + " Order By ref DESC,step"
'SqlString="Select * From " + table + " Order By ref DESC,step"
End IF
'response.write sqlstring
Result.Open (Sqlstring), DbCon, adOpenKeyset,adLockReadOnly
'Recordcnt=Result.RecordCount
total_page=(Recordcnt-1)\LinePerPage+1
if (Result.BOF = True and Result.EOF = True) then
res = 1
else
Result.PageSize = LinePerPage
ReSult.AbsolutePage = cPage
end if
%>
<%=header%>
| NO |
Subject |
NAME |
DATE |
Access |
<% if res = 1 then%>
| No Subject |
<% IF AdminWrite = "0" Then %>
<% Else %>
<% End IF %>
<% else %>
<%
RowCount = Result.PageSize
Do While Not Result.EOF and rowcount > 0
%>
<% IF Date = DateValue(Result("date2")) THEN %>
|
<% ELSE %>
|
<% END IF %>
<%=Result("id")%> |
<% IF viewlist="refer" Then '답변글 들여 보이기
IF Result("re_level")=0 Then
blank=""
Else
blank=""
For i=1 TO Result("re_level")
blank=blank & " "
Next
blank = blank & " "
End IF
Response.Write blank
End IF
strTitle = Replace(Result("title2"),"<","<")
strTitle = Replace(strTitle,">",">")
%>
&table=<%=table%>">
<%
intLength = TitleLength '제목을 보여줄때 어디서 짜를건지 결정하는 길이
intReplyLength = intLength - Cint(Result("re_level")) '만약 답변글일경우 blank의 길이도 포함해서 짤라야함다.
IF Len(strTitle) + Cint(Result("re_level")) > intLength Then
strTitle = Left(strTitle,Cint(intReplyLength))&"....."
strTitle = Replace(strTitle,"Re:","")
response.write strTitle
Else
strTitle = Replace(strTitle,"Re:","")
Response.Write strTitle
End IF %>
|
<% if Result("email")="" then %>
<%=Result("name")%>
<% else %>
"><%= Result("name") %>
<% end if %>
|
<%
reg_date = Result("date2")
IF Left(reg_date,2) = "00" THEN
Response.Write "20" & Left(reg_date,Instr(reg_date,"오")-1)
ElseIF Left(reg_date,2) = "99" THEN
Response.Write "19" & Left(reg_date,Instr(reg_date,"오")-1)
ELSE
Response.Write Left(reg_date,Instr(reg_date,"오")-1)
END IF
%> |
<%=Result("refer")%> |
<%
RowCount = RowCount - 1
Result.MoveNext
Loop
%>
<%
DbCon.Close
set Result = nothing
set DbCon = nothing
%>
<%
intNumOfPage=10
intStart=((cPage-1) \ intNumOfPage)*intNumOfPage + 1
intEnd =(((cPage-1) + intNumOfPage) \ intNumOfPage ) * intNumOfPage
IF total_page <= intEnd THEN
intEnd=total_page
END IF
%>
<% IF cint(cPage) > cint(intNumOfPage) THEN %>
[1]
[이전<%=intNumOfPage%>개]
<% END IF %>
<% FOR i= intStart TO intEnd %>
<% if i = int(cPage) then %>
[<%=i%>]
<% else %>
[<%=i%>]
<% end if%>
<% NEXT %>
<% IF cint(total_page) > cint(intEnd) Then %>
[다음<%=intNumOfPage%>개]
[<%= total_page %>]
<% End IF %>
<%=tailer%>
<% Set rs = Nothing
Set result = Nothing
Set DbCon = Nothing
%>
