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

一.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 

   
二.SQL修改数据库方法

方法一.

   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) 

三.添加数据库记录方法

方法一.

   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) 

      
四.SQL删除数据库记录方法

方法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)