校验用户密码是否包含大写字母、小写字母、数字

//增加用户密码校验规则，必须包含大写字母、小写字母、数字、至少8位密码。

sring   ls_pwd
long	ll_char,ll_rtn

if  len(ls_pwd) < 8 then 
	MessageBox('提示','密码长度至少要8位字符!')
	return 
end if 

for ll_char  = 48 to 57
	if pos(ls_pwd,char(ll_char)) > 0 then 
		ll_rtn = 1 
		exit 
	end if 
next 

if ll_rtn < 1 then 
	MessageBox('提示','密码必须包含数字,请重新设置!')
	return 
end if 

ll_rtn = 0


for ll_char  = 65 to 90
	if pos(ls_pwd,char(ll_char)) > 0 then 
		ll_rtn = 1 
		exit 
	end if 
next 

if ll_rtn < 1 then 
	MessageBox('提示','密码必须包含大写字母,请重新设置!')
	return 
end if 

ll_rtn = 0

for ll_char  = 97 to 122
	if pos(ls_pwd,char(ll_char)) > 0 then 
		ll_rtn = 1 
		exit 
	end if 
next 

if ll_rtn < 1 then 
	MessageBox('提示','密码必须包含小写字母,请重新设置!')
	return 
end if