Asp+Sql 個人總結對數據庫的各種操作 - 中國WEB開發者網絡 (http://www.webasp.net) -- 技術教程 (http://www.webasp.net/article/) --- Asp+Sql 個人總結對數據庫的各種操作 (http://www.webasp.net/article/18/17667.htm) |
| -- 作者：未知 -- 發佈日期： 2005-04-19 |
| 放鬆生活網（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) %> |
| webasp.net |