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

转载 2007年10月13日 01:13:00
<%

'//查询方法
'//----------------------------(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用户登录及管理系统

  • 2009年03月25日 23:21
  • 78KB
  • 下载

万能后台管理系统(asp+sql)

  • 2008年09月17日 14:58
  • 1013KB
  • 下载

asp+sql班级信息管理系统

  • 2010年04月21日 12:30
  • 5.42MB
  • 下载

asp+sql 网上购物系统 完整源码

  • 2008年09月29日 15:20
  • 87KB
  • 下载

asp+sql学生成绩管理系统

  • 2011年05月05日 08:17
  • 257KB
  • 下载

ASP连接sql server实例解析

1、首先确定自己的iis没有问题2、其次确定自己sqlserver没有问题然后在iis的目录wwwroot里,建立一个文件 名为testSqlServer.asp,编写代码如下即可...
  • xys_777
  • xys_777
  • 2010-06-26 18:42:00
  • 37709

ASP对数据库的操作方法

ASP与数据库-连接、写入、修改、删除、显示代码属性与方法         PageCount 属性: 决定 Recordset 对象包括多少“页”的数据。        这里的“页”是数据记录...
  • QIU1988YANG
  • QIU1988YANG
  • 2017-01-23 10:56:44
  • 2568

<em>ASP</em>.NET+2.0<em>%2BSQL</em>+Server网络应用系统开发案例精解源文件

<em>ASP</em>.NET+2.0<em>%2BSQL</em>+Server网络应用系统开发案例精解源文件 2009-05-26 上传大小:5.89MB 所有的源代码加数据库 所有的源代码加数据库,值得下来研究一下,希望...
  • 2018年04月11日 00:00

渗透测试:SQL注入攻击(ASP)

分类: 渗透测试 SQL注入攻击是黑客对数据库进行攻击的常用手段之一。随着B/S模式应用开发的发展,使用这种模式编写应用程序的程序员也越来越多。但是由于程序员的水平及经验也参差不齐,相当大一部分程序员...
  • FireHell
  • FireHell
  • 2014-11-29 15:34:08
  • 3920

<em>ASP</em>.NET2.0+<em>SQL</em>2005项目开发.rar

\\MyElectCourse \\DB \\MyElectCourse.sql 网上选课系统数据数据库创建脚本 \\My...www.qupan.com_15125_网上书店管理系统(毕业设计<em>ASP</em>.NET<em>%2bSQL</em>2000).rar 立即...
  • 2018年04月18日 00:00
收藏助手
不良信息举报
您举报文章:Asp+Sql 对数据库的各种操作
举报原因:
原因补充:

(最多只允许输入30个字)