<%@ Language=VBScript %> <% OPTION EXPLICIT ' =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- Dim Rs, Comm, Comm_1 Dim title_image Dim bid, idx, b_name, write_authority, page, st, so, stext, title, pwd Dim prev_title, prev_idx, next_title, next_idx ' -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= so = Request("so") st = Request("st") stext = "&so=" & so & "&st=" & st page = Request("page") bid = Request("bid") If bid = "" Then bid = 1 End if SELECT CASE bid CASE 1 title_image = "news.gif" CASE 2 title_image = "cus_title.gif" END SELECT idx = Request("idx") Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.open "SELECT * FROM board_config WHERE b_id = " & bid, Application("ConnectionString") If Rs.Eof or Rs.Bof Then %> <% Response.End Else write_authority = Rs("write_authority") End if Rs.Close %> (주)서울정밀 ::::::::::::::::::::::::::::::::::





<% Set Comm = Server.CreateObject("ADODB.Command") Comm.ActiveConnection = Application("ConnectionString") Comm.CommandType = adCmdText Comm.CommandText = "SELECT * FROM board WHERE board_idx = ?" Comm.Parameters.Append Comm.CreateParameter("@idx", adInteger, adParamInput, 8, idx) Rs.Open Comm pwd = Request("txt_pwd") If not(Rs.eof or Rs.bof) Then If Rs("sec") AND Session("member") <> 99 AND Rs("pwd") <> pwd Then %>
" method="post">
비밀번호를 입력 후 내용을 보실 수 있습니다
비밀번호
  
<% Else Comm.CommandText = "UPDATE board SET v_count = v_count + 1 WHERE board_idx = ?" Comm.Execute %>
<%=FormatDateTime(Rs("u_date"), 2)%>
<%=Rs("writer")%>님의 글입니다. 조회수 : <%=Rs("v_count") + 1%>
제 목 <%=Rs("title")%>
첨부화일 <% If Rs("file1") <> "" Then%> /<%=Rs("file1")%>" target="_blank"> <%=Rs("file1")%> (<%=Rs("file_size1")%> Kb) <% End if%> <% If Rs("file2") <> "" Then%> <% If Rs("file1") <> "" Then%>   |   <% End if%> /<%=Rs("file2")%>" target="_blank"> <%=Rs("file2")%> (<%=Rs("file_size2")%> Kb) <% End if%>
이메일 "> <%=Rs("email")%>
 본 문 <% If Rs("is_html") Then%> <%=Replace(Rs("content"), chr(13), "
")%> <% Else%> <%=Replace(Replace(Rs("content"), "<", "<"), chr(13), "
")%> <% End if%>
   <% If Session("member") >= write_authority Then %> &page=<%=page%>&bid=<%=bid%>">   &page=<%=page%>&bid=<%=bid%>">   &page=<%=page%>&bid=<%=bid%>"> <% End if %>
<% Rs.close %>
간단한 메모 남기기
이름 비밀번호 메모

<% Comm.CommandText = "SELECT * FROM comments WHERE board_idx = ?" Rs.open Comm If not(Rs.eof or Rs.bof) Then Do until Rs.eof %> " action="comment_del.asp?page=<%=page%>&bid=<%=bid%>&board_idx=<%=idx%>" method="post"> "> <% Rs.MoveNext loop %>
<%=Rs("cmt_writer")%> : <%=Rs("comments")%> 비밀번호

<% End if Rs.close Comm.CommandType = adCmdStoredProc Comm.CommandText = "sp_nextprev_board" Comm.Parameters.Append Comm.CreateParameter("@bid", adInteger, adParamInput, 4, bid) Comm.Parameters.Append Comm.CreateParameter("@next_idx", adInteger, adParamoutput, 4) Comm.Parameters.Append Comm.CreateParameter("@next_title", adVarChar, adParamoutput, 128) Comm.Parameters.Append Comm.CreateParameter("@prev_idx", adInteger, adParamoutput, 4) Comm.Parameters.Append Comm.CreateParameter("@prev_title", adVarChar, adParamoutput, 128) Comm.Execute %>
Prev : <% If IsNull(Comm("@prev_idx").value) Then%> <%=Comm("@prev_title").value%> <% Else%> <%=stext%>"><%=Comm("@prev_title").value%> <% End if%>
Next : <% If IsNull(Comm("@next_idx").value) Then%> <%=Comm("@next_title").value%> <% Else%> <%=stext%>"><%=Comm("@next_title").value%> <% End if%>
<% End if End if %>