| 放松生活网（Relaxlife.net）Asp+Sql 个人总结对数据库的各种操作
/********************************************************************** * * 1,---------Asp+Sql 个人总结对数据库的各种操作 * * 如果需要更多代码，请到：http://www.relaxlife.net 感觉好帮我顶！ * * *********************************************************************/ <% '//查询方法 '//----------------------------(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) %> [ 本帖由 cexo255 最后编辑于 2005-4-9 08:25 ] |