ASP 基础三 SQL指令

一增删改查

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>

秒客网

ASP 基础三 SQL指令

相关文章