<%@ LANGUAGE="VBScript" %> <% response.expires=0 On Error Resume Next fHideNavBar = False fEmptyRecordset = False fFirstPass = True fNeedRecordset = False tPageSize = 5 tPagingMove = "" tRecordsProcessed = 0 tPrevAbsolutePage = 0 intCurPos = 0 intNewPos = 0 fMoveAbsolute = False if not isempty(request("db")) then dbname=request("db") fNeedRecordset = True elseif not isempty(request("cdb")) then dbname=request("cdb") else %> Bora Guestbook
 
 
 
 
 
사용법은 boraguest.asp?db=db_name 입니다. <% response.end end if dim tempcfg() if fNeedRecordset or isempty(session("cfgdata")) then set temprs=runsqlcmd("select * from tablecfg where name='" & dbname & "'") getcfg(temprs("cfg")) temprs.close set temprs=Nothing else getcfg(session("cfgdata")) end if tPageSize = tempcfg(18) if tempcfg(27)="true" and request.cookies("boraadmin")<>"yes" then response.redirect "./boraguestform.asp?cdb=" & dbname end if %> 방명록 "" then response.write " bgcolor=" & tempcfg(16)%><%if tempcfg(17)<>"" then response.write " background='./images/" & tempcfg(17) & "'"%><%if tempcfg(7)<>"" then response.write " link=" & tempcfg(7)%><%if tempcfg(8)<>"" then response.write " vlink=" & tempcfg(8)%>>
<%if tempcfg(1)<>"" then%> <%end if%>
color=brown><%=tempcfg(1)%>
>
WIDTH=100% > "" then response.write "bgcolor=" & tempcfg(11)%> VALIGN=TOP> <% If Not IsEmpty(Request("PagingMove")) Then tPagingMove = Trim(Request("PagingMove")) End If If IsEmpty(session("boraguestrs_Recordset")) or tPagingMove="refresh" Then fNeedRecordset = True Else If session("boraguestrs_Recordset") Is Nothing Then fNeedRecordset = True Else Set boraguestrs = session("boraguestrs_Recordset") End If End If If fNeedRecordset Then session("boraguestrs_recordcount")="" Session("boraguestrs_PageSize") = tPageSize Session("boraguestrs_AbsolutePage") = 1 cmdText = "SELECT * FROM " & dbname & " order by sn desc" Set boraguestrs = RunSqlCmd(cmdText) End If If boraguestrs.BOF And boraguestrs.EOF Then fEmptyRecordset = True If Err Then fEmptyRecordset = True If fNeedRecordset Then Set session("boraguestrs_Recordset") = boraguestrs End If boraguestrs.PageSize = tpagesize If IsEmpty(session("boraguestrs_PageSize")) Then session("boraguestrs_PageSize") = tPageSize If IsEmpty(session("boraguestrs_AbsolutePage")) Then session("boraguestrs_AbsolutePage") = 1 If session("boraguestrs_PageSize") <> tPageSize Then tCurRec = ((session("boraguestrs_AbsolutePage") - 1) * session("boraguestrs_PageSize")) + 1 tNewPage = Int(tCurRec / tPageSize) If tCurRec Mod tPageSize <> 0 Then tNewPage = tNewPage + 1 End If If tNewPage = 0 Then tNewPage = 1 session("boraguestrs_PageSize") = tPageSize session("boraguestrs_AbsolutePage") = tNewPage End If If fEmptyRecordset Then fHideNavBar = True Else tPrevAbsolutePage = session("boraguestrs_AbsolutePage") Select Case tPagingMove Case "" fMoveAbsolute = True Case "refresh" boraguestrs.Requery fMoveAbsolute = True Case "<<" session("boraguestrs_AbsolutePage") = 1 Case "<" If session("boraguestrs_AbsolutePage") > 1 Then session("boraguestrs_AbsolutePage") = session("boraguestrs_AbsolutePage") - 1 End If Case ">" If Not boraguestrs.EOF Then session("boraguestrs_AbsolutePage") = session("boraguestrs_AbsolutePage") + 1 End If Case ">>" session("boraguestrs_AbsolutePage") = boraguestrs.PageCount - (boraguestrs.PageCount mod tpagesize) + 1 End Select Do if Session("boraguestrs_AbsolutePage")<=0 then exit do end if boraguestrs.AbsolutePage = session("boraguestrs_AbsolutePage") If Not boraguestrs.EOF Then Exit Do session("boraguestrs_AbsolutePage") = session("boraguestrs_AbsolutePage") - 1 Loop End If If not fEmptyRecordset Then do If cint(tRecordsProcessed)=cint(tPageSize) Then Exit Do If Not fFirstPass Then boraguestrs.MoveNext Else fFirstPass = False End If If boraguestrs.EOF Then Exit Do tRecordsProcessed = tRecordsProcessed + 1 %><% %><% %><% %><% %><% %><% if trim(boraguestrs("email"))="" then %><% else %><% end if %><% %><% %><% %><% %><% %><% %><% %><% Loop end if %>
환경설정
"" then response.write "bgcolor=" & tempcfg(13)%>>&cdb=<%=dbname%>">삭제"" then response.write "bgcolor=" & tempcfg(15)%>> color="<%=tempcfg(12)%>"><%=trim(boraguestrs("nalja"))%>
"" then response.write "bgcolor=" & tempcfg(13)%>> color=<%=tempcfg(12)%>>  <%if tempcfg(30)="korean" then response.write "이름" else response.write "Name" end if%>  "" then response.write "bgcolor=" & tempcfg(15)%>> color="<%=tempcfg(14)%>"><%=trim(boraguestrs("writer"))%>"" then response.write "bgcolor=" & tempcfg(15)%>> color="<%=tempcfg(14)%>">"><%=trim(boraguestrs("writer"))%>
"" then response.write "bgcolor=" & tempcfg(13)%>> color=<%=tempcfg(12)%>><%if tempcfg(30)="korean" then response.write "내용" else response.write "Comment" end if%>"" then response.write "bgcolor=" & tempcfg(15)%>> color="<%=tempcfg(14)%>"><%=prnencode(trim(boraguestrs("comment")),1000)%>

<%if not fHideNavBar then%> <%end if%> 화면갱신 등록

> <% If not fHideNavBar Then if isempty(session("boraguestrs_recordcount")) or session("boraguestrs_recordcount")="" then Set temprs = RunSqlCmd("SELECT count(*) FROM " & dbname) session("boraguestrs_recordcount")=temprs(0) temprs.close set temprs=nothing end if dim temprecordcount temprecordcount=int(session("boraguestrs_recordcount") / tPageSize) if session("boraguestrs_recordcount") Mod tPageSize <> 0 Then temprecordcount=temprecordcount+1 end if Response.Write "Page: " & session("boraguestrs_AbsolutePage") & "/" & temprecordcount & "" End If %>
<% If fNeedRecordset Then Set session("boraguestrs_Recordset") = boraguestrs End If if tempcfg(9)<>"" then response.write tempcfg(9) end if %>
<% If fEmptyRecordset Then Response.Write "

자료가 없습니다.

" End If %>