ASP 基础三 SQL指令

一增删改查

<%
    set conn=server.CreateObject("adodb.connection")
    DSNtemp="DRIVER={SQL Server};SERVER=.;UID=sa;PWD=1234;DATABASE=Ligenyun"
    conn.open DSNtemp
%>

<!-- #include file="conn2.asp" -->
<%
    'delete
    set rs=Server.CreateObject("adodb.recordset")    
    sql="SELECT ID,Sno,Sname,SCName,Score FROM dbo.SC WHERE Score=55"
    rs.open sql,conn,1,3
    if not rs.eof then
        rs.movefirst
        do while not rs.eof
            rs.delete
            rs.movenext
        loop
    end if

    rs.close    
 %>
<%
    'update
    set rs=Server.CreateObject("adodb.recordset")    
    sql="SELECT ID,Sno,Sname,SCName,Score FROM dbo.SC WHERE Score=777"
    rs.open sql,conn,1,3
    rs("Sno")="004新2"
    rs("Sname")="jack4新"
    rs("SCName")="政治新"
    'rs("Score")=777

    rs.update

    rs.close    
 %>
<%
    'insert
    dim objTypeLib 
    Set objTypeLib = CreateObject("Scriptlet.TypeLib") 
    set rs=Server.CreateObject("adodb.recordset")    
    sql="SELECT ID,Sno,Sname,SCName,Score FROM dbo.SC"
    rs.open sql,conn,3,2

    rs.addnew
   
    rs("ID")=objTypeLib.Guid
    rs("Sno")="055sno"
    rs("Sname")="jack55"
    rs("SCName")="语文55"
    rs("Score")=55

    rs.update

    rs.close    


 %>
<%
    'insert 异常捕捉
    
    '捕捉开始
    on error resume next

    dim objTypeLib1 
    Set objTypeLib1 = CreateObject("Scriptlet.TypeLib") 
    set rs=Server.CreateObject("adodb.recordset")    
    sql="SELECT ID,Sno,Sname,SCName,Score FROM dbo.SC"
    rs.open sql,conn,3,2

    rs.addnew
    
    '注释掉主键，让报错
    'rs("ID")=objTypeLib1.Guid
    rs("Sno")="055sno"
    rs("Sname")="jack55"
    rs("SCName")="语文55"
    rs("Score")=55

  
    rs.update

    rs.close    

    '捕捉到异常，输出异常
    if err.number<>0 then
        'response.Write("报错了，请联系IT管理员")
        response.Write(err.Description)
    end if
 %>
<html>
<head title="test hello world">
</head>
 
<body>
    <form method="post" action="simpleform.asp">
         
    </form>
</body>
</html>

posted on 2017-09-30 09:40 biind 阅读(244) 评论(0) 编辑收藏举报