推荐下天枫常用ASP函数封装,推荐大家使用(25)


                            AutoPage=AutoPage&"[<font color=red>"&i+1&"</font>] "
                        else 
                            if instr(paramater,"?")>0 then
                                AutoPage=AutoPage&"<a href="""¶mater&"&page="&i+1&""">["&(i+1)&"]</a>"
                            else
                                AutoPage=AutoPage&"<a href="""¶mater&"?page="&i+1&""">["&(i+1)&"]</a>"
                            end if
                        end if  
                    Next 
                    AutoPage=AutoPage&"</font></div>"
                else
                    AutoPage=AutoPage&"非法操作!页号超出!<a href=javascript:history.back(-1)><u>返回</u></a>"
                end if
            Else
                AutoPage=content
            end if
    End Function
End Class
%>

调用:set fun=new cls_fun