您现在的位置是:网站首页> 编程资料编程资料

asp在线执行sql语句的函数_应用技巧_

2023-05-25 245人已围观

简介 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

-六神源码网