捌度空间 缓存类

使用方法：

    set myCache=new cache
    myCache.name="flash1"
    If myCache.valid then
        StartGet = myCache.value
    Else
        StartGet = GetHttpPage(HttpUrl)    
        myCache.add StartGet,dateadd("h",3,Now)
    End if 
    List=GetBody(StartGet,"</form>","<!-- ********网页中部代码结束******** -->",False,False)