asp在线执行sql语句的函数
发布时间:2016-12-29 来源:查字典编辑
摘要:复制代码代码如下:functiongfv(str)gfv=request.form(str)endfunctionsubexecutesql...
复制代码 代码如下:
functiongfv(str)
gfv=request.form(str)
endfunction
subexecutesql
dimcontent:content=gfv("content")
onerrorresumenext
conn.begintrans
conn.execute(content)
iferr.number<>0then
err.clear
conn.rollback
conn.close:setconn=nothing
callalertbox("抱歉!sql语句输入错误!",2)
else
conn.committrans
conn.close:setconn=nothing
callalertbox("恭喜!sql语句执行完毕!",2)
endif
endsub