ASP查询数据RS转换成COMMAND

RS版本:

IF(troubleCatalog="1" or troubleCatalog="2" or troubleCatalog="3" or troubleCatalog="4" or troubleCatalog="5" or troubleCatalog="6" or troubleCatalog="7" or troubleCatalog="8" or troubleCatalog="9" or troubleCatalog="10" or troubleCatalog="11" or troubleCatalog="12" or troubleCatalog="13" or troubleCatalog="164") Then

    sql="select dom_name from domainlist where dom_name='"&productName&"' and d_owner = "&mazey
    conn.open
    rs.open sql,conn,1,1

    If Not rs.eof Then

        rs.close

        conn.close

    Else

        rs.close 

        conn.close

        returnErr "mazey"

        response.end

    End if

End If 

 

COMMAND版本:

IF(troubleCatalog="1" or troubleCatalog="2" or troubleCatalog="3" or troubleCatalog="4" or troubleCatalog="5" or troubleCatalog="6" or troubleCatalog="7" or troubleCatalog="8" or troubleCatalog="9" or troubleCatalog="10" or troubleCatalog="11" or troubleCatalog="12" or troubleCatalog="13" or troubleCatalog="164") Then

sql="select dom_name from domainlist where dom_name='"&productName&"' and d_owner = "&mazey

    conn.open
    Set cmd=Server.CreateObject("adodb.Command")
    set cmd.ActiveConnection=conn
    cmd.CommandText=sql
    cmd.CommandType=1
    cmd.Parameters.Append cmd.CreateParameter("dom_name",200,1,64,dom_name)
    set rs=cmd.execute()
    set cmd.ActiveConnection=nothing
    set cmd=nothing

    If Not rs.eof Then

        conn.close

    Else

        conn.close

        returnErr "mazey"

        response.end

    End if

End If



Error:





Modify:

ADD conn.close After IF...ELSE...