asp 取得頁數函數

'取得頁數,並判斷用戶輸入的是否數字類型的數據，如不是將以第一頁顯示
                    text="0123456789"
                    Rs_c.PageSize=PerPage
     
                    for i=1 to len(request("page"))
                    checkpage=instr(1,text,mid(request("page"),i,1))
                    if checkpage=0 then
                    exit for
                    end if
                    next