inc_enpage1.asp

来自「航空订票系统基于asp.net和sql2005包含数据库和图片」· ASP 代码 · 共 49 行

<% 
  '
 function enlist_total(count,pageno,pgsz,total,files) 
dim strreturn
'strreturn = strreturn +"<b>>>分页</b> "

if total>1 and pageno<>1 then 

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

else
strreturn = strreturn +"Home "
end if
if pageno-1>0 then 
strreturn = strreturn +"<a href="&files&"pageno="&pageno-1&">Previous</a> "
else
strreturn = strreturn +"Previous "
end if
if pageno+1<=total then 
strreturn = strreturn +"<a href="&files&"pageno="&pageno+1&">Next</a> "
strreturn = strreturn +"<a href="&files&"pageno="&total&">End</a> "
else
strreturn = strreturn +"Next "
strreturn = strreturn +"End "
end if

strreturn = strreturn +"Current：<b>"&pageno&"</b>/<b>"
if total<=0 then 
strreturn = strreturn +"1"
else 
strreturn = strreturn +cstr(total)
end if
strreturn = strreturn +"</b>Page <b>"&pgsz&"</b>Record/P　Go To "
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 +"Page "
strreturn = strreturn +"Total:<b>"&count&"</b>&nbsp;Record"
enlist_total = strreturn
end function%>