日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置:首頁文章首頁 IT學院 IT技術

Asp與Sql構建網站系統中對數據庫的各種操作的函數代碼分享

作者:  來源:  發布時間:2011-6-24 15:31:53  點擊:

本文提供給大家分享的是關于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)-------------------------------
 

相關軟件

相關文章

文章評論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
主站蜘蛛池模板: 供货合同| 骨骺线闭合增高9厘米| 算24点| 朱迅身高| 千山暮雪演员表| 正在恋爱中 电视剧韩剧免费全集结局| 六一儿童节对联七字| 淮剧赵五娘| 和平精英捏脸码| 免费完整版在线观看| 凤凰卫视节目表| 妈妈的脊背简谱| 金马电影网| 川子| 卜冠今| 节目单| 英语书七年级下册单词表| 女人香韩国电影| cctv17农业农村频道在线直播| 你知道我在等你吗吉他谱| 免费看黄在线看| 冲出月亮岛演员表| 王琳琳个人资料及简历| 烽火硝烟里的青春演员表| 电影白洁少妇完整版| 法医秦明1至6部顺序| 演员于和伟简历| 饥渴女人的外遇| 供货合同| 山东教育电视台直播| cope消除| 电影继父| 珠帘玉幕图片| 马会传真论坛13297соm查询官网| 李鸿杰| 日本xxx.| 不得不爱吉他谱| 英语书七年级下册单词表| 复仇之路| 帮妈妈做饭看图写话二年级| 热天午后|