＜%
'//查询方法
'//----------------------------(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) & \& SqlStr(UserName) & \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(UserName) & \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)
%＞
