您的位置：首页 > 编程语言 > ASP

Asp+Sql 个人总结对数据库的各种操作

2005-05-10 11:01 706 查看

放松生活网（Relaxlife.net）Asp+Sql 个人总结对数据库的各种操作

/**********************************************************************

*

* 1,---------Asp+Sql 个人总结对数据库的各种操作

*

* 如果需要更多代码，请到：http://www.relaxlife.net 感觉好帮我顶！

*

*

*********************************************************************/

<%

'//查询方法

'//----------------------------(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)

%>

[ 本帖由 cexo255 最后编辑于 2005-4-9 08:25 ]

作者Blog：http://blog.csdn.net/cexo255/

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航