<% log_com = request("log_com") log_id = request("log_id") log_pwd = request("log_pwd") b_com = request("b_com") id_no = request("id_no") pg = request("pg") b_value = request("b_value") search_word = request("search_word") opt = request("opt") dim b_id dim b_name dim b_email dim b_comment dim str Set rs = Server.CreateObject("ADODB.Recordset") if (((b_value < 1) and (b_value > max_board)) or (b_value = "")) then b_value = 1 check_board() htm_head_1() head_title() htm_head_2() log_check() sel_menu() print_title() select case b_write case 0 if (session("id") <> "admin") then response.write "관리자 전용입니다." else if (b_com = "re") then get_text() id_check() end if case 1 if (session("id") = "") then response.write "회원 전용입니다." else if (b_com = "re") then get_text() id_check() end if case 2 if (session("id") = "") then if (b_com = "re") then get_text() print_form1() guest_form() print_form2() else if (b_com = "re") then get_text() id_check() end if end select htm_foot() Set rs = Nothing db.close set db = nothing cn.Close Set cn = Nothing sub id_check() SQL = "select id, name, email from member where id = '" & session("id") & "'" rs.Open SQL, db, 1 if (rs.recordcount) then rs.movefirst b_id = rs("id") b_name = rs("name") b_email = rs("email") print_form1() user_form() print_form2() else response.write "존재하지 않는 ID" end if rs.Close end sub sub get_text() SQL = "select b_comment from " & board_name & " where id_no = " & id_no rs.Open SQL, cn, 1 b_comment = rs("b_comment") str = chr(13)&chr(10)&chr(13)&chr(10) & ">" & replace(b_comment, chr(13)&chr(10), chr(13)&chr(10)&">") rs.Close end sub sub print_form1() %>
> >
<% end sub sub print_form2() %>
E-Mail
제목
내용
&pg=<%=pg%>&opt=<%=opt%>&search_word=<%=search_word%>>
<% end sub sub user_form() %> ID ><%=b_id%>  이름 <%=b_name%>  <% end sub sub guest_form() %> 비밀번호 이름 <% end sub %>