<%

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

%>

如果本文没有解决您的问题，请进老妖怪开发者社区提问