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

明輝手游網(wǎng)中心：是一個免費(fèi)提供流行視頻軟件教程、在線學(xué)習(xí)分享的學(xué)習(xí)平臺！

Asp+Sql 對數(shù)據(jù)庫的各種設(shè)置

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

[摘要]<%'//查詢方法'//----------------------------(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)
       
%>
主站蜘蛛池模板： 亚洲ay | 日日淫| 日本 欧美 在线 | 五月婷婷综合激情 | 欧美特黄一级视频 | 亚洲主播在线 | 亚洲视频免费播放 | 日本视频a| 青青草 久久久 | 网站一级片 | 资源站在线 | 日韩黄色三级 | 亚洲最大免费视频网 | 天天影视色 | 日本免费中文字幕在线看 | 欧美一区二区精品系列在线观看 | 天堂a免费视频在线观看 | 亚洲视频在线观看 | 婷婷四房综合激情五月性色 | 片在线观看 | 桃花视频全免费观看韩国 | 午夜毛片不卡高清免费 | 亚洲欧美四级在线播放 | 网站在线观看 | 日本在线看| 青娱乐在线视频免费观看 | 又粗又硬又大又爽免费观看 | 日本亚洲最大的色成网站www | 日韩成人影片 | 色综合天天综合网国产国产人 | 在线久色 | 日日摸夜夜添夜夜添97 | 日日摸夜夜添夜夜添97 | 一级特级女人18毛片免费视频 | 色综合成人网 | 亚洲婷婷综合网 | 欧美午夜视频在线 | 香港三级理论在线观看网站 | 小黄鸭b站视频 | 日韩黄色在线播放 | 色橹橹|