本站为一个PHP个人门户网站,提供一些代码技术文章、提交免费空间消息、一些代码、让学习更轻松-PHP-小戴
你当前的位置:首页>>技术文章>>asp技术文章
小戴个人门户站导航 PHP小戴个人门户站 关于站长web个人门户站 设计服务-网络公司,建设网站,企业logo设计,包装设计,网站设计,整站程序开发 联系站长-小戴个人门户站
  • 技术文章排行榜
文章数据加载中...
  • 免费空间排行榜
空间数据加载中...

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)------------------------------- 
    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) 

    %>
  • [时间:2008-11-13 22:47:32][点击:]

  • 上下篇文章加载中...
返回首页 | 关于站长 | 联系站长| 设计服务 | 建站资源 | 技术文章 | 娱乐中心 | 免费空间 | 友情链接 | 留言蜚语 | 网站地图| 网友投稿|RSS订阅 
QQ:277728291 联系方式:15824537062 mail:27772821@163.com
版权所有 2008-2018 PHP小戴个人门户站-编程技术和空间和文章共享-www.phpxd.com Copyright 2008 phpxd.com