<% Function pagination(pagecount,urlstr) Dim wzpage,wzpagecount,pagenum,pagetemp If Len(Request.QueryString("page"))<>0 Then wzpage = clng(Request.QueryString("page")) Else wzpage =1 End If If wzpage <= 0 Then wzpage =1 pagenum = (wzpage \ 10)*10+1 If wzpage mod 10 = 0 Then pagenum = (wzpage \ 10)*10-9 If wzpage > 10 Then pagetemp=pagetemp&"" pagetemp=pagetemp&"9" pagetemp=pagetemp&"7" pagetemp=pagetemp&" " End If For pagenum = pagenum To pagenum + 9 If pagenum = wzpage Then pagetemp=pagetemp&"" pagetemp=pagetemp&" "& pagenum &" " pagetemp=pagetemp&"" Else pagetemp=pagetemp&" " pagetemp=pagetemp&""& pagenum &"" pagetemp=pagetemp&" " End If If pagenum >= pagecount Then Exit For Next If wzpage < (pagecount - (pagecount \ 10)) Then pagetemp=pagetemp&"" pagetemp=pagetemp&"8" pagetemp=pagetemp&":" pagetemp=pagetemp&"" End If pagination=pagetemp End Function %>