fy_view_form.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.

<% function fy_view(count,perpage,pno,form_name,tjfunction_name)
count=cint(count)
perpage=cint(perpage)
pno=cint(pno)%>
<script language="vbscript">
private function jump(aa)
if form_fy.inputpage.value="" then
exit function
else
tjlen=len(form_fy.inputpage.value)
tjstr=form_fy.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
form_fy.inputpage.focus
end select
next

if (cint(tjstr)<1 or cint(tjstr)>cint(aa)) then
msgbox  "无此页码，按“确定”返回",vbokonly
form_fy.inputpage.focus
exit function
end if
<%=form_name%>.pageno.value=tjstr
call <%=tjfunction_name%>()
end if
end function

function fy_view1(i)
<%=form_name%>.pageno.value=i
 call <%=tjfunction_name%>()
end function
</script>
<form name="form_fy">
<%
Response.write "共有"&count&"条记录&nbsp;"
Response.write "第"&pno&"/"&(int((count-1)/perpage)+1)&"页&nbsp;"%>
<a href="vbscript:fy_view1(1)">首页</a>&nbsp;
<%if pno>1 then%>
<a href="vbscript:fy_view1(<%=(pno-1)%>)">上一页</a>&nbsp;
<%end if%>

<%if int((count-1)/perpage)+1>pno then%>
<a href="vbscript:fy_view1(<%=pno+1%>)">下一页</a>&nbsp;
<%end if%>
<a href="vbscript:fy_view1(<%=(int((count-1)/perpage)+1)%>)">尾页</a>&nbsp;

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

end function
%>