<% 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 "
" Response.Write "

" If CurrentPage<2 Then Response.Write "Ê×Ò³ ÉÏÒ»Ò³ " Else Response.Write "Ê×Ò³ " Response.Write "ÉÏÒ»Ò³ " End If If n-currentpage<1 Then Response.Write "ÏÂÒ»Ò³ βҳ" Else Response.Write "" Response.Write "ÏÂÒ»Ò³ βҳ" End If Response.Write " Ò³´Î£º"&CurrentPage&"/"&n&"Ò³ " Response.Write " ¹²ÓÐ"&totalnumber&"ÌõÏß·²úÆ· " Response.Write "תµ½£º" Response.Write " " End Function %> ¸£½¨ÂÃÓÎ ¾ÆµêÔ¤¶© »úƱԤ¶© ÂÃÓζȼ٠- ¸£½¨¿µ»ÔÂÃÓÎÍø
  ÍøÕ¾Ê×Ò³ | ÁªÏµÎÒÃÇ | ÂÃÓÎÉçÇø | »áÔ±ÖÐÐÄ
 
 
 
  »Øµ½Ê×Ò³»Øµ½Ç°Ò³»Øµ½Ò³¶¥