Asp+Sql 对数据库总结
来源:互联网 发布:淘宝进货哪里的好 编辑:程序博客网 时间:2024/06/06 01:16
/**********************************************
************************
*
* 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 对数据库总结
- Asp+Sql 个人总结对数据库的各种操作
- Asp+Sql 对数据库的各种操作
- Asp+Sql 对数据库的各种操作
- ASP连接SQL Server数据库总结
- SQL Server总结(2):对数据库访问
- asp连SQL数据库
- asp备份SQL数据库
- ASP数据库语法总结
- ASP数据库语法总结
- ASP数据库语法总结
- ASP数据库语法总结
- ASP数据库语法总结
- asp 数据库操作总结
- ASP数据库语法总结
- Asp.net对数据库操作
- ASP对数据库的操作方法
- ASP.NET下对远程SQL SERVER数据库的备份和恢复的存储过程
- 无法停止USB设备通用卷的解决办法
- 动态网站制作指南
- asp中使用div方法!
- MicrosoftAjax.Function.js 中用call 和apply方法实现回调和委托的代码
- 如何设置SQl存储过程调用参数为空
- Asp+Sql 对数据库总结
- dns 服务器架设
- EXT的入门谁来指点我
- C#代码规范
- 17个ASP编程基础典型代码
- 第9章 接口
- 智能导航技术的调查报告
- vs 工程目录设置等等
- 手把手教你做ASP.NET留言本