Discuz!NT官方社区

在用户注册成功后登陆有问题,提示System.FormatException: 输入字符串的格式不正确。

不知道什么问题,请高手帮忙

注册代码

  Function DiscuzZc(ByVal Name As String, ByVal Pass As String, ByVal Email As String) As Integer
        '判断论坛用户是否存在,存在则不注册
        Dim config As GeneralConfigInfo = GeneralConfigs.GetConfig()
        If Not Users.Exists(Name) Then
            Dim userinfo As New UserInfo()
            userinfo.Username = Utils.HtmlEncode(Name) '用户名
            userinfo.Nickname = Utils.HtmlEncode("") ' 用户昵称
            userinfo.Password = Utils.MD5(Pass) ' 将密码明文进行md5加密
            userinfo.Gender = DNTRequest.GetInt("gender", 0) '性别
            userinfo.Adminid = 0
            userinfo.Groupexpiry = 0
            userinfo.Extgroupids = ""
            userinfo.Regip = DNTRequest.GetIP() '获得用户ip
            userinfo.Joindate = Utils.GetDateTime()
            userinfo.Lastip = DNTRequest.GetIP()
            userinfo.Lastvisit = Utils.GetDateTime()
            userinfo.Lastactivity = Utils.GetDateTime()
            userinfo.Lastpost = Utils.GetDateTime()
            userinfo.Lastpostid = 0
            userinfo.Lastposttitle = ""
            userinfo.Posts = 0
            userinfo.Digestposts = 0
            userinfo.Secques = ""
            userinfo.Yahoo = ""
            userinfo.Website = ""
            userinfo.Signature = "" '签名
            userinfo.Sightml = ""
            userinfo.Qq = ""
            userinfo.Msn = ""
            userinfo.Icq = ""
            userinfo.Location = ""
            userinfo.Skype = ""
            userinfo.Bio = DNTRequest.GetString("")
            userinfo.Avatar = "avatars\common\0.gif" '头像
            userinfo.Avatarwidth = 0
            userinfo.Avatarheight = 0
            userinfo.Authtime = Utils.GetDateTime()
            userinfo.Authstr = ""
            userinfo.Authflag = 0
            userinfo.Bday = ""
            userinfo.Email = Email 'Email地址
            userinfo.Customstatus = ""
            userinfo.Medals = ""
            DiscuzZc = UserFactory.CreateUser(userinfo)
            '注册成功发送邮件
            If config.Welcomemsg = 1 Then
                Dim privatemessageinfo As PrivateMessageInfo = New PrivateMessageInfo()
                Dim curdatetime As String = Utils.GetDateTime()
                '收件箱
                privatemessageinfo.Message = config.Welcomemsgtxt
                privatemessageinfo.Subject = "欢迎您的加入! (请勿回复本信息)"
                privatemessageinfo.Msgto = userinfo.Username
                privatemessageinfo.Msgtoid = DiscuzZc
                privatemessageinfo.Msgfrom = PrivateMessages.SystemUserName
                privatemessageinfo.Msgfromid = 0
                privatemessageinfo.[New] = 1
                privatemessageinfo.Postdatetime = curdatetime
                privatemessageinfo.Folder = 0
                PrivateMessages.CreatePrivateMessage(privatemessageinfo, 0)
            End If
        Else
            DiscuzZc = -1
        End If
    End Function

登陆代码
  Function DiscuzDl(ByVal Name As String, ByVal Pass As String)
        Dim config As GeneralConfigInfo = GeneralConfigs.GetConfig()
        Dim id As Integer = Users.CheckPassword(Name, Pass, True)
        If id <> -1 Then
            '根据积分公式刷新用户总积分
            UserCredits.UpdateUserCredits(id)
            '论坛登陆
            ForumUtils.WriteUserCookie(id, Utils.StrToInt(DNTRequest.GetString("expires"), -1), config.Passwordkey, DNTRequest.GetInt("templateid", 0), DNTRequest.GetInt("loginmode", -1))
            '更新用户最后登陆时间
            Users.UpdateUserLastvisit(id, DNTRequest.GetIP())
        End If
        Return id
    End Function

源错误:


行 687:        If id <> -1 Then
行 688:            '根据积分公式刷新用户总积分
行 689:            UserCredits.UpdateUserCredits(id)
行 690:            '论坛登陆
行 691:            ForumUtils.WriteUserCookie(id, Utils.StrToInt(DNTRequest.GetString("expires"), -1), config.Passwordkey, DNTRequest.GetInt("templateid", 0), DNTRequest.GetInt("loginmode", -1))

没人知道么,  解决这个问题的上来说说. 急!