六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

Asp+Sql 對數據庫的各種設置

發表時間：2024-06-07 來源：明輝站整理相關軟件相關文章人氣：

[摘要]<%'//查詢方法'//----------------------------(1)------------------------------- Set RsWorkUserInfo = Server.CreateObject("ADODB.Rec...
<%

'//查詢方法
'//----------------------------(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)
       
%>
主站蜘蛛池模板： 天天插天天干 | 色女人综合| 日本高清不卡在线 | 欧美亚洲h在线一区二区 | 日日碰日日摸日日澡视频播放 | 手机看片福利日韩国产 | 日韩 欧美 综合 | 特级欧美老少乱配 | 日日夜干 | 中文字幕网资源站永久资源 | 新婚被黑人睡走中文字幕 | 中国国产一国产一级毛片视频 | 又大又粗又长又硬好爽国产 | 青草青草久热精品视频在线观看 | 亚洲欧洲精品一区二区三区 | 深夜福利网站在线 | 午夜5060网| 天天操天天摸天天曰天天干天天弄天天干 | 四虎在线永久 | 无码精品一区二区三区免费视频 | 人人看人人做 | 天天躁狠狠躁夜躁2021 | 探花视频免费观看高清 | 手机看片福利日韩国产 | 青娱在线视频 | 四虎国产永久免费久久 | 色综合久久88色综合天天提莫 | 中文字幕在线播放第一页 | 中文字幕日韩一区二区不卡 | 我怒了在线播放完整版 | 色综合久久一本首久久 | 四虎免费视频 | 青娱乐最新地址 | 亚洲成a人片在线观看中文 亚洲成a人片在线观看精品 | 四虎在线观看视频 | 四虎影院在线看 | 一二三四影视在线观看免费视频 | 在线观看视频国产 | 日本韩国理论片大全在线 | 天天晚上开着日 | 亚洲成aⅴ人片在线观 |