<% Dim sql, R_Fields Dim 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_zip1, b_zip2, b_addr1, b_addr2 '//파라미터정보 ************************************************************************************* 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_keyword, b_c_count, b_zip1, b_zip2, b_addr1, b_addr2" ' 첨부파일 If Not IsNumeric(a_upload_len) Then a_upload_len = 5 For u=1 To a_upload_len R_Fields = R_Fields & ", b_file"&u '' b_file1, b_file2, b_file3, ‥‥ Next 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" ) And b_noticechk <> "Y" 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 '//$b_content = remove_tags($b_content); If a_edit = "N" then '//에디터 사용하지 않을때... '2011-02-11 이전 게시물 태그제거 If Left(b_regdate,10) < "2011-02-11" Then b_content = Replace( b_content, " " , " " ) b_content = Replace( b_content, "

" , "vbcrlf" ) b_content = Replace( b_content, vbcrlf , "vbcrlf" ) b_content = remove_tags( b_content ) b_content = Replace( b_content, "vbcrlf" , vbcrlf ) End if b_content = getTextmode(b_content) End If ' 게시글 이동시 내용에 게시판으로 링크를 걸어야 하는게 있는데.. 에디터 사용여부에 따라서 태그가 먹질 않아서.. (/content/board/move_ok.asp 참고) b_content = Replace(b_content, "[[board_link_s]]", "") b_content = Replace(b_content, "[[board_link_e]]", "") b_content = Replace(b_content, "[[br_tag]]", "
") '//이전글 ------------------------------------------------------------------------------------------------ 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 '//다음글끝 ------------------------------------------------------------------------------------------------ %>
<%If a_phone = "Y" And (is_ad_cms = "Y" Or a_num="24796508") then '//전화번호 사용시%> <%End if%> <%If a_email = "Y" And (is_ad_cms = "Y" Or a_num="24796508") then '//이메일 사용시%> <%End if%> <% '//사용자필드 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 If LCase(Left(b_temp,7))="http://" Then b_temp = ""&b_temp&" " End if %> <% End if next %> <%If a_home = "Y" then '//주소사용시%> <%End if%> <%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 b_type="N" And a_cate = "Y" then response.write ""& b_cate_str(b_cate) & "" End If response.write b_subject %>
작성일
<%=b_regdate%>
작성자
<%=b_name%>
조회
<%=b_count%>
연락처
<%=b_phone1%> - <%=b_phone2%> - <%=b_phone3%>
이메일
<%=b_email%>
<%=a_ftemp_str%>
<%=b_temp%>
주소
[<%=b_zip1%>-<%=b_zip2%>] <%=b_addr1%> <%=b_addr2%>
첨부파일
<% For z=1 To a_upload_len 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%><%=b_file_name%> (<%=Folderfilesize(strDir& b_file_name)%> byte)   <% End if next %>
<% tp_dir = "/data/board/" & a_tablename & "/" For z = 1 To a_upload_len b_file_name = eval("b_file" & z) b_file_name_tmp = b_file_name If b_file_name <> "" then tot_file = tp_dir & b_file_name If lcase(right(b_file_name_tmp,3)) = "gif" Or lcase(right(b_file_name_tmp,3)) = "jpg" then %> <%=b_file_name%> 이미지를 클릭하시면 원본크기를 보실 수 있습니다.
<% End if End if next %> <%=b_content%>
<%If next_b_num <> "" then%> 다음글 <%End if%> <%If prev_b_num <> "" then%> 이전글 <%End if%>
<%If is_reply = "Y" And a_reply = "Y" then '//답변%> 답변 <%End if%> <%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%>