If RsWorkUserInfo.State = 1 Then RsWorkUserInfo.Close End If RsWorkUserInfo.Open StrSql,Conn,1,1
If Not RsWorkUserInfo.Eof Then LoginName = RsWorkUserInfo("LoginName") UserName = RsWorkUserInfo("UserName") Password = RsWorkUserInfo("Password") End if
RsWorkUserInfo.Close Set RsWorkUserInfo = Nothing
''''//----------------------------(2)------------------------------- StrSql = "Select UsersId, LoginName, UserName, Password" StrSql = StrSql & " From Users" StrSql = StrSql & " Where UsersId=" & SqlStr(tUserID) Set RsFind = Conn.Execute(StrSql)
If Not RsFind.Eof Then LoginName = RsFind("LoginName") UserName = RsFind("UserName") Password = RsFind("Password") End if
RsFind.Close Set RsFind = Nothing
''''//修改方法 ''''//----------------------------(1)------------------------------- Set RsWorkUserInfo = Server.CreateObject("ADODB.RecordSet")
If RsWorkUserInfo.State = 1 Then RsWorkUserInfo.Close End If RsWorkUserInfo.Open StrSql,Conn,1,3
IF Not RsWorkUserInfo.Eof Then RsWorkUserInfo("LoginName") = LoginName RsWorkUserInfo("UserName") = UserName RsWorkUserInfo("Password") = Md5(Password) RsWorkUserInfo.Update Update = True Else Update = False End if
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
