繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > Asp+Sql 对数据库的各种操作
- ASP
- remote script文档(转载自微软)(八)
- 不能ASP图像组件来生成图像的ASP计数器程序(二)
- 不能ASP图像组件来生成图像的ASP计数器程序(三)
- 用ASP发送邮件
- 用ASP进行网络打印功能
- 用ASP实现号码转换
- 如何用ASP创建日志文件
- 二十八条改善 ASP 性能和外观的技巧(1-7)
- 二十八条改善 ASP 性能和外观的技巧(8-14)
- 二十八条改善 ASP 性能和外观的技巧(15-21)
- 二十八条改善 ASP 性能和外观的技巧(22-28)
- asp实现在web中显示电子表格数据（一）显示数据表格的应用
- asp实现在web中显示电子表格数据（二）生成HTML表格
- asp实现在web中显示电子表格数据（三）创建数据表列表和名字范围
- asp实现在web中显示电子表格数据（四）创建文件选择列表
- Carello Web 使 ASP 源码暴露 (APP,缺陷)
- MS IIS虚拟主机ASP源码泄露 (MS,缺陷)
- 虚拟web目录容易泄露ASP源代码 (MS,缺陷)
- MS IIS server的ASP安全缺陷 (MS,缺陷)
- 用WinSock设计Chat程序(转)
ASP 中的 Asp+Sql 对数据库的各种操作
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-08-14 浏览: 91 ::
收藏到网摘: n/a
＜%
'//查询方法
'//----------------------------(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)
%＞
评论 (0) All
