<% Dim mode, tn, b_No, page, types, searchword, keyword Dim subject, writer, member_no, email, home, coding, Content Dim reds_writer, reds_email, reds_home Dim reds_member_no, hide_write_1, hide_write_2, ckeck_js_value, write_topimg Dim refer_page mode = ClearVar("mode") tn = ClearVar("tn") b_No = ClearVar("b_No") page = ClearVar("page") searchword = ClearVar("searchword") keyword = ClearVar("keyword") types = ClearVar("types") IF types = "" Then types = 0 Select Case mode Case "1" Case "3" Set RS = Db.Execute("Exec bbs_select_view '"& tn &"',"& b_no &" ") subject = "[re]" & RS("subject") Content = ">" & RS("Content") Content = Replace(content,chr(10),">") RS.Close Set RS = Nothing Case "2" '================================================== ' 수정시 비밀번호 체크 '================================================== secret_pass = check_string(Request("secret_pass")) SQL = "Select pwd From "& tn &" Where No="& b_No &"" Set RS = DB.Execute (SQL) IF Not RS.Eof Then chk_pass = RS("pwd") End IF RS.Close IF chk_pass <> secret_pass Then ErrorPage(11) End IF Set RS = Db.Execute("Exec bbs_select_view '"& tn &"',"& b_no &" ") subject = RS("subject") writer = RS("writer") member_no = RS("member_no") email = RS("email") home = RS("home") coding = RS("coding") Content = RS("Content") RS.Close Set RS = Nothing IF coding = "1" or coding = "2" Then coding="checked" reds_writer = writer reds_email = email reds_home = home End Select subject = ConvertToSQL(subject) IF reds_member_no <> "" Then hide_write_1 = hidden_1 hide_write_2 = hidden_2 ckeck_js_value = "0" Else hide_write_1 = "" hide_write_2 = "" ckeck_js_value = "1" End IF Select Case mode Case "0","1" write_topimg = "bbs_image/t_new.gif" Case "2" write_topimg = "bbs_image/t_modify.gif" Case "3" write_topimg = "bbs_image/t_reply.gif" Case Else write_topimg = "bbs_image/t_new.gif" End Select %>
<%=bbs_sub_title_image%>
 
<% IF tn = "bbs_praise" Then %> <% End IF %>
작성자 비밀번호
이메일
제 목
만족도
  > HTML사용    ▲ 줄이기 ▼ 늘리기    
내 용