if QQ<>"" then
 if not isnumeric(QQ) or len(cstr(QQ))>10 then
  errmsg=errmsg & "<br><li>QQ号码只能是4-10位数字，请正确填写。</li>"
  founderr=true
 end if
end if