发信人: ectide()
整理人: ectide(2003-02-12 16:44:01), 站内信件
|
示例：在需要显示分页代码的地方加入以下代码：
DataGridPage paranamelist,paravaluelist,rs.pagecount,3
其中3表示以图片的方式显示分页链接。
'分页函数
'Begin=====================================================
'参数paranamelist传递应传进来的参数名列表；paravaluelist为对应的参数值列表,maxpage页数最大值，LinkType传递以何种方法进行分页，其值有1，2，3三种，1代表以文本的形式，2代表以按钮的形式，3代表以图片的形式。
function DataGridPage(ByVal paranamelist,ByVal paravaluelist,ByVal maxpage,ByVal LinkType)
'传入参数名序列及其对应值
if paranamelist<>"" then
pnl=split(paranamelist,",")
pvl=split(paravaluelist,",")
page=trim(pvl(0))
for i=1 to ubound(pnl)
if trim(pnl(i))<>"" then
parastr=parastr & "&" & trim(pnl(i)) & "=" & trim(pvl(i))
end if
next
end if
if maxpage>1 then
select case LinkType
case 1
if page<>1 then
response.write "<span onclick=""document.location.replace('" & request.ServerVariables("Script_Name") & "?page=1" & parastr & "')"">首页 </span>"
response.write "<span onclick=""document.location.replace('" & request.ServerVariables("Script_Name") & "?page=" & page-1 & parastr & "')"">上页 </span>"
end if
if cdbl(page)<>cdbl(maxpage) then
response.write "<span onclick=""document.location.replace('" & request.ServerVariables("Script_Name") & "?page=" & page+1 & parastr & "')"">下页 </span>"
response.write "<span onclick=""document.location.replace('" & request.ServerVariables("Script_Name") & "?page=" & maxpage & parastr & "')"">末页 </span>"
end if
case 2
if page<>1 then
response.write "<input type=button value='首页' onclick=""document.location.replace('" & request.ServerVariables("Script_Name") & "?page=1" & parastr & "')"" class='b'> "
response.write "<input type=button value='上页' onclick=""document.location.replace('" & request.ServerVariables("Script_Name") & "?page=" & page-1 & parastr & "')"" class='b'> "
end if
if cdbl(page)<>cdbl(maxpage) then
response.write "<input type=button value='下页' class='b' onclick=""document.location.replace('" & request.ServerVariables("Script_Name") & "?page=" & page+1 & parastr & "')"" class='b'> "
response.write "<input type=button value='末页' class='b' onclick=""document.location.replace('" & request.ServerVariables("Script_Name") & "?page=" & maxpage & parastr & "')"" class='b'> "
end if
case 3
if page<>1 then
response.write "<img src='/Image/firstpage.gif' align=absmiddle border='0' onclick=""document.location.replace('" & request.ServerVariables("Script_Name") & "?page=1" & parastr & "')""> "
response.write "<img src='/Image/prepage.gif' align=absmiddle border='0' onclick=""document.location.replace('" & request.ServerVariables("Script_Name") & "?page=" & page-1 & parastr & "')""> "
end if
if cdbl(page)<>cdbl(maxpage) then
response.write "<img src='/Image/nextpage.gif' align=absmiddle border='0' onclick=""document.location.replace('" & request.ServerVariables("Script_Name") & "?page=" & page+1 & parastr & "')""> "
response.write "<img src='/Image/lastpage.gif' align=absmiddle border='0' onclick=""document.location.replace('" & request.ServerVariables("Script_Name") & "?page=" & maxpage & parastr & "')""> "
end if
case else
response.write "错误的参数值.LinkType值只能为1、2、3三个数"
response.end
end select
if maxpage>1 then
response.write "<input type=text size='2' maxlength='5' onkeyup=""if(event.keyCode==13){document.location.replace('" & request.ServerVariables("Script_Name") & "?page='+this.value+'" & parastr & "');}"" class='s'>"
response.write " 〈font color=blue〉" & page & "〈/font〉/〈font color=blue〉" & maxpage & "〈/font〉页 "
end if
end if
end function
----
厦门商务潮：http://www.ectide.com/
成功案例之一：网络销售系统 |
|