<%
' //查询方法
' //----------------------------(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)
%>
' //查询方法
' //----------------------------(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)
%>