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