fy_view_query.asp

来自「1.4.1 个人桌面 1.4.2 信息中心 1.4.3 人事机构 1.4.」· ASP 代码 · 共 50 行

<%function fy_view(count,perpage,pno,url)
count=cint(count)
perpage=cint(perpage)
pno=cint(pno)%>
<script language="vbscript">
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
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_fy">
<%
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>"

end function
%>