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) 
  
  %＞
  
• [时间：2008-11-13 22:47:32][点击:]

上下篇文章加载中...