<%

'//查询方法
'//----------------------------(1)-------------------------------
  Set RsWorkUserInfo = Server.CreateObject("ADODB.RecordSet")
 
  StrSql = "Select UsersId, LoginName, UserName, Password"
  StrSql = StrSql & " From Users"
  StrSql = StrSql & " Where UsersId=" & SqlStr(tUserID)
 
  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")
 
  StrSql = "Select UsersId, LoginName, UserName, Password"
  StrSql = StrSql & " From Users"
  StrSql = StrSql & " Where UsersId=" & SqlStr(tUserID)
 
  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

  RsWorkUserInfo.Close
  Set RsWorkUserInfo = Nothing
 
'//----------------------------(2)-------------------------------  
  StrSql = "Update Users"
  StrSql = StrSql & " Set LoginName=" & SqlStr(LoginName) & ", UserName=" & SqlStr(UserName) & ", Password=" & SqlStr(Password)
  StrSql = StrSql & " Where UsersId=" & SqlStr(tUserID)
  Conn.Execute(StrSql)



'//添加方法
'//----------------------------(1)-------------------------------
  Set RsWorkUserInfo = Server.CreateObject("ADODB.RecordSet")
 
  StrSql = "Select UsersId, LoginName, UserName, Password"
  StrSql = StrSql & " From Users"
  StrSql = StrSql & " Where UsersId=" & SqlStr(tUserID)
 
  If RsWorkUserInfo.State = 1 Then
    RsWorkUserInfo.Close
  End If
  RsWorkUserInfo.Open StrSql,Conn,1,3
 
  If RsWorkUserInfo.Eof Then
    RsWorkUserInfo.AddNew
    RsWorkUserInfo("UsersID") = tUserId
    RsWorkUserInfo("LoginName") = LoginName
    RsWorkUserInfo("UserName") = UserName
    RsWorkUserInfo("Password") = Md5(Password)
    RsWorkUserInfo.Update
    NewRecord = True
  Else
    NewRecord = False
  End if

  RsWorkUserInfo.Close
  Set RsWorkUserInfo = Nothing
 
'//----------------------------(2)-------------------------------  
  StrSql = "Insert Into Users(UsersId, LoginName, UserName, Password)"
  StrSql = StrSql & " Values(" & SqlStr(tUserID) & "," &  SqlStr(LoginName) & "," & SqlStr(UserName) & "," & SqlStr(Password) & ")"
  Conn.Execute(StrSql)


'//删除方法
'//----------------------------(1)-------------------------------
  Set RsWorkUserInfo = Server.CreateObject("ADODB.RecordSet")
 
  StrSql = "Delete From Users"
  StrSql = StrSql & " Where UsersId=" & SqlStr(tUserID)
 
  If RsWorkUserInfo.State = 1 Then
    RsWorkUserInfo.Close
  End If
  RsWorkUserInfo.Open StrSql,Conn,1,3
 
  RsWorkUserInfo.Close
  Set RsWorkUserInfo = Nothing
 
'//----------------------------(2)-------------------------------  
  StrSql = "Delete From Users"
  StrSql = StrSql & " Where UsersId=" & SqlStr(tUserID)
  Conn.Execute(StrSql)
 
%>