if cls("subSave",3) = "保存" then
fullname=cls("fullname",35)
if fullname= "" then
errDescription = "姓名不能为空!"
end if
if errDescription = "" then
sql = "update [OTH].[BoUser] set fullname = '"& fullname &"' where UserID = '"& rolecode &"'"
connB.execute sql
end if