asp在线实行sql语句的函数

代码如下:

function gfv(str)

    gfv = request.form(str)

end function

sub executesql 

    dim content:content = gfv("content") 

    on error resume next 

    conn.begintrans 

    conn.execute(content) 

    if err.number <> 0 then 

        err.clear 

        conn.rollback 

        conn.close:set conn = nothing 

        call alertbox("抱歉!sql语句输入错误!",2) 

    else 

        conn.committrans 

        conn.close:set conn = nothing 

        call alertbox("恭喜!sql语句执行完毕!",2) 

    end if 

end sub

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!