turnpage.asp

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

<%
Function ShowTurnPage(recordcount,pagesize,page,buttonstr)
	Dim Tpl,i,pagenum,pagecount,PageBody
	Set fso = server.CreateObject("scripting.filesystemobject")
	'filename=server.MapPath("kg/global/inc/turnpage.htm")
	'if fso.FileExists(filename) then
	PageBody = oTemplate.Load(server.MapPath(StrSite & "global/inc/turnpage.htm"))
	'response.Write (StrSite & "global/inc/turnpage.htm")&"<br>"
	'PageBody = oTemplate.Load(server.MapPath("global/inc/turnpage.htm"))
	'response.Write("ok")
	'else
	'response.Write("don't find")
	'end if
	'PageBody = oTemplate.Load("http://192.168.1.103:8018/kg/global/inc/TurnPage.htm")
	PageBody = oTemplate.GetPart(PageBody,chr(60) & "!--body-->",chr(60) & "!--//body-->")
	set Tpl = server.CreateObject("scripting.dictionary")

	pagecount = Fix((recordcount-1)/pagesize)
	if(page>pagecount) then page = pagecount

	Tpl("#recordcount#") = recordcount
	Tpl("#buttonstr#") = buttonstr
	Tpl("#jumppage#") = page+1
	Tpl("#pagesize#") = pagesize
	Tpl("#curpage#") = page+1
	Tpl("#pagecount#") = pagecount+1
	if(pagecount<>page) then
		Tpl("#endurl#") = "onclick=""javascript:TurnPage(" & pagecount & ");"""
	else
		Tpl("#endurl#") = "disabled"
	end if
	if(page<pagecount) then 
		Tpl("#nexturl#") = "onclick=""javascript:TurnPage(" & page+1 & ");"""
	else
		Tpl("#nexturl#") = "disabled"
	end if
	if(page>0) then 
		Tpl("#prevurl#") = "onclick=""javascript:TurnPage(" & page-1 & ");"""
		Tpl("#begurl#") = "onclick=""javascript:TurnPage(" & 0 & ");"""
	else
		Tpl("#prevurl#") = "disabled"
		Tpl("#begurl#") = "disabled"
	end if
	if(page>9) then Tpl("#prev10#") = "href=""javascript:TurnPage(" & page-10 & ");"""
	if(int(page/10) <> int(pagecount/10)) then Tpl("#next10#") = "href=""javascript:TurnPage(" & page+10 & ");"""
	
	for i = int(page/10) * 10 + 1  to int(page/10) * 10 + 10
		if i > pagecount + 1 then exit for
		if page = i - 1 then
			pagenum = pagenum & " <span class=BT_TurnNoOn>" & i & "</span> "
		else
			pagenum = pagenum & " <span class=BT_TurnNo><a href=""javascript:TurnPage(" & i-1 & ");"" >" & i & "</a></span> "
		end if
	next
	Tpl("#pagenum#") = pagenum
	PageBody = oTemplate.ReplaceMacros(PageBody,Tpl)
	ShowTurnPage= PageBody
	set Tpl = nothing
End Function
%>