<% '@CODEPAGE="65001" language="vbscript" 'Option Explicit 'session.CodePage = "65001" 'Response.CharSet = "utf-8" 'Response.buffer=true 'Response.Expires = 0 %> <% str = sqlCheck(request("str")) Field = sqlCheck(request("Field")) SMode = sqlCheck(request("SMode")) Set RS = SERVER.CreateObject("ADODB.Recordset") RS.CursorType = 3 SQL = "SELECT Sid,Grp,Seq,lev,company,phone1,homepage,Stime,sel FROM " & NewGetTable '검색이냐 아니냐에 따라 if Str<>"" then SQL = SQL & " WHERE " & Field SQL = SQL & " LIKE '%" & Str & "%'" end if '순서형/응답형에 따라 정렬순서를 다르게 한다 IF SMode = "qa" Then SQL = SQL & " ORDER BY company ASC,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 %> <%=hp_title%>
현재위치 : HOME > PLM Directory > 건축관련 용역업체
 
<% if session("admin") = "administrator" then %> "> <% else %> <% end if %>
<% IF (RS.BOF and RS.EOF) Then Response.Write "" Else RS.AbsolutePage = IPage RCount = RS.pageSize Do while (NOT RS.EOF) and (RCount > 0 ) '이 페이지에서 사용할 필드의 값을 전부 한꺼번에 가져와서 변수에 대입해 둔다. '이렇게 한번에 가져오는 게 좋은 습관이다. Sid=RS("sid") Grp=RS("grp") Seq=RS("seq") Lev=RS("lev") Company=RS("company") phone1=RS("phone1") sel=RS("sel") homepage=RS("homepage") STime=RS("stime") IF Sid=Grp Then '응답글이 아닌 새글이라면 Msg1="" end If '작성된지 24시간이내라면 new!라는 메시지를 준비한다 Sdate=date() '현재 날자 IF datediff("h",Stime,Sdate) < 24 Then Msg2=" " Else Msg2="" End if %> <% RS.MoveNext RCount = RCount -1 Loop End if RS.Close Set RS=nothing %>
번호 업체명 H 용역분야 등록날짜
" Response.Write " " Response.Write "
<%=Msg1%><%=company%><%=Msg2%> <% if (homepage = "") then %> <% else %> <% end if %> <%=sel%> <%=STime%>
<% 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 %>