web用户注册的问题

2013-06-06 01:08:24 320 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

XTDrone平台FAST-LIO2与ego-planner结合路径规划部署之前做了XTDrone平台FAST-LIO2的部署现在将其结合ego-planner进行导航规划，之前查看教程是使用视觉进行定位导航的，现在重新学习。修改advanced_param_xtdrone.xml，这里有视觉信息，不修改会报错显示为输入视觉话题信息。怎么描述，感觉当时觉得很难的问题突然就给解决了，一顿复杂，最近勤更新吧，继续开始学习。还有一个想法就是两个rviz结合在一起启动，写了一个demo，融合的不太好感觉额。改为只使用雷达点云，这里仿真的话题是/scan。阅读详情

公司部署了一台domino邮件服务器。我想做一个web的用户管理库，包括：部门、公司层级、用户信息等。
首先就是web页面注册用户。按照帮助手册中，使用 NotesRegistration 的 RegisterNewUser 方法进行注册员工。注册后，人员信息生成，邮箱生成。
但是有点小问题。公司目前登录邮箱可以用中文名（lastname）和英文名（shortname）。在方法说明中，并没有看到shortname 的参数。后来通过直接查找该用户文档，在文档中添加shortname 。但是登录用shortname 还是提示“无效的用户名和密码”。
请问这里是差什么步骤呢。感谢各位大神指点。
代理如下：



Sub Initialize

	On Error Goto errorhandler

	

	Dim   session   As   New   notessession  

	Dim   db   As   notesdatabase  

	Set   db   =   session.currentdatabase  

	Dim   reg   As   New NotesRegistration

	

	reg.createmaildb   =   True  

	reg.certifieridfile   =   "E:\Lotus\Domino\data\cert.id"  

	reg.expiration   =   Today   +   2190  

	reg.registrationserver   =   db.server  

	reg.idtype   =   ID_HIERARCHICAL  

	reg.isnorthamerican   =   True  

	reg.minpasswordlength   =   5  

	reg.orgunit   =   "XX部门" 

	reg.RegistrationLog = "log.nsf"

	reg.updateaddressbook   =   True  

	reg.storeidinaddressbook   =   True  

	

	Dim   ShortName   As   String  

	Dim   lastname   As   String

	Dim FullName As String

	

	Call reg.RegisterNewUser("张三", _  ' last name

	"E:\Lotus\idss\hufeng.id", _         ' file to be created

	"CN=MailTest/O=test", _            ' mail server

	"", _                              ' first name

	"", _                               ' middle initial

	"password", _                   ' certifier password

	"", _                              ' location field

	"", _                              ' comment field

	"mail\zhangsan.nsf", _                      ' mail file

	"", _                              ' forwarding domain

	"password", _                   ' user password

	NOTES_LIMITED_CLIENT,_    ' user type

	"zhangsan"          )         'altname   

        

        '通过lastname，在names.nsf中查找该用户

        Dim   dbnames   As   notesdatabase  

	Set   dbnames   =   session.getdatabase("","names.nsf",False)  

	If   dbnames.isopen   =   False   Then  

		Call   dbnames.open("","names.nsf")  

	End   If  

	

	Dim   vwperson   As   notesview  

	Set   vwperson   =   dbnames.getview("($users)")  

	Dim   docuser   As   notesdocument  

	Set   docuser   =   vwperson.getdocumentbykey("张三")  

	docuser.httppassword   =  "password" 

        '增加shortname

	docuser.shortname = "zhangsan"  

	Call   docuser.save(True,False)

	Print "<font size=2>用户帐号已经注册成功了</font>"

	Print "<hr size=1 color=red>"

	Print "点击这里<a href='javascript:history.back();'><font size=2>返回</font></a>"

	

	Exit Sub

errorhandler:

	Print Cstr(Erl)+" "+Error$

	Exit Sub

End Sub