<%@ LANGUAGE="VBScript" %> <% response.expires=0 dbname=request("cdb") On Error Resume Next If Not IsEmpty(Request("listmove")) Then Response.Redirect "borabbs.asp?PagingMove=" & request("listmove") & "&cdb=" & dbname elseif Not IsEmpty(Request("formmove")) Then Response.Redirect "borabbsform.asp?PagingMove=" & request("formmove") & "&cdb=" & dbname end if If Not IsEmpty(Request("actionmod.x")) Then set temprs=RunSqlCmd("select count(*) from " & dbname & " where sn=" & trim(request("sn")) & " and depth='" & trim(request("depth")) & "' and passwd='" & request("passwd") & "'") if temprs(0)=0 then set temprs=runsqlcmd("select * from id") if trim(temprs(0))<>trim(request("passwd")) then %>  
 
!비밀번호가 틀리거나 자료가 없습니다. <% response.end end if end if temprs.close set temprs=Nothing Response.Redirect "borabbsform.asp?FormMode=수정&cdb=" & dbname Elseif Not IsEmpty(Request("actionmod1.x")) Then strDataAction = "수정확인" Elseif Not IsEmpty(Request("actiondel.x")) Then strDataAction = "삭제" Elseif Not IsEmpty(Request("actionapl.x")) Then strDataAction = "적용" Elseif Not IsEmpty(Request("actionadd.x")) Then strDataAction = "등록추가" Elseif Not IsEmpty(Request("actionadd1.x")) Then strDataAction = "답장추가" Elseif Not IsEmpty(Request("actionnof")) Then strDataAction = "모든자료" ElseIf Not IsEmpty(Request("DataAction")) Then strDataAction=Request("DataAction") Else Response.Redirect "borabbsform.asp?FormMode=편집&cdb=" & dbname End If Select Case strDataAction Case "Find" Session("borabbsrs_PageSize") = 1 'So we don't do standard page conversion Session("borabbsrs_AbsolutePage") = CLng(Request("Bookmark")) Response.Redirect "borabbsform.asp?cdb=" & dbname Case "모든자료" Session("borabbsselectcon") = "" Session("borabbsfiltercon") = "" session("borabbsrs_recordcount")="" session("borabbsrs_AbsolutePage") = 1 Response.Redirect "borabbs.asp?PagingMove=refresh&cdb=" & dbname Case "적용" If IsEmpty(session("borabbsrs_Recordset")) Then Response.Redirect "borabbs.asp?cdb=" & dbname End If dim selectkey,searchcon searchcon="" selectkey="" if trim(request("subject"))<>"" then searchcon=searchcon+"제목:["+request("subject")+"]. " if selectkey<>"" then selectkey=selectkey & " and " else selectkey=" where " end if selectkey=selectkey & "subject like '%" & trim(request("subject")) & "%'" end if if trim(request("writer"))<>"" then searchcon=searchcon+"등록자:["+request("writer")+"]. " if selectkey<>"" then selectkey=selectkey & " and " else selectkey=" where " end if selectkey=selectkey & "writer like '%" & trim(request("writer")) & "%'" end if if trim(request("email"))<>"" then searchcon=searchcon+"E-mail:["+request("email")+"]. " if selectkey<>"" then selectkey=selectkey & " and " else selectkey=" where " end if selectkey=selectkey & "email like '%" & trim(request("email")) & "%'" end if if trim(request("content"))<>"" then searchcon=searchcon+"내용:["+request("content")+"]를 포함. " if selectkey<>"" then selectkey=selectkey & " and " else selectkey=" where " end if selectkey=selectkey & "content like '%" & trim(request("content")) & "%'" end if If selectkey <> "" Then Session("borabbsselectcon") = "SELECT * FROM " & dbname & selectkey & " order by sn desc,depth" Session("borabbsfiltercon") = "SELECT count(*) FROM " & dbname & selectkey session("borabbsrs_AbsolutePage") = 1 Response.Redirect "borabbs.asp?PagingMove=refresh&cdb=" & dbname End If If Err.Number = 0 Then Response.Redirect "borabbs.asp?cdb=" & dbname Case "등록추가" Set temprs = RunSqlCmd("select max(sn) from " & dbname) if (temprs.eof and temprs.bof) or isnull(temprs(0)) then tempsn=1 else tempsn=cint(temprs(0))+1 end if temprs.close set temprs=Nothing RunSqlCmdOnly("insert into " & dbname & " (sn,depth,subject,writer,email," &_ "passwd,nalja,content,visited,filename) values (" &_ tempsn & "," &_ "'0'," &_ "'" & insertencode(textinsertencode(trim(request("subject")))) & "'," &_ "'" & insertencode(textinsertencode(trim(request("writer")))) & "'," &_ "'" & insertencode(textinsertencode(trim(request("email")))) & "'," &_ "'" & insertencode(textinsertencode(trim(request("passwd")))) & "'," &_ "'" & cstr(year(date)) & "-" & string(2-len(cstr(month(date))),"0") & cstr(month(date)) & "-" & string(2-len(cstr(day(date))),"0") & cstr(day(date)) & "'," &_ "'" & replace(request("content"),"'","''") & "'," &_ "0" & "," &_ "'" & insertencode(textinsertencode(trim(request("filename")))) & "')") If Err.Number = 0 Then if tempcfg(6)="true" then tempstr="등록자 : " & request("writer") & vbcrlf tempstr=tempstr & "email : " & request("email") & vbcrlf tempstr=tempstr & "Table 명 : " & dbname & vbcrlf tempstr=tempstr & "-----------------------------------" & vbcrlf tempstr=tempstr & request("subject") & vbcrlf tempstr=tempstr & "-----------------------------------" & vbcrlf tempstr=tempstr & request("content") set smtp=server.createobject("simplete.smtp") smtp.sendmail "zero.dacom.co.kr", "게시판 관리자", tempcfg(5), "게시판 관리자", tempcfg(5), request("subject"),tempstr, "3", "0" set smtp=Nothing end if session("borabbsrs_recordcount")="" response.redirect "borabbs.asp?PagingMove=refresh&cdb=" &dbname End If Case "답장추가" if request("depth")="0" then tempstr="select depth from " & dbname & " where sn=" & request("sn") templen=1 else tempstr="select depth from " & dbname & " where sn=" & request("sn") & " and depth like '" & request("depth") & "%'" templen=len(request("depth"))+1 end if set temprs=RunSqlCmd(tempstr) tempmax=0 do while not temprs.eof if len(trim(temprs(0)))=templen and cint(trim(temprs(0)))>tempmax then tempmax=cint(trim(temprs(0))) end if temprs.movenext loop if tempmax=0 then if request("depth")="0" then tempdepth="1" else tempdepth=request("depth") & "1" end if else tempdepth=tempmax+1 end if temprs.close set temprs=Nothing RunSqlCmdOnly("insert into " & dbname & " (sn,depth,subject,writer,email," &_ "passwd,nalja,content,visited,filename) values (" &_ request("sn") & "," &_ "'" & tempdepth & "'," &_ "'" & insertencode(textinsertencode(trim(request("subject")))) & "'," &_ "'" & insertencode(textinsertencode(trim(request("writer")))) & "'," &_ "'" & insertencode(textinsertencode(trim(request("email")))) & "'," &_ "'" & insertencode(textinsertencode(trim(request("passwd")))) & "'," &_ "'" & cstr(year(date)) & "-" & string(2-len(cstr(month(date))),"0") & cstr(month(date)) & "-" & string(2-len(cstr(day(date))),"0") & cstr(day(date)) & "'," &_ "'" & replace(request("content"),"'","''") & "'," &_ "0" & "," &_ "'" & insertencode(textinsertencode(trim(request("filename")))) & "')") If Err.Number = 0 Then if tempcfg(7)="true" and request("oldemail")<>"" then tempstr="등록자 : " & request("writer") & vbcrlf tempstr=tempstr & "email : " & request("email") & vbcrlf tempstr=tempstr & "-----------------------------------" & vbcrlf tempstr=tempstr & request("subject") & vbcrlf tempstr=tempstr & "-----------------------------------" & vbcrlf tempstr=tempstr & request("content") set smtp=server.createobject("simplete.smtp") smtp.sendmail "zero.dacom.co.kr", "게시판 관리자", tempcfg(5), "게시판 관리자", request("oldemail"), request("subject"),tempstr, "3", "0" set smtp=Nothing end if session("borabbsrs_recordcount")="" response.redirect "borabbs.asp?PagingMove=refresh&cdb=" & dbname End If Case "수정확인" RunSqlCmdOnly("update " & dbname & " set " &_ "subject='" & insertencode(textinsertencode(trim(request("subject")))) & "'," &_ "writer='" & insertencode(textinsertencode(trim(request("writer")))) & "'," &_ "email='" & insertencode(textinsertencode(trim(request("email")))) & "'," &_ "passwd='" & insertencode(textinsertencode(trim(request("passwd")))) & "'," &_ "content='" & replace(request("content"),"'","''") & "'," &_ "filename='" & insertencode(textinsertencode(trim(request("filename")))) & "' " &_ "where sn=" & trim(request("sn")) & " and depth='" & trim(request("depth")) & "'") If Err.Number = 0 Then if request("oldfile")<>request("filename") then set smtp=server.createobject("simplete.smtp") tempstr=Request.ServerVariables("APPL_PHYSICAL_PATH") if mid(tempstr,len(tempstr),1)<>"\" then tempstr=tempstr & "\" end if smtp.delete tempstr & "upload\" & mid(request("oldfile"),1,instr(request("oldfile"),":")-1) set smtp=Nothing end if response.redirect "borabbs.asp?PagingMove=refresh&cdb=" & dbname End If Case "삭제" set temprs=RunSqlCmd("select count(*) from " & dbname & " where sn=" & trim(request("sn")) & " and depth='" & trim(request("depth")) & "' and passwd='" & request("passwd") & "'") if temprs(0)=0 then set temprs=runsqlcmd("select * from id") if trim(temprs(0))<>trim(request("passwd")) then %>  
 
!비밀번호가 틀리거나 자료가 없습니다. <% response.end end if end if temprs.close set temprs=Nothing RunSqlCmdOnly("delete from " & dbname & " where sn=" & trim(request("sn")) & " and depth='" & trim(request("depth")) & "'") 'if request("filename")<>"" then 'set smtp=server.createobject("simplete.smtp") 'tempstr=Request.ServerVariables("PATH_TRANSLATED") 'tempstr=mid(tempstr,1,instrrev(tempstr,"\",len(tempstr)-1)) 'smtp.delete tempstr & "upload\" & mid(request("filename"),1,instr(request("filename"),":")-1) 'set smtp=Nothing 'end if If Err.Number = 0 Then session("borabbsrs_recordcount")="" response.redirect "borabbs.asp?PagingMove=refresh&cdb=" & dbname End If End Select %> <%If Err Then %>

Message:
<% Select Case strDataAction Case "등록추가" Response.Write("자료를 추가할 수 없습니다.") Case "수정확인" Response.Write("자료를 갱신할 수 없습니다.") Case "삭제" Response.Write("자료를 삭제할 수 없습니다.") End Select %>

Item	Description
Source:	<%= Err.Source %>
Error Number:	<%= Err.Number %>
Description:	<%=err.description%>
	입력한 내용을 그대로 유지한 채로 입력모드로 돌아가려면 브라우저의 Back 버튼을 누르십시요. 같은에러가 반복될경우에는 이영렬에게 메일주세요.

<%else%> <%response.redirect "borabbs.asp?cdb=" & dbname%> <%End If%>