aschool.net 자료실

<%@ LANGUAGE="VBScript" %> <% response.expires=0 on error resume next fHideNavBar = False fEmptyRecordset = False fFirstPass = True fNeedRecordset = False tPagingMove = "" tRecordsProcessed = 0 tPrevAbsolutePage = 0 intCurPos = 0 intNewPos = 0 fMoveAbsolute = False dbname="" if not isempty(request("db")) then dbname=request("db") session("borabbsselectcon")="" session("borabbsfiltercon")="" fNeedRecordset = True elseif not isempty(request("cdb")) then dbname=request("cdb") else %> aschool.net 자료실

사용법은 borabbs.asp?db=db_name 입니다. <% response.end end if tPageSize = 10 %> aschool.net 자료실

자료실관리

<% If Not IsEmpty(Request("PagingMove")) Then tPagingMove = Trim(Request("PagingMove")) End If If IsEmpty(Session("borabbsrs_Recordset")) or tPagingMove="refresh" 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 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 "refresh" borabbsrs.Requery 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 Do If fEmptyRecordset Then Exit Do If cint(tRecordsProcessed) = cint(tPageSize) Then Exit Do If Not fFirstPass Then borabbsrs.MoveNext Else fFirstPass = False End If If borabbsrs.EOF Then Exit Do tRecordsProcessed = tRecordsProcessed + 1 %><% If tPageSize > 0 Then tCurRec = ((Session("borabbsrs_AbsolutePage") - 1) * tPageSize) + tRecordsProcessed Else tRecordsProcessed = tRecordsProcessed + 1 tCurRec = tRecordsProcessed End If %> <% nalja=trim(borabbsrs("nalja")) 'naljayear=left(nalja,2) 'if naljayear <=49 then 'n_year="20"&naljayear 'elseif naljayear >49 then 'n_year="19"&naljayear 'end if 'regdate=n_year&mid(nalja,3,6) regdate=nalja %> <%Loop%>

번호		제목	성명	등록일	조회
<%=tCurRec%>	<%if trim(borabbsrs("filename"))<>"" then response.write "" else response.write " " end if%>	<% if trim(borabbsrs("depth"))<>"0" then for i=1 to len(trim(borabbsrs("depth"))) %> <% next end if %> <%=trim(borabbsrs("subject"))%>	<%if trim(borabbsrs("email"))<>"" then%> "><%=trim(borabbsrs("writer"))%> <%else%> <%=trim(borabbsrs("writer"))%> <%end if%>	<%=regdate%>	<%=trim(borabbsrs("visited"))%>

<%if not fHideNavBar then%>

<%end if%>

<% If session("borabbsselectcon") <> "" Then %>

<% end if %>

<% 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 dim temprecordcount temprecordcount=int(session("borabbsrs_recordcount") / tPageSize) if session("borabbsrs_recordcount") Mod tPageSize <> 0 Then temprecordcount=temprecordcount+1 end if Response.Write "Page: " & session("borabbsrs_AbsolutePage") & "/" & temprecordcount & "" End If %>

<% If fEmptyRecordset Then Response.Write "

자료가 없습니다.

" End If %>

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