Asp+Sql 对数据库总结
2009-11-07 12:31
393 查看
/**********************************************
************************
*
* 1,---------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)
%>
************************
*
* 1,---------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优化大总结之 百万级数据库优化方案
- sql 查询所有数据库、表名、表字段总结
- 程序员面试金典——解题总结: 9.15 数据库 15.1编写SQL查询,列出租住不止一套公寓的承租人。
- T-SQL复习总结--用T-SQL创建,修改,管理,删除数据库
- QT笔记:数据库总结(五)之SQL模型类-QDataWidgetMapper类
- JAVA数据库操作方面的知识总结(java.sql.*)
- 数据库SQL优化大总结之 百万级数据库优化方案
- [数据库] SQL语句select简单记录总结
- 数据库及SQL----常用知识点总结
- SQL第五章 管理事务和数据库 导图总结
- SQL 数据库语言分析总结(二)
- 数据库SQL优化大总结之 百万级数据库优化方案
- 数据库SQL优化大总结之 百万级数据库优化方案
- 数据库SQL优化大总结之 百万级数据库优化方案
- 数据库SQL优化大总结
- 数据库SQL优化大总结之 百万级数据库优化方案
- 数据库SQL优化大总结之 百万级数据库优化方案
- 数据库常用SQL总结
- Asp+Sql 对数据库的各种操作