Asp+Sql 对数据库的各种操作分享

<%

‘//查询方法 ‘//—————————-(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)

%> —-想了解更多的linux相关异常处理怎么解决关注

(0)
上一篇 2022年9月8日 上午10:47
下一篇 2022年9月8日 上午10:59

相关推荐

发表回复

登录后才能评论