<% Sub SetPage(MaxPage,msPage,Pagesize,mswidth) 'MaxPage=羆计,msPage=瞷┮,PageSize=ぶだ,mswidth糴κだゑ if MaxPage > 1 then msUrl = Trim(Request.ServerVariables("PATH_INFO")) iPos = instrRev(msUrl,"/") msAsp = Left( Mid(msUrl,iPos + 1) , Len(Mid(msUrl,iPos + 1))) msQS = Trim(Request.ServerVariables("QUERY_STRING")) IF msQS <> "" Then msQS = msQS & "&" msV=true else msV=false end if msQS = msAsp & "?" & msQS iPos = Instr(msQS,"msPage") if msV=true then IF iPos >= 1 Then msQS = Left(msQS,iPos - 1) End IF else IF iPos >= 1 Then msQS = Left(msQS,iPos - 2) End IF end if TPage = int(MaxPage/PageSize) '羆だ计 if MaxPage mod PageSize = 0 then TPage = TPage else TPage = TPage + 1 end if Cpage = int(msPage/PageSize) '瞷┮だ if msPage mod PageSize = 0 then Cpage = Cpage else Cpage = Cpage + 1 end if LastPage = MaxPage mod PageSize if LastPage = 0 then LastPage = PageSize '程だ计 if TPage = 1 then 'Τ1だ PageList = LastPage elseif CPage = TPage then PageList = LastPage else PageList = PageSize end if response.Write "" & Chr(13) response.Write " " & Chr(13) response.Write " " & Chr(13) response.Write " " & Chr(13) response.Write " " & Chr(13) response.Write " " & Chr(13) response.Write " " & Chr(13) response.Write " " & Chr(13) response.Write " " & Chr(13) response.Write "

" & Chr(13) if int(msPage) > 1 then response.Write " 材" & Chr(13) else response.Write " " & Chr(13) end if response.Write "

" & Chr(13) if CPage > 1 then response.Write " " & PageSize & "" & Chr(13) else response.Write " " & Chr(13) end if response.Write "

" & Chr(13) for page = 1 to PageList response.Write " " & ((Cpage-1) * PageSize) + Page & " " & Chr(13) next response.Write "

" & Chr(13) if CPage < TPage then response.Write " " & PageSize & "" & Chr(13) else response.Write " " & Chr(13) end if response.Write "

" & Chr(13) if int(MaxPage) > int(msPage) then response.Write " 程沧" & Chr(13) else response.Write " " & Chr(13) end if response.Write "

" & Chr(13) response.Write "" & msPage & "/" & MaxPage & "" & Chr(13) response.Write "

" & Chr(13) end if End Sub %>