inc_page1.asp

航空订票系统基于asp.net和sql2005包含数据库和图片

<% 
  '-----------分页函数开始
 function list_total(count,pageno,pgsz,total,files) 'pageno 显示的页码,pgsz 每页显示记录数,count 总共记录数
dim strreturn
'strreturn = strreturn +"<b>>>分页</b> "

if total>1 and pageno<>1 then 

strreturn = strreturn +"<a href="&files&"pageno=1>首页</a> "

else
strreturn = strreturn +"首页 "
end if
if pageno-1>0 then 
strreturn = strreturn +"<a href="&files&"pageno="&pageno-1&">上一页</a> "
else
strreturn = strreturn +"上一页 "
end if
if pageno+1<=total then 
strreturn = strreturn +"<a href="&files&"pageno="&pageno+1&">下一页</a> "
strreturn = strreturn +"<a href="&files&"pageno="&total&">尾页</a> "
else
strreturn = strreturn +"下一页 "
strreturn = strreturn +"尾页 "
end if

strreturn = strreturn +"页次：<b>"&pageno&"</b>/<b>"
if total<=0 then 
strreturn = strreturn +"1"
else 
strreturn = strreturn +cstr(total)
end if
strreturn = strreturn +"</b>页 <b>"&pgsz&"</b>个记录/页　转到 "
strreturn = strreturn +"<select name=page onChange='javascript:location.href=this.options[selectedIndex].value'>"
for record_num=1 to total
strreturn = strreturn +"  <option value="&files&"pageno="&record_num
'strreturn = strreturn +pageno)
'response.end
if int(pageno)=int(record_num) then
 strreturn = strreturn +" selected"
end if
strreturn = strreturn +"  class='in'>"&record_num&"</option>"
next
strreturn = strreturn +"</select>"
strreturn = strreturn +"页 "
strreturn = strreturn +"共<b>"&count&"</b>个记录"
list_total = strreturn
end function%>