Bora BBS

관리자 > 취업가이드관리 > 취업가이드

<% If Not IsEmpty(Request("PagingMove")) Then tPagingMove = Trim(Request("PagingMove")) End If If IsEmpty(Session("borabbsrs_Recordset")) Then fNeedRecordset = True Else If Session("borabbsrs_Recordset") Is Nothing Then fNeedRecordset = True Else Set borabbsrs = Session("borabbsrs_Recordset") End If End If If fNeedRecordset Then session("borabbsrs_recordcount")="" Session("borabbsrs_PageSize") = tPageSize Session("borabbsrs_AbsolutePage") = 1 if isempty(session("borabbsselectcon")) or session("borabbsselectcon") ="" then cmdText = "SELECT * FROM " & dbname & " order by sn desc,depth" else cmdText = session("borabbsselectcon") end if Set borabbsrs = RunSqlCmd(cmdText) End If On Error Resume Next If borabbsrs.BOF And borabbsrs.EOF Then fEmptyRecordset = True If Err Then fEmptyRecordset = True If fNeedRecordset Then Set Session("borabbsrs_Recordset") = borabbsrs End If borabbsrs.PageSize = tPageSize If IsEmpty(Session("borabbsrs_PageSize")) Then Session("borabbsrs_PageSize") = tPageSize If IsEmpty(Session("borabbsrs_AbsolutePage")) Then Session("borabbsrs_AbsolutePage") = 1 If Session("borabbsrs_PageSize") <> tPageSize Then tCurRec = ((Session("borabbsrs_AbsolutePage") - 1) * Session("borabbsrs_PageSize")) + 1 tNewPage = Int(tCurRec / tPageSize) If tCurRec Mod tPageSize <> 0 Then tNewPage = tNewPage + 1 End If If tNewPage = 0 Then tNewPage = 1 Session("borabbsrs_PageSize") = tPageSize Session("borabbsrs_AbsolutePage") = tNewPage End If If fEmptyRecordset Then fHideNavBar = True Else tPrevAbsolutePage = Session("borabbsrs_AbsolutePage") Select Case tPagingMove Case "" fMoveAbsolute = True Case "<<" Session("borabbsrs_AbsolutePage") = 1 Case "<" If Session("borabbsrs_AbsolutePage") > 1 Then Session("borabbsrs_AbsolutePage") = Session("borabbsrs_AbsolutePage") - 1 End If Case ">" If Not borabbsrs.EOF Then Session("borabbsrs_AbsolutePage") = Session("borabbsrs_AbsolutePage") + 1 End If Case ">>" Session("borabbsrs_AbsolutePage") = borabbsrs.PageCount End Select Do if Session("borabbsrs_AbsolutePage")<=0 then exit do end if borabbsrs.AbsolutePage = Session("borabbsrs_AbsolutePage") If Not borabbsrs.EOF Then Exit Do Session("borabbsrs_AbsolutePage") = Session("borabbsrs_AbsolutePage") - 1 Loop End If fHideNavBar = True %>

<% If (not fEmptyRecordset) and strFormMode = "편집" Then RunSqlCmdOnly("update " & dbname & " set visited=visited+1 where sn=" & trim(borabbsrs("sn")) & " and depth='" & trim(borabbsrs("depth")) & "'")%> "> "> ">

작성자: <%if trim(borabbsrs("email"))<>"" then%> "><%=trim(borabbsrs("writer"))%> <%else%> <%=trim(borabbsrs("writer"))%> <%end if%> 등록일: <%=nullprn(trim(borabbsrs("nalja")))%>	조회: <%=nullprn(trim(borabbsrs("visited")))%>
<%=nullprn(trim(borabbsrs("subject")))%>
<%=prnencode(nullprn(trim(borabbsrs("content"))),1000)%> <%if trim(borabbsrs("filename"))<>"" then%> 첨부화일: "><%=mid(trim(borabbsrs("filename")),1,instr(trim(borabbsrs("filename")),":")-1) & "(" & mid(trim(borabbsrs("filename")),instr(trim(borabbsrs("filename")),":")+1) & " bytes)"%> <%end if%> 비밀번호 : <%=borabbsrs("passwd")%>

<%fHideNavBar = False%> <%elseIf strFormMode = "등록" Then%>

등록자	" size=20 >
E-mail	" size=20 >
패스워드
제목

첨부파일

<%elseIf strFormMode = "답장" Then%> "> ">

등록자	" size=20>
E-mail	" size=20>
패스워드
제목	" size=40 maxlength=100>
<%=replyencode(trim(borabbsrs("content")))%>
첨부화일

<%elseIf strFormMode = "찾기" Then%>

등록자
E-mail
제목

<%elseif strFormMode = "수정" then%> "> "> "> <%if trim(borabbsrs("filename"))="" then%> <%else%> <%end if%>

등록자	" size=20>
E-mail	" size=20>
패스워드	" size=10 maxlength=10>
제목	" size=40 maxlength=100>
<%=trim(borabbsrs("content"))%>
첨부화일

<%End If%>

> <%If (Not fHideNavBar) Then%>

<%end if%> <%Select Case strFormMode%> <%Case "편집"%> <%if not fHideNavBar then%>

<%end if%> <% Case "찾기" %>

<% Case "등록" %> <%if request("loc")="form" then%>

<%else%>

<%end if%> <% Case "답장" %>

<% Case "수정" %>

<% End Select %>

<% If not fHideNavBar Then if isempty(session("borabbsrs_recordcount")) or session("borabbsrs_recordcount")="" then if not (isempty(session("borabbsfiltercon")) or session("borabbsfiltercon")="") then cmdText=session("borabbsfiltercon") else cmdText = "SELECT count(*) FROM " & dbname end if Set temprs = RunSqlCmd(cmdtext) session("borabbsrs_recordcount")=temprs(0) temprs.close set temprs=Nothing end if Response.Write "Record: " & session("borabbsrs_AbsolutePage") & "/" & session("borabbsrs_recordcount") & "" else %> <% End If %>

<% if tempcfg(10)<>"" then response.write tempcfg(10) end if %>

<% If strFormMode = "편집" And fEmptyRecordset Then Response.Write "

자료가 없습니다.

" End If If fNeedRecordset Then Set session("borabbsrs_Recordset") = borabbsrs End If %>