<% '//파라미터정보 ************************************************************************************* b_num = InputValue(request("b_num")) b_type = InputValue(request("b_type")) '//************************************************************************************************** '//조회수 추가 sql = "update " & a_tablename & " set b_count = b_count + 1 Where b_num = " & b_num dbcon.execute sql '//레코드필드 R_Fields = "b_num, b_type, b_id, b_name, b_pwd, b_subject, b_email, b_jumin, b_phone1, b_phone2, b_phone3, b_cate, b_catename, b_noticechk, b_content, b_ip, b_count, b_look, b_open, b_ref, b_step, b_level, b_regdate, b_chuchun, b_sbjclr, b_sdate, b_edate, b_temp1, b_temp2, b_temp3, b_temp4, b_file1, b_file2, b_file3, b_file4, b_file5,b_keyword,b_c_count, b_sbjclr" R_tablename_str = a_tablename R_WHERE_str = " WHERE b_num=" & b_num Call SelectQuery (R_Fields, R_tablename_str, R_WHERE_str) If is_ad_cms <> "Y" then '//관리자가아닐때 체크 '//공개/비공개 체크************************************************************************************* if a_type = "Y" Or a_type = "T" then '//공개여부 사용일때 If b_open = "N" Or a_type = "T" then '//비공개일때 If SESSION("pwd_chk_" & a_num & "_" & b_num) <> "ok" then Call locationhref( "pwd.asp?prepage=vie&a_num=" & a_num & "&b_num=" & b_num & "&" & page_info) End if End if End if '//************************************************************************************************** End if If a_edit = "N" then '//에디터 사용하지 않을때... b_content = getTextmode(b_content) End if '//이전글 ------------------------------------------------------------------------------------------------ sql_p_opt1 = " WHERE b_look = 'Y' AND b_num <> " & b_num & " AND b_ref <= " & b_ref & " AND b_step >=" & b_step sql_p_orderby = " ORDER BY b_ref DESC, b_step ASC" '//답변글 사용하지 않을때..적용 If a_reply = "N" then sql_p_opt2 = " AND b_type='N'" sql_p = "SELECT top 1 b_num, b_subject FROM " & a_tablename sql_p = sql_p & sql_p_opt1 & sql_p_opt2 & sql_p_orderby Set rs_prev = dbcon.execute( sql_p ) If rs_prev.bof Or rs_prev.eof then prev_b_num = "" else prev_b_num = rs_prev("b_num") prev_b_subject = rs_prev("b_subject") End If Set rs_prev = nothing '//이전글끝 ------------------------------------------------------------------------------------------------ '//다음글 ------------------------------------------------------------------------------------------------ sql_p_opt1 = " WHERE b_look = 'Y' AND b_num <> " & b_num & " AND b_ref >= " & b_ref & " AND b_step <=" & b_step sql_p_orderby = " ORDER BY b_ref ASC, b_step DESC" '//답변글 사용하지 않을때..적용 If a_reply = "N" then sql_p_opt2 = " AND b_type='N'" sql_p = "SELECT top 1 b_num, b_subject FROM " & a_tablename sql_p = sql_p & sql_p_opt1 & sql_p_opt2 & sql_p_orderby Set rs_next = dbcon.execute( sql_p ) If rs_next.bof Or rs_next.eof then next_b_num = "" else next_b_num = rs_next("b_num") next_b_subject = rs_next("b_subject") End If Set rs_next = nothing '//다음글끝 ------------------------------------------------------------------------------------------------ %>

<% '//사용자필드 for z=1 To 4 a_ftemp = eval("a_ftemp" & z ) a_ftemp_str = eval("a_ftemp" & z & "_str") b_temp = eval("b_temp" & z ) If a_ftemp = "Y" then %> <% End if next %> <%If a_upload = "Y" and (b_file1 <> "" or b_file2 <> "" or b_file3 <> "" or b_file4 <> "" or b_file5 <> "" ) then '//첨부파일 사용일때{%> <%End if%>

<%=replace( tit_name, " | ", "")%>
	<%If a_cate = "Y" Then response.write "" & b_cate_str( b_cate ) & ""%> <%=b_subject%>
	일시 <%=b_sdate%> ~ <%=b_edate%>
	<%=a_ftemp_str%> <%=b_temp%>
	첨부파일 <% For z=1 To 5 b_file_name = eval("b_file" & z) b_file_name_tmp = b_file_name If b_file_name <> "" Then '//파일이 있으면.. strDir = server.mappath("/data/board/") & "\" & a_tablename & "\" 'response.write b_file_name %> <%=b_file_name%> (<%=Folderfilesize(strDir& b_file_name)%> byte) <% End if next %>
<%=b_content%>

<%If is_write = "Y" then '//쓰기/수정권한%>

<%End if%> <%If is_delete = "Y" then msg = "정말 삭제하시겠습니까?" querystring = "msg=" & server.urlencode( msg ) querystring = querystring & "&ok=" & server.urlencode("/content/board/delete_ok.asp?a_num=" & a_num & "&b_num=" & b_num & "&" & page_info) querystring = querystring & "&no=" & server.urlencode(nowpage) go_url = "/content/board/message.asp?a_num=" & a_num & "&" & querystring %>

<%End if%>

<%If a_command = "Y" Then%> <%End if%>