set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go
--DROP PROCEDURE 이프목록
/*====================================================================
EXEC 이프목록 @컬럼='*', @정렬='등록일 DESC', @테이블='이유저교사', @조건='상태=10 AND 소속지점>10', @A='1', @B='15' ;
====================================================================*/
ALTER PROCEDURE [dbo].[이프목록]
@컬럼 NVARCHAR(200),
@정렬 NVARCHAR(20),
@테이블 NVARCHAR(20),
@조건 NVARCHAR(500),
@A NVARCHAR(20),
@B NVARCHAR(20)
AS
BEGIN
SET NOCOUNT ON
SET TRANSACTION ISOLATION LEVEL READ UNCOMMITTED
DECLARE @SQL NVARCHAR(2000)
SET @SQL = '
SELECT *
FROM (
SELECT ROW_NUMBER() OVER (ORDER BY '+ @정렬 +') AS RowNum
, ' + @컬럼 + '
FROM ' + @테이블 + ' With(NoLock)
WHERE ' + @조건 + ') As Temp
WHERE RowNum BETWEEN ' + @A + ' AND ' + @B
EXECUTE (@SQL)
END
---------------------------------------------------------------------------------------------
Listing.Short = "[등록일] ASC"
Listing.CountSql = "SELECT COUNT(*) FROM [이과목] With(NoLock) WHERE "& Replace(AddHakSearch,"''","'") &" CONVERT(VARCHAR(10),등록일,121) >= '" & sday & "' AND CONVERT(VARCHAR(10),등록일,121) <= '" & eday & "' AND 인계키=(과목키*100) AND 과목상태 <> 10 AND 영업형태=" & state & " " & AddSearch
Listing.Condition = " " & AddHakSearch & " CONVERT(VARCHAR(10),등록일,121) >=''" & sday & "'' AND CONVERT(VARCHAR(10),등록일,121) <= ''" & eday & "'' AND 인계키=(과목키*100) AND [과목상태]<>10 AND 영업형태=" & state & AddSearch
------------------------------------------------------------------------------------------------
<%
dim listing
class ListClass
private xCount
private xLow
private xCurpage
private xTarget
private xColumm
private xShort
private xTable
private xCondition
private xSql
private xDbview
'======================================================================
property Let SetLow(pm) xLow = pm end property
property Let SetCurpage(pm) xCurpage = pm end property
property Get Curpage() Curpage = xCurpage end property
property Let CountSql(pm)
set db = new dbclass
db.sql = pm
set rs = db.execrs()
xCount = rs(0)
set db = nothing
end property
property Let Columm(pm) xColumm = pm end property
property Let Short(pm) xShort = pm end property
property Let Table(pm) xTable = pm end property
property Let Condition(pm) xCondition = pm end property
property Let Sql(pm) xSql = pm end property
property Get Sql() Sql = xSql end property
property Get Target() Target = xTarget end property
property Get ListCount() ListCount = xCount end property
property Let Dbview(pm) xDbview = pm end property
'======================================================================
public function Execrs()
dim xrs
set db = new dbclass
if len(xsql) > 10 then
db.sql = "SELECT * FROM (" & xsql & ") As Temp WHERE RowNum BETWEEN " &( ( xCurpage - 1 ) * xLow ) + 1& " AND " &( xCurpage * xLow )
else
db.sql = "EXEC 이프목록 @컬럼=?, @정렬=?, @테이블=?, @조건='" &xCondition& "', @A=?, @B=? ;"
db.param = xColumm
db.param = xShort
db.param = xTable
db.param = ( ( xCurpage - 1 ) * xLow ) + 1
db.param = ( xCurpage * xLow )
end if
if xDbview then
db.view
end if
set xrs = db.execrs()
set db = nothing
Set Execrs = xrs
end function
public function Nobr(w,c)
Nobr = "<nobr style='display:block;width:" &w& ";overflow:hidden'>" &c& "</nobr>"
end function
public sub Paging(param)
dim htm
dim pagecount
dim blockpage
dim i
htm = ""
if xCount > 0 then
pagecount = int(xCount / xLow) + 1
if (xCount mod xLow) = 0 then
pagecount = pagecount - 1
end if
blockpage = int((xCurpage - 1) / 10) * 10 + 1
if blockpage = 1 then
htm = htm & "<img src='/a_home/images/btn_ten_ap.jpg' border=0 align=absbottom>"
else
htm = htm & "<a href=" & xTarget & "?curpage=" & (xCurpage - 10) & param & "><img src='/a_home/images/btn_ten_ap.jpg' border=0 align=absbottom></a> "
end if
i = 1
while ((i <= 10) and (blockpage <= pagecount))
if int(blockpage) = int(xCurpage) then
htm = htm & " <font color=red><b>[" & blockpage & "]</b></font> "
else
htm = htm & " <a href=" & xTarget & "?curpage=" & blockpage & param & ">[" & blockpage & "]</a> "
end if
i = i + 1
blockpage = blockpage + 1
wend
if blockpage > pagecount then
htm = htm & "<img src='/a_home/images/btn_ten_di.jpg' border=0 align=absbottom>"
else
htm = htm & "<a href=" & xTarget & "?curpage=" & blockpage & param & "><img src='/a_home/images/btn_ten_di.jpg' border=0 align=absbottom></a>"
end if
else
htm = htm & "<img src='/a_home/images/btn_ten_ap.jpg' border=0 align=absbottom> [0] <img src='/a_home/images/btn_ten_di.jpg' border=0 align=absbottom>"
end if
Response.Write(htm)
end sub
sub class_initialize()
dim ps, pi
xCount = 0
xLow = 15
xCurpage = 1
ps = Request.ServerVariables("SCRIPT_NAME")
pi = instrRev(ps,"/",len(ps))
xTarget = Right(ps, len(ps) - pi)
ps = fn.dic("curpage")
if ps = "" then
xCurpage = 1
else
xCurpage = ps
end if
xDbview = false
end sub
sub class_terminate()
end sub
end class
%>
