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)

%>

 

"对数'的由来

对数是中学初等数学中的重要内容,那么当初是谁首创“对数”这种高级运算的呢?在数学史上,一般认为对数的发明者是十六世纪末到十七世纪初的苏格兰数学家——纳皮尔(Napier,1550-1617年)男爵。 ...
  • lifan_3a
  • lifan_3a
  • 2014年11月04日 23:27
  • 1070

Jquery操作大全

1 定义: jQuery创始人是美国John Resig,是优秀的Javascript框架,jQuery产生的对象时jQuery独有的,只能自己调用 在变量前加"$"符号(var $variable...
  • wanghang88
  • wanghang88
  • 2016年07月26日 18:34
  • 1167

离散对数(关于方程x^A=B(mod C)的解)

求方程:的解个数 分析:设,那么上述方程解的个数就与同余方程组:的解等价。 设同于方程的解分别是:,那么原方程的解的个数就是 所以现在的关键问题是求方程:的解个数。 这个方程我们需要分...
  • ACdreamers
  • ACdreamers
  • 2013年08月05日 16:11
  • 4359

Highcharts:在对数坐标系中显示零

1、在Highcharts中设置对数坐标系: 1 2 3 yAxis: {\\or xAxis                 ...
  • c1052981766
  • c1052981766
  • 2014年01月02日 15:54
  • 755

对数线性模型:逻辑斯谛回归和最大熵模型

http://blog.csdn.net/pipisorry/article/details/52788947对数线性模型log linear model对数线性模型有:最大熵模型和逻辑斯谛回归。特征...
  • pipisorry
  • pipisorry
  • 2016年10月11日 16:17
  • 1275

算法1:求逆序对数与显著逆序对数(归并排序)

写在前面:由本文开始记录本人的算法刷题之路,日后会不定期更新,欢迎讨论!本系列系本人原创,如需转载或引用,请注明原作者及文章出处。 求逆序对数问题是归并排序的基础问题,显著逆序对数则是逆序对数的升级版...
  • qq_24574309
  • qq_24574309
  • 2017年01月08日 12:23
  • 696

【OpenCV】图像变换(六)对数极坐标变换LogPolar&直方图均衡EqualizeHist

(1)Log-Polar变换 对于二维图像,Log-polar转换表示从笛卡尔坐标到极坐标的变换。关于笛卡尔坐标向极坐标的变换,这个数学上的变换,我相信在中学很多人就明白,在这里就不做过多的赘述。 ...
  • w12345_ww
  • w12345_ww
  • 2015年04月29日 10:05
  • 2442

离散对数(例题+详解+代码模板)

题意: 给定x,n,m,求x^y=n(mod m)的解(其中m是素数) 求解一个最小的x满足给定的方程Bx == N (mod P) 使用baby_step_giant_st...
  • dreamzuora
  • dreamzuora
  • 2016年10月06日 17:18
  • 489

最大化对数似然函数——牛顿方法(The Newton's method)

描述一种相比梯度下降更快的迭代收敛算法——牛顿方法
  • blackyuanc
  • blackyuanc
  • 2017年04月17日 16:02
  • 1924

告诉你为什么数据要取对数

告诉你为什么数据要取对数 2016-06-07 16:04 746人阅读 评论(0) 收藏 举报  分类: 机器学习(13)  平时在一些数据处理中,经常会把原...
  • seasermy
  • seasermy
  • 2017年01月13日 14:47
  • 616
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Asp+Sql 对数据库的各种操作
举报原因:
原因补充:

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