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

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

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)
       
%>
主站蜘蛛池模板： 日韩美女在线 | 欧洲性xxxx免费视频下载软件 | 日韩 欧美 亚洲国产 | 日本黄视频在线播放 | 中文字幕一区在线观看视频 | 欧美一区二区在线观看 | 最新版天堂中文在线官网 | 天天做天天爱夜夜爽毛片毛片 | 亚洲ccc36| 特黄一级视频 | 日本在线看小视频网址 | 日韩国产有码在线观看视频 | 色无极在线影院 | 四虎国产一区二区三区 | 亚洲高清免费在线观看 | 天天操天天干天天干 | 中文字幕专区高清在线观看 | 亚洲专区一 | 四虎a456tncom | 婷婷色网站 | 色视在线 | 日韩精品一区二区三区免费视频 | 香蕉依人| 泰剧不期而爱第三季免费全集观看 | 天天狠操 | 天天舔天天爱 | 中文字幕日韩专区 | 四月天中文字幕 | 手机看片福利在线 | 一二三四在线观看日本 | 亚洲高清在线播放 | 亚洲视频欧美 | 天天操天天摸天天碰 | 一区二区视频在线播放 | 中文字幕在线视频不卡 | 五月婷婷丁香花 | 亚洲视频在线播放 | 一级一级女人真片 | 日本一本视频 | 日本韩国欧美在线观看 | 日韩a一级欧美一级在线播放 |