|
<%
Dim oDBconn
Set oDBconn = Server.CreateObject("ADODB.Connection")
oDBconn.CursorLocation = 3
oDBconn.Open GetDBConnectionString()
Dim sKeyword
sKeyword = Trim(Request("sKeyword"))
Dim SortVal, sortStr, sort
SortVal = Trim(Request("SortVal"))
sortStr = Trim(Request("sortStr"))
sort = Trim(Request("sort"))
Dim curPage
curPage = Trim(Request("curPage"))
IF curPage = "" Then
curPage = 1
End If
Dim Category_CD
Category_CD = "GALLERY"
%>
<%
Dim post_qry
post_qry = "SELECT *, CASE EventDate_MM WHEN '' THEN '' ELSE CAST(EventDate_MM+'/'+EventDate_DD+'/'+EventDate_YYYY AS DateTime) END AS Event_Date FROM E3_Post "
Dim where_qry
If isSearch = "Y" Then
where_qry = "WHERE Active_YN='Y' "
If Category_CD <> "" Then
where_qry = where_qry & " and Category_CD like '"&Category_CD&"%' "
End If
If sKeyword <> "" Then
where_qry = where_qry & " and Upper(Title) like '%"&UCase(sKeyword)&"%' or Author like '%"&sKeyword&"%' "
End IF
Else
where_qry = "WHERE Active_YN='Y' and Category_CD = 'GALLERY' "
End IF
Dim orderby_qry
If SortVal <> "" Then
orderby_qry = "Order By "&sortStr&" "&sort
Else
orderby_qry = "Order By Post_ID DESC "
End IF
post_qry = post_qry & where_qry
'//Response.write post_qry
Dim rsPost
Set rsPost = ExecutePage(oDBconn, post_qry, Trim(Request("curPage")), orderby_qry)
Dim totCount
totCount = ExecuteCount(oDBconn, post_qry)
Dim strParam
strParam = "&isSearch="&isSearch&"&Category_CD="&Category_CD&"&sKeyword="&sKeyword&"&SortVal="&SortVal&"&sortStr="&sortStr&"&sort="&sort
%>
<%'--------------------------------------------------------------------------------------------------%>
| Total <%=totCount%> Results |
|
<%
Dim com_temp, com_num, encode_str, newImg
Dim ii, rowNumber, list_cnt
Dim Subject
ii = 0
rowNumber = totCount - ((curPage - 1) * G_PAGE_SIZE)
list_cnt = 0
Do Until rsPost.EOF
ii = ii + 1
'//새글이미지
if datediff("d",rsPost("Write_Date"),now) <= 1 then
newImg = " "
else
newImg = ""
end If
' 제목이 20자가 넘으면 일정량으로 자른다.
If Len(Trim(rsPost("title"))) > 14 Then
Subject = Left(Trim(rsPost("title")),14) & "..."
Else
Subject = Trim(rsPost("title"))
End If
%>
|
<% list_cnt = list_cnt + 1
IF (list_cnt mod 5) = 0 and list_cnt < G_PAGE_SIZE Then
%>
<% End IF
rsPost.MoveNext
rowNumber = rowNumber - 1
Loop
rsPost.close
set rsPost = Nothing
%>
|
|
|
<%Response.Write ShowPageBar(Trim(Request("curPage")),"","",strParam)%>
|
<%IF strcomp(SESSION("User_Group"),"MEMBER") = 0 Then%><%End IF%> |
|
|
<%'--------------------------------------------------------------------------------------------------%>
<%
oDBconn.close
Set oDBconn = Nothing
%>
|
| |
| |
|
|
|
