show_page.asp

ASP的招聘管理

<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<%
function showpage(totalcount,maxperpage,filename)
dim n
if totalcount mod maxperpage=0 then
n=totalcount \ maxperpage
else
n=totalcount \ maxperpage+1
end if
response.Write "<tr align='center' bgcolor='#eeeeee'><td colspan='9'>"
response.write"<form method=post action="&filename&" style='margin:0'>"
response.write"<p align=='center'>"
if currentpage<2 then
response.write"<font color='663333'>首页 上一页</font>&nbsp"
else
response.write"<a href="&filename&"?page=1>首页</a>&nbsp"
response.write"<a href="&filename&"?page="&currentpage-1&">上一页</a>&nbsp"
end if
if n-currentpage<1 then
response.write"<font color='663333'>下一页 尾页</font>"
else
response.write"<a href="&filename&"?page="&currentpage+1&">下一页</a>&nbsp"
response.write"<a href="&filename&"?page="&n&">尾页</a>"
end if
response.write"&nbsp页次：<font color=red>"&currentpage&"</font>/"&n&"页"
response.write"&nbsp共 <b>"&totalcount&"</b> 条 <font color=red>"&maxperpage&"</font>条/页"
response.write"&nbsp转到：<input class='input1' type='text' name='page' size='2' value="&currentpage&">"
response.Write "<input type='hidden' name='class_id' value="&class_id&" class='input1'>"
response.write"&nbsp&nbsp<input type='submit' value='Goto' name='cndok' class='input2'></p></form>"
response.Write "</td></tr>"
end function
%>