asp分页函数

page=<
% = n %>
>
尾 页<
/a>
&
nbsp
&
nbsp

 
 
 
<
% End If 
%>

 
页次：<
b>
<
font color=red>
<
% = CurrentPage %>
<
/font>
<
/b>
/<
b>
<
% = n %>
<
/b>
页 <
b>
<
%=maxperpage%>
<
/b>
个记录/页 
共<
b>
<
%=totalnumber %>
<
/b>
个记录 
 
 

转到：<
select name="cndok" >

<
%
for i = 1 to n
if i = CurrentPage then%>

<
option value="<
% = filename %>
?page=<
%=i%>
" selected>
第<
%=i%>
页<
/option>
 

<
%else%>

<
option value="<
% = filename %>
?page=<
%=i%>
">
第<
%=i%>
页<
/option>
 

<
%
end if
next
%>

<
/select>
<
/font>

<
/form>

<
%End Function
'=============放置分页显示结束%>