<%
strDirectory = "C:\D_WWW/¿µ¾îÄ·ÇÁ/data/"+code+"/"
Set FSO = CreateObject("Scripting.FileSystemObject")
if code="photo" then
Dim bbs_file(20)
For i = 1 To 20
bbs_file(i) = rs("userfile"&i)
if bbs_file(i)<>"" then
bbs_filename = split(bbs_file(i),".")
file_name = bbs_filename(0)
file_ext = bbs_filename(1)
strFile = strDirectory & rs("userfile"&i)
If (FSO.FileExists(strFile)) Then
if Lcase(file_ext)="jpg" or Lcase(file_ext)="gif" or Lcase(file_ext)="bmp" then
T_Size = GetImageSize("C:\D_WWW/¿µ¾îÄ·ÇÁ/data/"+rs("code")+"/"+rs("userfile"&i))
TSize = split(T_Size,",")
S_Size = SetImageSize("C:\D_WWW/¿µ¾îÄ·ÇÁ/data/"+rs("code")+"/"+rs("userfile"&i),"600")
SSize = split(S_Size,",")
%>
<%'==========´äº¯=========%>
<% if session("m_id")<>"" or session("u_id")<>"" then %>
<% if rs("bbs_top")<>"Y" and (code="qna" or code="spost") then %>
<% end if %>
<% end if %>
<%'==========¼öÁ¤=========%>
<% if session("u_id")=rs("bbs_id") or session("m_level")="1" then %>
<% end if %>
<%'==========»èÁ¦=========%>
<% if session("u_id")=rs("bbs_id") or session("m_level")="1" then %>
<% end if %>
<%'==========¸ñ·Ï=========%>
<%
' ÄÚ¸àÆ® Ãâ·Â
CSQL = "Select * from tb_comment where code='"&code&"' and bbs_no="&bbs_no&" ORDER BY comment_no DESC"
Set crs = db.Execute(CSQL)
if not(crs.eof) then
%>
<%
end if
c = 1
Do while not Crs.EOF
comment_content = replace(crs("comment_content"),chr(13)&chr(10)," ")
comment_rest = c mod 2
if comment_rest="0" then
c_class = "comment"
else
c_class = "comment2"
end if
%>
<%
if session("m_level")="1" or session("u_id")<>"" then
if session("m_level")="1" then
comment_name = session("m_name")
else
comment_name = session("u_name")
end if
%>
<% end if %>
<%
pSQL = "select * from tb_bbs where code='"&code&"' and bbs_top=''"
if camp_no <> "" then
pSQL = pSQL&" and camp_no="&camp_no
end if
if searchstring <> "" then
pSQL = pSQL&" and "&search&" like '%"&searchstring&"%'"
end if
pSQL = pSQL&" and bbs_no<"&bbs_no&" ORDER BY bbs_no DESC"
Set prs = Db.Execute(pSQL)
%>
<%
countQuery = " select count(comment_no) from tb_comment where code='"&code&"' and bbs_no="&bbs_no
Set ctrs = db.Execute(countQuery)
comment_writecnt = ctrs(0)
nSQL = "select * from tb_bbs where code='"&code&"' and bbs_top=''"
if camp_no <> "" then
nSQL = nSQL&" and camp_no="&camp_no
end if
if searchstring <> "" then
nSQL = nSQL&" and "&search&" like '%"&searchstring&"%'"
end if
nSQL = nSQL&" and bbs_no>"&bbs_no&" ORDER BY bbs_no asc"
Set nrs = Db.Execute(nSQL)
%>