page.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 48 行

ASP

48 行

<head>
<link rel="stylesheet" type="text/css" href="<%=Application("ROOTPATH")%>Templet/Main.css">
</head>
<%
Function PageFooter(PageCount,Par)
	'If PageCount < 2 Then
	'	PageFooter = ""
	'	Exit Function
	'End If
	
	if PageCount < 1 then
	  PageCount = 1
	end if
	Dim StrPage, StrQ, StrURL, P, AbsolutePage
	AbsolutePage = 1
	StrURL = Request.ServerVariables("URL")
	For Each P In Request.QueryString 	
		'Response.Write P & ":"	
		If P <> Par Then
			StrQ = StrQ & "&" & P & "=" & Server.URLEncode(Request.QueryString(P))
		Else
			AbsolutePage = Request.QueryString(P)
		End If
	Next
	
	StrPage = "<table border=0 cellpadding=0 cellspacing=0 width='100%' class=RighrUnderMenuBar><tr><td align=left>"
	StrPage = StrPage & "&nbsp;第&nbsp;<font color=red>" & AbsolutePage & "</font>&nbsp;页 共&nbsp;<font color=red>" & PageCount & "</font>&nbsp;页"
	StrPage = StrPage & "</td><td align=right>"
	If Cint(AbsolutePage) <= 1 Then
		StrPage = StrPage & "<input type=button class=button value='首 页' disabled>"
		StrPage = StrPage & "<input type=button class=button value='上一页' disabled>"
	Else
		StrPage = StrPage & "<input type=button class=button onclick=" & Chr(34) & "window.location='" & StrURL & "?" & Par & "=1" & StrQ & "'" & Chr(34) & " value='首 页'>"
		StrPage = StrPage & "<input type=button class=button onclick=" & Chr(34) & "window.location='" & StrURL & "?" & Par & "=" & AbsolutePage-1 & StrQ  & "'" & Chr(34) & " value='上一页'>"
	End If
	
	If Cint(AbsolutePage) >= Cint(PageCount) Then
		StrPage = StrPage & "<input type=button class=button value='下一页' disabled>"
		StrPage = StrPage & "<input type=button class=button value='末 页' disabled>"
	Else
		StrPage = StrPage & "<input type=button class=button onclick=" & Chr(34) & "window.location='" & StrURL & "?" & Par & "=" & AbsolutePage+1 & StrQ & "'" & Chr(34) & " value='下一页'>"
		StrPage = StrPage & "<input type=button class=button onclick=" & Chr(34) & "window.location='" & StrURL & "?" & Par & "=" & PageCount & StrQ & "'" & Chr(34) & " value='末 页'>"
	End If	
	StrPage = StrPage & "</td></tr></table>"
	PageFooter = StrPage
	Response.Write PageFooter
End Function
%>

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?

page.asp

page.asp - 源码说明

⌨️ 快捷键说明