memberpagelist.asp

来自「嘉缘人才6.0精简 ,很好用的人才系统」· ASP 代码 · 共 38 行

<%
function pagelist(url,url2,pcount,curp,rcount)   '(地址页面，地址参数，页面总数，当前页，总记录数)                          
	  prevpage=curp-1             '''''上一页
	     if prevpage<=0 then 
		    prevpage=1
		end if 
	  
	  nextpage=curp+1            '''''下一页
	    if nextpage>pcount  then   
		   nextpage=pcount
		 end if
		 response.write "<table width='100%' border='0' align='center'><tr>"
		 response.write "<form method='post' action='"&url&"?"&url2&"'>"
		 response.write "<td width='50%' align='left' height='25'>当前页数：<font color='red'>"&curp&"</font>&nbsp;&nbsp;总页数：<font color='red'>"&pcount&"</font>&nbsp;&nbsp;共有<font color='red'>"&rcount&"</font>条信息</td>"
		 response.write "<td width='50%' align='right'>"
		 response.write "输入页码：&nbsp;<input type='text' name='Gocurrentpage' size='2'>"
	     response.write "<input type='submit' value='GO' name='B2'>"   
        ''''''显示分页信息'''''''''''''''
		if curp>1 then
		 response.write"&nbsp;<a href='"&url&"?currentpage=1&"&url2&"' title='最前页' class='gj'>首页</a>"
		 response.write"&nbsp;<a href='"&url&"?currentpage="&prevpage&"&"&url2&"' title='前一页' class='gj'>上页</a>"
		else
		 response.write"&nbsp;首页"
		 response.write"&nbsp;上页"
		end if
		if curp<pcount then
          response.write"&nbsp;<a href='"&url&"?currentpage="&nextpage&"&"&url2&"' title='后一页' class='gj'>下页</a>"
		  response.write"&nbsp;<a href='"&url&"?currentpage="&pcount&"&"&url2&"' title='最后页' class='gj'>末页</a>"
		else
          response.write"&nbsp;下页"
		  response.write"&nbsp;末页"
		end if
		 response.write "</td>"
		 response.write "</form>"
		 response.write "</tr>"
		 response.write "</table>"					       
end function
%>