% Dim FCLassID FClassID = FilterQuot(Request("classid")) If FClassID="" Then FClassID = 0 End If %> <% Function showpages(totalnumber,maxperpage,filename) Dim n If totalnumber Mod maxperpage=0 Then n= totalnumber \ maxperpage Else n= totalnumber \ maxperpage+1 End If Response.Write "
" End Function %>
|
| |