Asp自定义函数参考

判断电话号码是否正确函数：

function IsValidTel(para)on error resume nextdim strdim l,iif isNUll(para) then IsValidTel=falseexit functionend ifstr=cstr(para)if len(trim(str))<7 thenIsValidTel=falseexit functionend ifl=len(str)for i=1 to lif not (mid(str,i,1)>="0" and mid(str,i,1)<="9" or mid(str,i,1)="-") thenIsValidTel=false exit functionend ifnextIsValidTel=trueif err.number<>0 then err.clearend function