|
|
¹øÈ£ |
|
Á¦¸ñ |
|
±Û¾´ÀÌ |
|
Á¶È¸¼ö |
|
<%
IF isSearch = "1" Then
SQL = "Exec bbs_select_list_search_v2 '"& tn &"','"& page &"','"& page_size &"','"& searchword &"','"& keyword &"',"& order_sitecode &",1"
Else
SQL = "Exec bbs_select_list_v2 '"& tn &"','"& page &"','"& page_size &"',"& order_sitecode &",1"
End IF
RS.Open SQL, DB, 0, 1, 1
IF Not RS.EOF Then
While Not RS.Eof
key_id = RS(0)
L_no = RS(1)
L_RootNo = RS(2)
L_Hierarchy = RS(3)
L_lvl = RS(4)
L_subject = RS(5)
L_writer = RS(6)
L_member_no = RS(7)
L_readcount = RS(8)
L_comment_count = RS(9)
L_postdate = RS(10)
states = RS("states")
filename1 = RS("filename1")
filename2 = RS("filename2")
S_writer = L_writer
L_writer = ConvertToSQL(L_writer)
L_subject = ConvertToSQL(L_subject)
L_content = ConvertToSQL(L_content)
loop_count = loop_count + 1
View_No = int(total_record)-(int(page_size)*(int(page)-1)) - loop_count + 1
IF L_member_no <> "0" Then L_writer = ""& L_writer &""
IF isSearch = "1" Then
IF InStr(searchword, "writer") <> "0" Then
L_writer = Replace(L_writer, keyword, ""&keyword&"")
End if
End if
IF DateDiff("h",L_postdate,Now()) < 24 Then
view_img = ""
Else
view_img = ""
End IF
IF int(L_lvl) > 0 Then
for i=1 to int(L_lvl)
reply_null = reply_null & " "
next
reply_img = reply_null & " "
reply_null = ""
Else
reply_null = ""
reply_img = ""
End IF
If cut_length > 0 Then L_subject = cut_length_Check(L_subject,cut_length)
IF isSearch = "1" Then
IF InStr(searchword, "subject") <> "0" Then
L_subject = Replace(L_subject, keyword, ""&keyword&"")
End if
End if
L_postdate = formatdatetime(L_postdate,2)
IF int(L_comment_count) = 0 Then
L_comment_count = ""
Else
L_comment_count = "[" & L_comment_count & "]"
End if
'subject_link_1 = ""
subject_link_1 = ""
subject_link_2 = ""
Link_subject = " " & subject_link_1 & L_subject & subject_link_2
IF (loop_count mod 2) = 0 Then
tr_bgcolor="#f7f7f7"
Else
tr_bgcolor="#ffffff"
End IF
IF states = "0" Then
Link_subject = " ÇØ´ç±ÛÀº º»Àθ¸ È®ÀÎ ÇÏ½Ç ¼ö ÀÖ½À´Ï´Ù."
Else
End IF
img_file1 = CheckFileExist_DP(filename1, Fileroom, 80, 70,"")
%>
|
|
<%=View_No%> |
|
<%=reply_img%><%=view_img%><%=Link_subject%>
<%=L_comment_count%> |
|
<%=L_writer%> |
|
<%=L_readcount%> |
|
<%
RS.MoveNext
Wend
End IF
RS.Close
DB.Close
Set RS = Nothing
Set DB = Nothing
%>
|
|
|
<%=link_url_list%> |
<%=link_prev_1%><%=link_prev_2%> |
|
<%=link_next_1%><%=link_next_2%> |
<% IF types <> "1" and tn <> "bbs_notice" Then %>
<%=link_write%>
<% End IF %>
|
|
|