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

欢迎您访问我爱IT技术网，今天小编为你分享的编程技术是：【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

'//修改方法
'//----------------------------(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)

%＞

以上所分享的是关于Asp+Sql 对数据库的各种操作，下面是编辑为你推荐的有价值的用户互动：

　　相关问题：SQL数据库怎么操作？

　　答：命令行： 1、显示当前数据库服务器中的数据库列表：mysql> SHOW DATABASES; 2、建立数据库：mysql> CREATE DATABASE 库名; 3、建立数据表：mysql> USE 库名;mysql> CREATE TABLE 表名 (字段名 VARCHAR(20), 字段名 CHAR(1)); 4、删除数据库：mys... >>详细

　　相关问题：搜集SQL常用的操作语句

　　答：SQL分类： DDL—数据定义语言(CREATE，ALTER，DROP，DECLARE) DML—数据操纵语言(SELECT，DELETE，UPDATE，INSERT) DCL—数据控制语言(GRANT，REVOKE，COMMIT，ROLLBACK) 首先,简要介绍基础语句： 1、创建数据库 CREATE DATABASE database-name 2、... >>详细

　　相关问题：JAVASCRIPT如何操作数据库？

　　答：//创建数据库连接对象 var conn = new ActiveXObject("ADODB.Connection"); //创建数据集对象 var rs = new ActiveXObject("ADODB.Recordset"); try{ //数据库连接串，具体配置请参考：http://www.connectionstrings.com/ //如果不知道如何配置... >>详细