<%
'// DB 공통 변수 선언
dim dbObj, bData, arrRs '// DB Connection, Data 존재여부, RecordSet
dim sql, sqlSelect, sqlWhere, sqlOrderby '// SQL문 조합 관련
'// 페이징 처리 변수
dim page, totalRecord, totalPage '// paging 관련
'// 검색 처리 변수
dim searchField, searchValue
'// 파라미터 처리 변수
dim parameter
'// 기타 변수 선언
dim i, k
'// 상수 선언
const PAGE_SIZE = 10
const TABLE_NAME = " tbl_CompanyInfo "
const LIST_FILENAME = "sub0301.asp"
const READ_FILENAME = "sub0301_view.asp"
'const WRITE_FILENAME = "noticeWrite.asp"
'const DELETE_FILENAME = "noticeDeleteOk.asp"
'// 기본적인 page parameter를 받아옴
page = trim(request("page"))
searchField = trim(request("searchField"))
searchValue = trim(request("searchValue"))
'// page가 지정되지 않은 경우
if isNull2(page) then
page = 1
end if
'// 파라미터 설정
parameter = "searchField=" & searchField & "&searchValue=" & searchValue
bSearch = false '// 검색 여부
'// 검색 부분--------------------------------------
sqlWhere = " WHERE cFlag = 'T' "
'// 분류 선택
if not isNull2(searchField) Then
sqlWhere = sqlWhere & " AND "
If searchField = "m" Then
sqlWhere = sqlWhere & " mType = 'T' "
ElseIf searchField = "h" Then
sqlWhere = sqlWhere & " hType = 'T' "
ElseIf searchField = "e" then
sqlWhere = sqlWhere & " eType = 'T' "
Else
End if
End If
'// 업체명 입력한 경우
If Not (isNull2(searchValue)) then
sqlWhere = sqlWhere & " AND "
sqlWhere = sqlWhere & " cName LIKE '%" & searchValue & "%' "
End if
'// 레코드셋 카운트 계산
sql = " SELECT COUNT(*) FROM " & TABLE_NAME & sqlWhere
Set adoRs = Server.CreateObject("ADODB.Recordset")
adoRs.open sql, dbconn
'// totalRecord : 전체 레코드카운트, totalPage : 전체 페이지 카운트
totalRecord = adoRs(0)
totalPage = int((totalRecord - 1) / PAGE_SIZE) + 1
adoRs.close
'// select field 및 order by 구문 정의
sqlSelect = " seq, mType, hType, eType, cName, addr, tel, handPhone, email, homePage, exhibits, cFlag "
'// 정렬 조건 생성
sqlOrderby = " ORDER BY seq DESC "
'// 해당 페이지의 데이터를 가져옴, 쿼리 생성
sql = " SELECT TOP " & PAGE_SIZE & sqlSelect & " FROM " & TABLE_NAME & sqlWhere
if (int(page) > 1) then
if (isNull2(sqlWhere)) then
sql = sql & " WHERE "
else
sql = sql & " AND "
end if
sql = sql & " seq NOT IN ( "
sql = sql & " SELECT TOP " & ((page - 1) * PAGE_SIZE) & " seq FROM " & TABLE_NAME & sqlWhere & sqlOrderby & ")"
end if
sql = sql & sqlOrderby
adoRs.open sql, dbconn
%>
▒▒Silver topia 2007▒▒
