asp mysql 设置编码_ASP对数据库各种操作的代码
'//查询方法
'//----------------------------(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 mysql 设置编码_ASP对数据库各种操作的代码相关推荐
- asp mysql 更新数据_Asp更新数据库的几种方法
Asp更新数据库的几种方法 asp中插入与修改数据的几种方式.为了方便解说,我们先建立一个名为test的表,表内只有两个数据 项:username和email,分别用来存储用户名与邮箱地址. 1.利用 ...
- asp mysql 符号乱码_asp MYSQL出现问号乱码的解决方法
asp MYSQL出现问号乱码的解决方法 发布时间:2016-06-18 来源: 点击: 次 这样的问题是因为 数据库字符集,表字符集,字段字符集都设为:gbk_chinese_ci 注意数据库连接串 ...
- 【php + MySQL + Android】php对数据库进行操作（1）
前言 自己要做一个Android App,涉及到服务器端的用户数据管理,而网络上的的资源往往是只讲一个方面.所以自己每完成一段工作,会将开发过程记录下来,并供大家参考,相关文章放在专栏 [php + ...
- asp mysql添加数据_ASP：ado.net 实例向数据库添加数据。
我在这使用的是老师给的数据库 1,web窗体设计. 设计添加图书窗体,窗体属性有图书种类(下拉列表框控件),图书名称,作者,编号,出版社,价格均为文本框,日期(第三方日期控件),两个按钮分别为添加和清 ...
- asp mysql 符号乱码_asp +mysql中文乱码解决
困扰了我多天的ASP与MySQL操作中中文乱码问题终于得到了解 决,真是很有成就感:多天以来,在探索使用ASP查询以及写入 MySQL数据库中汉字的成功实现,我花费了大量的时间,几乎查看 了网络上所有 ...
- mysql设置乐观锁_mysql数据库怎么设置乐观锁
乐观锁与悲观锁不同的是,它是一种逻辑上的锁,而不需要数据库提供锁机制来支持当数据很重要, 回滚或重试一次需要很大的开销时,需要保证操作的ACID性质, 此时应该采用悲观锁而当数据对即时的一致性要求不高 ...
- ubuntu mysql 设置编码_ubuntu下修改mysql默认编码问题
我的ubuntu的版本是11.10的.myql是5.8的.上次是用源代码cmake默认安装的,默认安装的目录在/usr/local/mysql.因为默认安装,所以server默认的字符集是latin. ...
- linux mysql设置编码_linux下修改mysql编码
通过MySQL命令行修改:mysql> set character_set_client=utf8;Query OK, 0 rows affected (0.00 sec)mysql> s ...
- mysql 设置编码
create table mytb( id int primary key auto_increment, name varchar(50) ) character set utf8; -- 设置表 ...
最新文章
- 创建节约内存的JavaBean
- python函数概述_Python概述
- 剪映导出帧率选多少_剪映帧率怎么设置?剪映帧率设置方法
- Nancy之基于Self Hosting的补充小Demo
- HarmonyOS之bytrace命令的使用
- vb的GUID生成算法
- mysql linux-syn25000是什么_当MySQL数据库遇到Syn Flooding
- rds基于什么开发_java rds
- 珍惜生命 远离中国足球
- webmin安装_如何在Ubuntu 18.04上安装Webmin
- 求定积分 c++实现
- 支付宝支付提示 4006 ISV权限不足，建议在开发者中心检查签约是否已经生效
- 抖音被“逼”出个“视频朋友圈”
- excel教程自学网_企业Office办公软件自学视频教程word/excel/ppt 2003 2013 2016全套
- 个人辅助带后台纯HTML网站源码
- 分布式系统的时间问题
- Windows 10无法显示无线网络连接
- 回程路由 的作用 为什么 什么时候需要回程路由
- 设备树学习（二十三、aliases节点分析）
- 【APICloud系列|36】 mobVerify免费短信验证码的实现