f
else
   Errmsg=Errmsg+"<br>"+"<li>对不起，您输入的企业ID不存在，请确认无误之后再输入。"
   call tatty_error()
end if
rs.close
end sub
sub getpass3
dim passw