最新下载
热门教程
- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
asp分页函数
时间:2022-07-02 22:48:14 编辑:袖梨 来源:一聚教程网
自己的写的分页函数,大家看看
//制造sql部分
Function makesql(keyword,page,sidk,bigleibiek)
//keyword搜索,page页数,sidk小类,bigleibiek大类
dim keywordlist,i,sql
if keyword<>"" then
keywordlist=split(keyword)
for i=0 to ubound(keywordlist)
keywordlist(i)=trim(keywordlist(i))
sql=sql&" (namek like '%"&keywordlist(i)&"%' or dizik like '%"&keywordlist(i)&"%' or tesek like '%"&keywordlist(i)&"%') and"
next
end if
if (page="" or page<1) then page=1
if sidk<>"" then sql=sql&" leibiek="&sidk&" and"
if page=1 then
sql="select top 8 idk,pick,namek,dizik,tesek,dianhuak,dianjik,pinlunk from shop where"&sql&" bigleibiek="&bigleibiek&" order by idk desc"
else
sql="select top 8 idk,pick,namek,dizik,tesek,dianhuak,dianjik,pinlunk from shop where idk <(select min(idk) from( select top "&8*(page-1)&" idk from shop where"&sql&" bigleibiek="&bigleibiek&" order by idk desc)) and"&sql&" bigleibiek="&bigleibiek&" order by idk desc"
end if
makesql=sql
End Function
//在中间得到记录集和记录集个数,关闭rs
//
//制造上下页部分
//sidk小类,keyword搜索,page当前页数,rscount符合条件的记录数
sub pages(sidk,keyword,page,rscount)
dim pages_sort,jj,pages_keyword,kk,pages_page1,pages_page2
if trim(sidk)<>"" then
pages_sort="sort="&sidk
jj="&"
end if
if trim(keyword)<>"" then
pages_keyword=jj&"keyword="&keyword
kk="&"
end if
kk=left(jj&kk,1)
if trim(page)="" then page=1
if trim(page)<>"" then
if page<2 then
pages_page1=""
pages_page2=kk&"page=2"
else
pages_page1=kk&"page="&(page-1)
pages_page2=kk&"page="&(page+1)
end if
end if
if rscount<8 then pages_page2="&page="&page
response.Write( "")
End sub
Function makesql(keyword,page,sidk,bigleibiek)
//keyword搜索,page页数,sidk小类,bigleibiek大类
dim keywordlist,i,sql
if keyword<>"" then
keywordlist=split(keyword)
for i=0 to ubound(keywordlist)
keywordlist(i)=trim(keywordlist(i))
sql=sql&" (namek like '%"&keywordlist(i)&"%' or dizik like '%"&keywordlist(i)&"%' or tesek like '%"&keywordlist(i)&"%') and"
next
end if
if (page="" or page<1) then page=1
if sidk<>"" then sql=sql&" leibiek="&sidk&" and"
if page=1 then
sql="select top 8 idk,pick,namek,dizik,tesek,dianhuak,dianjik,pinlunk from shop where"&sql&" bigleibiek="&bigleibiek&" order by idk desc"
else
sql="select top 8 idk,pick,namek,dizik,tesek,dianhuak,dianjik,pinlunk from shop where idk <(select min(idk) from( select top "&8*(page-1)&" idk from shop where"&sql&" bigleibiek="&bigleibiek&" order by idk desc)) and"&sql&" bigleibiek="&bigleibiek&" order by idk desc"
end if
makesql=sql
End Function
//在中间得到记录集和记录集个数,关闭rs
//
//制造上下页部分
//sidk小类,keyword搜索,page当前页数,rscount符合条件的记录数
sub pages(sidk,keyword,page,rscount)
dim pages_sort,jj,pages_keyword,kk,pages_page1,pages_page2
if trim(sidk)<>"" then
pages_sort="sort="&sidk
jj="&"
end if
if trim(keyword)<>"" then
pages_keyword=jj&"keyword="&keyword
kk="&"
end if
kk=left(jj&kk,1)
if trim(page)="" then page=1
if trim(page)<>"" then
if page<2 then
pages_page1=""
pages_page2=kk&"page=2"
else
pages_page1=kk&"page="&(page-1)
pages_page2=kk&"page="&(page+1)
end if
end if
if rscount<8 then pages_page2="&page="&page
response.Write( "")
End sub
相关文章
- 《无限暖暖》天星之羽获得位置介绍 12-20
- 《流放之路2》重铸台解锁方法介绍 12-20
- 《无限暖暖》瞄准那个亮亮的成就怎么做 12-20
- 《无限暖暖》魔气怪终结者完成方法 12-20
- 《无限暖暖》曙光毛团获得位置介绍 12-20
- 《无限暖暖》日光果获得位置介绍 12-20