| ＜% '//查询方法 '//----------------------------(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) %＞ |
当前位置：主页>教程>网络编程>ASP教程>Asp+Sql 对数据库的各种操作
Asp+Sql 对数据库的各种操作
更新时间：2007-05-27 点击：
CSDN
tags：
0
您可以：
点评它！（0条点评） 
分享它！
