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

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

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

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

[摘要]<%'//查詢方法'//----------------------------(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)
       
%>
主站蜘蛛池模板： 日韩成人在线免费视频 | 亚洲第一视频在线观看 | 天天干天天拍天天操 | 一级午夜| 五月婷综合| 日韩永久在线观看免费视频 | 日本大片免a费观看在线 | 在线观看一区 | 人与禽交免费网站视频 | 青草青草视频2免费观看 | 亚洲欧美国产精品专区久久 | 在线看日韩 | 四虎影视在线影院www | 午夜视频免费在线 | 午夜视频在线观看一区 | 日韩高清不卡在线 | 日本在线观看一级高清片 | 天天综合色网 | 日韩操穴 | 日本视频在线观看播放免费 | 日韩视频免费观看 | 小明永久免费看aⅴ片 | 天天摸夜夜添狠狠添2018 | 青草视频国产 | 午夜精品久久久久久久99热 | 色综合小说天天综合网 | 青草资源 | 日本不卡在线观看免费v | 亚洲综合色一区 | 午夜视频免费在线播放 | 四虎在线永久视频观看 | 中文字幕在线观看不卡视频 | 亚洲综合色丁香婷婷六月图片 | 亚洲国产成人精品区 | 又大又硬又粗又爽免费 | 热久久国产欧美一区二区精品 | 午夜在线播放免费人成无 | 青春草视频在线播放 | 中文国产成人精品久久一 | 日本在线网址 | 一级免费a |