淘宝网女装新款秋装连衣裙裤子外套上衣_2012时尚女装新款 Ecmall二次开发-PHP技术

  function   isInteger(para) '判断数字是否整形  
                on   error   resume   next  
                dim   str  
                dim   l,i  
                if   isNUll(para)   then    
                      isInteger=false  
                      exit   function  
                end   if  
                str=cstr(para)  
                if   trim(str)=""   then  
                      isInteger=false  
                      exit   function  
                end   if  
                l=len(str)  
                for   i=1   to   l  
                        if   mid(str,i,1)>"9"   or   mid(str,i,1)<"0"   then  
                              isInteger=false    
                              exit   function  
                        end   if  
                next  
                isInteger=true  
                if   err.number<>0   then   err.clear  
  end   function