fy_view.asp

1.4.1 个人桌面 1.4.2 信息中心 1.4.3 人事机构 1.4.4 考勤管理 1.4.5 工作计划 1.4.6 公文流转 1.4.7 会议管理 1.4.8 审批登记 1.4.

<%private function fy_view(count,perpage,pno,url)
count=cint(count)
perpage=cint(perpage)
pno=cint(pno)%>
<script language="vbscript">
private function jump(aa)
if form_fyym.inputpage.value="" then
exit function
else
tjlen=len(form_fyym.inputpage.value)
tjstr=form_fyym.inputpage.value

for i=1 to tjlen
j=mid(tjstr,i,1)
select case j
 case "0","1","2","3","4","5","6","7","8","9"
 x=1
 case else
 msgbox  "无此页码，按“确定”返回",vbokonly
 exit function
end select
next

if (cint(tjstr)<1 or cint(tjstr)>cint(aa)) then
msgbox  "无此页码，按“确定”返回",vbokonly
exit function
end if
window.location="<%=url%>"&"pageno="&tjstr
end if
end function
</script>
<form name="form_fyym">
<%'Response.write count&","&perpage&","&pno
'Response.write "<br>"
'Response.write "<table border=0  width="&twidth&">"
'Response.write "<tr>"
Response.write "共有"&count&"条记录&nbsp;"
Response.write "第"&pno&"/"&(int((count-1)/perpage)+1)&"页&nbsp;"
Response.write "<a href="&url&"pageno=1>首页</a>&nbsp;"
if pno>1 then
Response.write "<a href="&url&"pageno="&(pno-1)&">上一页</a>&nbsp;"
end if

if int((count-1)/perpage)+1>pno then
Response.write "<a href="&url&"pageno="&pno+1&">下一页</a>&nbsp;"
end if
Response.write "<a href="&url&"pageno="&(int((count-1)/perpage)+1)&">尾页</a>&nbsp;"

Response.write "跳转到&nbsp;<input type=text size=3 name=inputpage maxlength=3>&nbsp;页&nbsp;&nbsp;<b><a href='vbscript:jump("&(int((count-1)/perpage)+1)&")'>GO</b></a>"
'Response.write "</tr>"
'Response.write "</table>"
Response.write "</form>"
end function
%>