<% response.cookies("visit")="whitehome01" %> <% Set RS = SERVER.CreateObject("ADODB.Recordset") RS.CursorType = 3 SQL = "SELECT Sid,Grp,Seq,lev,Subject,Name,Stime,Visit,Notice,secret FROM " & STable '검색이냐 아니냐에 따라 if Str<>"" then SQL = SQL & " WHERE " & Field SQL = SQL & " LIKE '%" & Str & "%'" end if '순서형/응답형에 따라 정렬순서를 다르게 한다 IF SMode = "qa" Then SQL = SQL & " ORDER BY grp DESC,seq" Else SQL = SQL & " ORDER BY sid DESC" END IF RS.Open SQL, ConnString IF (RS.BOF and RS.EOF) Then TotRecord = 0 TotPage = 0 Else TotRecord = RS.RecordCount Rs.pagesize=Psize TotPage = RS.PageCount End if %>
Total:<%=TotRecord%>  <%=IPage%>/<%=TotPage%> Pages
<%if Str<>"" then%>
검색하신 내용입니다.
<%else%> <%end if %> <% IF (RS.BOF and RS.EOF) Then Response.Write "" Response.Write "" Else RS.AbsolutePage = IPage RCount = RS.pageSize imsiNO=totrecord-(ipage-1)*(Rcount) Do while (NOT RS.EOF) and (RCount > 0 ) Sid=RS("sid") Grp=RS("grp") Seq=RS("seq") Lev=RS("lev") Subject=RS("subject") Name=RS("name") STime=RS("stime") Visit=RS("visit") Notice=RS("notice") secret=rs("secret") IF Sid=Grp Then Msg1="" else Msg1="[Re]" end If Sdate=date() IF datediff("h",Stime,Sdate) < 24 Then Msg2="" Else Msg2="" End if %> <% If notice=("notice") Then %> <% Else %> <% End If %> <% RS.MoveNext RCount = RCount -1 imsiNO=imsiNO-1 Loop End if RS.Close Set RS=nothing %>
" Response.Write "게시물이 하나도 없습니다." Response.Write "
<%else%> <%=imsiNO%> <%end if%>
<%=STime%>
   <% IF SMode = "qa" Then For I=1 To Lev Response.Write("    ") next End if %> <%=Msg1%><%=left(rs("Subject"),20)%> <%=Msg2%>
<%=Name%>
<%=Visit%>
 
  <%else%> <%end if%>
<%else%> <%end if%>
 
<% Gsize = 10 PreGNum = (IPage - 1) \ GSize EndPNum = PreGNum * GSize Tar = Var2 & "&Page=" & EndPNum TAr = Tar & "&psize=" & Psize Tar = Tar & "&Field=" & Field Tar = Tar & "&Str=" & Str IF ( EndPNum > 0 ) Then %> <% End IF LCount = GSize intI = EndPNum + 1 Do While (LCount > 0) and (intI <= TotPage) if intI=Ipage then SColor="tomato" else SColor="" end if Tar = Var2 & "&page=" & intI TAr = Tar & "&psize=" & Psize TAr = TAr & "&field=" & Field TAr = TAr & "&str=" & Str %> <%=intI%> ㆍ <% intI = intI + 1 LCount = LCount - 1 Loop intI = EndPNum + (GSize + 1) TAr = Var2 & "&page=" & intI TAr = Tar & "&psize=" & Psize TAr = TAr & "&field=" & Field TAr = TAr & "&str=" & Str If (intI <= TotPage ) Then %> <% End if %>