<%@ LANGUAGE="VBSCRIPT" %>
<%
user_id = Trim(Request("USER_ID"))
searchtext = Request("searchtext")
checkbox = Request("checkbox")
checkboxcount = Request("checkbox").count
OpenDatabase
Set Rs = Server.CreateObject("Adodb.RecordSet")
if searchtext = "" or isnull(searchtext) then
SQL = "SELECT sno,name,password,email,title,filename,filesize,fileyn,mstno,parno,sort,step,credate,readcnt "
SQL = SQL& "FROM tb_pds ORDER BY mstno DESC,sort ASC"
'mstno DESC,sort ASC"
else
check = split(checkbox,",")
if checkboxcount = 1 then
query = check(0) & " like '%" & searchtext & "%'"
elseif checkboxcount = 2 then
query = check(0) & " like '%" & searchtext & "%' or " & check(1) & " like '%" & searchtext & "%'"
else
query = check(0) & " like '%" & searchtext & "%' or " & check(1) & " like '%" & searchtext & "%' or " & check(2) & " like '%" & searchtext & "%'"
end if
SQL = "select sno,name,password,email,title,filename,filesize,fileyn,mstno,parno,sort,step,credate,readcnt"
SQL = SQL & " FROM tb_pds where " & query
SQL = SQL & " ORDER BY mstno DESC,sort ASC"
end if
RS.PageSize = 9
Rs.Open SQL,DBCon,1
' 페이지 나누기
nLast = RS.PageCount
totrecord = Rs.recordcount
If Request("Page")="" then
nPage=1
Else
nPage = Cint(Request("Page"))
End If
If nPage <= nLast or totrecord > 0 Then
RS.AbsolutePage = nPage
End If
if right(cstr(totrecord),1) <> "0" or totrecord = 0 then
totpage = cint(totpage+1)
end if
CurPage =npage - 1
n=totrecord - CurPage * 15 'virc num making 레코드 카운트 - 페이지 * 페이지사이즈
' 페이징 끝
%>
Green Excellence!!! Welcome to GRENEX
1 | 2 
