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