欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

asp在线执行sql语句的函数

程序员文章站 2022-06-05 09:13:33
复制代码 代码如下:function gfv(str)     gfv = request.form(...

复制代码 代码如下:

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