??Linux系统下B/S结构注册问题,各位帮忙看一下啦
在windows下lotus5.08以下B/S结构注册用户代码测试通过,我知道在linux下要区别"/"和"\",可是我换了以后还是出现问题,各位帮忙看一下啦
......
Dim certidfile As String
certidfile=Session.GetEnvironmentString("CertifierIDFile",True)
certpass=Doc.GetItemValue("certpass")(0)‘验证密码从文档文本域提取
lognsf = Session.GetEnvironmentString("Log",True)
count = Instr(1,lognsf,",")
If count > 1 Then
lognsf = Left(lognsf,count-1)
End If
mailserver = session.GetEnvironmentString("MailServer",True)
datapath = Session.GetEnvironmentString("Directory",True)
Dim iddate As New NotesDateTime(Date)
Call iddate.AdjustYear( QiXian )
Dim reg As New NotesRegistration
reg.CertifierIDFile = certidfile '认证CERT.ID文件
reg.CreateMailDb = True '是否创建邮件数据库
reg.Expiration = Datevalue(iddate.dateonly) 'ID文件的有效时间
reg.IDType = ID_HIERARCHICAL '用户名称的层次结构
reg.IsNorthAmerican = False '是否是北美用户
reg.MinPasswordLength = 0 '最小密码长度
reg.OrgUnit = "" '组织单元名称
reg.RegistrationLog = lognsf '日志记录数据库
reg.RegistrationServer = mailserver'注册通讯录所在的服务器名称
reg.StoreIDInAddressbook = True '决定是否在通讯录中保存ID文件
reg.UpdateAddressbook = True '决定是否更新通讯录
lastname=regDoc.ShortName(0)’此处值从文档中获取
idfile=datapath+"\"+lastname+".id"
regserver=mailserver
firstname=""
middle=""
certpw=certpass
location=""
comment=""
maildbpath="mail/"+regDoc.MailFile(0)+".nsf"’此处值从文档中获取
fwddomain=""
userpw=regDoc.Password(0)’此处值从文档中获取
Call reg.RegisterNewUser(lastname,datapath+"/tmp/"+lastname+".id",regserver,"","",certpw,"","",maildbpath,"",userpw)‘错误出在此服务器保“Error:User-defined error at
line 68 at runreg”
”
......