<% If b_num = "" then '//일반등록 w_mode = "W" If b_type = "" then b_type = "N" '//값이 있으면 답변타입이다.. If b_type = "N" then b_content = a_writecontent ' If a_close="Y" Then ' b_open = "N" ' else b_open = "Y" ' End if b_noticechk = "N" elseIf b_num <> "" And b_type = "R" then '//답변글쓰기 일때 w_mode = "WR" '//레코드필드 R_Fields = "b_num, b_subject, b_content, b_ref, b_step, b_level, b_open" R_tablename_str = a_tablename R_WHERE_str = " WHERE b_num=" & b_num Call SelectQuery ( R_Fields, R_tablename_str, R_WHERE_str ) b_subject = "RE:" & b_subject If a_edit = "Y" then b_content = "



------------------ 원문 -------------------------

" & b_content Else b_content = vbcrlf & vbcrlf & vbcrlf & vbcrlf & "------------------ 원문 -------------------------" & vbcrlf & vbcrlf & b_content End if b_open = b_open ElseIf b_num <> "" then '//그냥 수정일때.. w_mode = "M" If is_ad_cms <> "Y" then '//관리자가아닐때 체크 If SESSION("pwd_chk_" & a_num & "_" & b_num) <> "ok" then '//체크통과했으면.. Call locationhref("pwd.asp?prepage=modi&a_num=" & a_num & "&b_num=" & b_num & "&" & page_info) End if End if '//레코드필드 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_temp5, b_temp6, b_temp7, b_keyword, 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) End if prepage = Request.ServerVariables("path_info") & "?" & Request.ServerVariables("query_string") %>
&proc_mode=write_ok" enctype="multipart/form-data" onsubmit="return w_chk();">
<%If a_type = "N" Or a_type="T" then '//공개여부%> <%End if%> <%If is_ad_cms = "Y" then '//관리자일때 비밀번호 자동으로%> <%End if%>
* 표시가 된 곳은 필수 항목입니다.
<%If is_ad_cms <> "Y" then '//관리자일때 비밀번호 자동으로%> <%End if%> <%If a_type = "Y" then '//공개/비공개%> <%End if%> <%If a_phone = "Y" then '//전화번호%> <%End if%> <%If a_email = "Y" then '//이메일%> <%End if%> <%If is_ad_cms = "Y" And b_type <> "R" then '//공지여부%> <%End if%> <%If a_cate = "Y" and b_type <> "R" then '//분류%> <%End if%> <%If a_home = "Y" 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 %> <% End if next %> <% If a_upload = "Y" then '//첨부파일 사용일때 %> <% End if %>
<%=replace( tit_name, " | ", "")%>
글쓰기
/> * 한글만 사용하실 수 있습니다.
* 10자 이내의 영문/숫자만 사용하실 수 있습니다.
공개여부 /> />
- -
* @포함한 이메일주소를 입력하세요.
공지여부 /> />
-

: 예)내당동, 수성구
↓ 기본 주소 - 동이름 검색 결과 목록입니다. 목록중 한개를 선택하세요.
<%If a_edit = "Y" then '//에디터가 사용일때 '//$_SESSION["fck_filepath"] = "/userfiles/"; //첨부파일경로 '//$_SESSION["fck_filepath"] = "/data/popup/"; //첨부파일경로 session("fck_filepath") = "/data/board/"& a_tablename & "/" '업로드 경로(동적경로를 위해 세션사용) 'response.write session("fck_filepath") Set oFCKeditor = New FCKeditor oFCKeditor.BasePath = "/fckeditor/" oFCKeditor.value = b_content oFCKeditor.ToolbarSet = "Basic" oFCKeditor.Create "b_content" Else %> <%End if%>
첨부파일 <% file_cnt = 0 for z=1 to a_upload_len b_file_name = eval("b_file" & z) %> <% If b_file_name <> "" then file_cnt = file_cnt + 1 %> <%=b_file_name%> 첨부파일 삭제하기
<% End if next %> <% 'nn_basePath 하위에 Upload 폴더와 nn_uploadPath에 지정될 폴더는 인터넷게스트계정는 또는 Users 계정에 수정/쓰기 권한이 있어야 합니다. nn_basePath = "/content/board/nnupload/" 'nn업로드가 설치된 경로 nn_paramFilter = "." & Replace(a_nofile,",","|.") '"|.jpg|.zip|.txt|.xls" '업로드 허용 파일 nn_paramMaxFileSize = a_nofilesize '업로드 용량(MB) nn_paramMaxFileNumber = a_upload_len - file_cnt '업로드 개수 nn_width = "100%" '가로크기 nn_height = "150px" '세로크기 nn_uploadPath = "/data/board/" & a_tablename & "/" '업로드할 경로 nn_key = Application("nn_key") '키 %> <% If CInt(a_upload_len) > file_cnt then createUpload() End if %>
" >목록
<%If a_home = "Y" then '//주소사용시%>
<%End if%>