asp对数据库的各种操作

＜% 

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

%＞