نسخة الكود كما يلي:
FunctionGFV (STR)
gfv = request.form (str)
الوظيفية
subexecutesql
dimcontent: content = gfv ("المحتوى")
onerrorresumenext
Conn.Begintrans
conn.execute (المحتوى)
iferr.number <> 0then
err.clear
conn.rollback
conn.close: setConn = لا شيء
يتم إدخال عبارة Callalertbox ("آسف! SQL STRIME بشكل غير صحيح!" ، 2)
آخر
conn.CommitTrans
conn.close: setConn = لا شيء
Callalertbox ("تهانينا! تم الانتهاء من تنفيذ بيان SQL!" ، 2)
Endif
ينتهي