代码：
<%
'On Error Resume Next
Set RootObj = CreateObject("RTXSAPIRootObj.RTXSAPIRootObj") '创建根对象
Set UserManagerObj = RootObj.UserManager '通过根对象创建用户管理对象
RootObj.ServerIP= "127.0.0.1" '设置服务器IP
RootObj.ServerPort= "8006" '设置服务器端口，默认为8006
dim UserInfo, GetUserBasicInfo, UserAccount, ChsName, Gender, Mobile, EMail, Phone, AuthType
UserManagerObj.GetUserBasicInfo Cstr("xuz"), ChsName, Gender, Mobile, EMail, Phone, AuthType
response.Write(ChsName)
%>
按照手册上来的，不知为何。