判断字符串是否包含空格或在全角状态下输入

/**//*
**判断。
**参数：
**        as_string     ----客户输入字符串
**返回：
**        -1==>该字符串不合法
**    1  ==>字符串合法
**作者：
**        毕中亮
**    2007.05.25
*/

long ll_len,ll_lenw,ll_place,ll_placew
long i,j
ll_len = len(as_string)
ll_lenw = lenw(as_string)
ll_place = Pos(as_string, ' ')
if ll_place > 0 THEN
    messagebox('提示:','字符串中含有空格,位置 '+ string(ll_place))
    return -1
END IF
ll_placew = PosW(as_string,'　')
if ll_placew > 0 then
    messagebox('提示:','字符串中含有空格,位置 '+ string(ll_placew))
    return -1
end if
if ll_len = ll_lenw then
    return 1
else
    messagebox('提示:','字符串中含有在全角状态下输入的字符!')
    return -1
end if