inc_page3.asp

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

<% 
  '-----------分页函数开始
'function list_total3(count,pageno,pgsz,total,files) 'pageno 显示的页码,pgsz 每页显示记录数,count 总共记录数
  '-----------分页函数开始
function list_total(count,pageno,pgsz,total,files) 'pageno 显示的页码,pgsz 每页显示记录数,count 总共记录数
	Dim StrReturn
	StrReturn = ""
	'if pageno-1>0 then 
	'	StrReturn = StrReturn + "<a href="&files&"pageno="&pageno-1&"><img src="""&StrSite&"news/images/arrow01.gif"" border=""0""></a>&nbsp;"
	'else
	'	StrReturn = StrReturn + "<img src="""&StrSite&"news/images/arrow01.gif"" border=""0"">&nbsp;"
	'end if
	'具体显示页数
	'strReturn = strReturn + "<tr><td height=""20"" align=""center"" bgcolor=""f7f7f7"">"
	for record_num=1 to total
		if int(pageno)=int(record_num) then
			StrReturn = StrReturn + "&nbsp;[<font color=red><Strong>"&record_num&"</Strong></font>]&nbsp;"
		else
			StrReturn = StrReturn + "&nbsp;<a href="&files&"pageno="&record_num&">"&record_num&"</a>"
		end if
	next
	'strReturn = strReturn + "</td></tr>"
	'if pageno+1<=total then 
	'	StrReturn = StrReturn +  "&nbsp;<a href="&files&"pageno="&pageno+1&"><img src="""&StrSite&"news/images/arrow02.gif"" border=""0""></a>"
	'else
	'	StrReturn = StrReturn +  "&nbsp;<img src="""&StrSite&"news/images/arrow02.gif"" border=""0"">"
	'end if
	'strReturn = strReturn + "<tr><td height=""20"" align=""center"" bgcolor=""f7f7f7"">"
	StrReturn = StrReturn + "共 <strong>"&count&"</strong> 条信息，共 <strong>"&Total&"</strong> 页，当前显示第 <strong>"&PageNo&"</strong> 页 "
	'StrReturn = StrReturn + "共<b>"&count&"</b>个记录"
	'strReturn = strReturn + "</td></tr>"
	list_total3 = StrReturn
end function
%>