| |
 |
|
| |
|
|
|
|
|
|
|
<%
SQL = "SELECT board_idx, b_filename FROM hero_photo_board ORDER BY b_writeday DESC Limit 1"
objRs.Open SQL, objDBConn
If objRs.EOF Or objRs.BOF Then
board_idx = ""
filename = ""
imgFName = " "
objRs.close
else
board_idx = objRs("board_idx")
filename = objRs("b_filename")
objRs.close
REM ----------------------- 이미지 뿌리기1 -------------------------------------------------------
Dim strFname, imgFName
Set fs_title = Server.CreateObject("Scripting.FileSystemObject")
strFname = server.mappath("\2007\hero\photo_data\")
strFname = strFname&"\"&filename
'Response.Write strFname
'Response.End
if fs_title.fileExists(strFname) then
imgFName = "![](/2007/hero/photo_data/"&filename&") "
else
imgFName = " "
end if
Set fs_title=nothing
End if
SQL1 = "SELECT board_idx, b_filename FROM hero_photo_board ORDER BY b_nominate DESC Limit 1"
objRs.Open SQL1, objDBConn
If objRs.EOF Or objRs.BOF Then
board_idx1 = ""
filename1 = ""
imgFName1 = " "
objRs.close
else
board_idx1 = objRs("board_idx")
filename1 = objRs("b_filename")
objRs.close
REM ----------------------- 이미지 뿌리기2 -------------------------------------------------------
Dim strFname1, imgFName1
Set fs_title1 = Server.CreateObject("Scripting.FileSystemObject")
strFname1 = server.mappath("\2007\hero\photo_data\")
strFname1 = strFname1&"\"&filename1
'Response.Write strFname
'Response.End
if fs_title1.fileExists(strFname1) then
imgFName1 = "![](/2007/hero/photo_data/"&filename1&") "
else
imgFName1 = ""
end if
Set fs_title1=Nothing
End if
'SQL2 = "SELECT board_idx, b_title, b_filename FROM hero_photo_board ORDER BY b_nominate DESC Limit 1"
SQL2 = "select board_idx, b_title, b_filename from hero_photo_board where ( ((week(now())-week(b_writeday)=1) && dayofweek(b_writeday)!=1 ) || ((week(now())-week(b_writeday)=0) && dayofweek(b_writeday)=1 ) ) and ((to_days(now())-to_days(b_writeday)) < (7+dayofweek(now())) ) order by b_nominate DESC Limit 1"
objRs.Open SQL2, objDBConn
If objRs.EOF Or objRs.BOF Then
board_idx2 = ""
lastTitle = "등록된 글이 없습니다."
filename2 = ""
imgFName2 = " "
objRs.close
else
board_idx2 = objRs("board_idx")
lastTitle = objRs("b_title")
filename2 = objRs("b_filename")
objRs.close
REM ----------------------- 이미지 뿌리기3 -------------------------------------------------------
Dim strFname2, imgFName2
Set fs_title2 = Server.CreateObject("Scripting.FileSystemObject")
strFname2 = server.mappath("\2007\hero\photo_data\")
strFname2 = strFname2&"\"&filename2
'Response.Write strFname
'Response.End
if fs_title2.fileExists(strFname2) then
imgFName2 = "![](/2007/hero/photo_data/"&filename2&") "
else
imgFName2 = ""
end if
Set fs_title2=nothing
End if
%>
| |
<% If board_idx = "" Then %>
<%=imgFName%>
<% Else %>
<%=imgFName%>
<% End If %>
|
|
<% If board_idx1 = "" Then %>
<%=imgFName1%>
<% Else %>
<%=imgFName1%>
<% End If %>
|
|
<% If board_idx2 = "" Then %>
<%=imgFName2%> |
<% Else %>
<%=imgFName2%> |
<% End If %>
|
| |
<%=lastTitle%> |
|
| |
|
|
|
|
| |
|
|
|
|
 |
| |
<%
SQL_U = "SELECT board_idx, b_title FROM hero_free_board ORDER BY b_writeday DESC Limit 1"
objRs.Open SQL_U, objDBConn
If objRs.EOF Or objRs.BOF Then
board_idx_u = ""
b_title = "등록된 글이 없습니다."
else
board_idx_u = objRs("board_idx")
b_title = objRs("b_title")
If Len(b_title) > 10 Then b_title = Mid(b_title,1,11) & ".."
if b_title = "" then title="내용없음"
objRs.close
End If
%>
<% If board_idx_u = "" Then %>
<%=b_title%>
<% Else %>
<%=b_title%>
<% End If %>
|
|
|
|
|
|
|
|
|
|
 |
|
