列表 D: buildSQLInsert函数的最终版。

<%
function buildSQLInsert( targetTable, omitFields)
　　　　　　　　　iStr = "insert into " & targetTable & " "
　　　　　　　　　vStr = "values ("
　　　　　　　　　nStr = "("
　　　　　　　　　 在表单集合中循环，并建立起SQL语句的组成部分
　　　　　　　　　for each x in request.form
　　　　　　　　　　　　　　　　　　fieldName = uCase(x)
　　　　　　　　　　　　　　　　　　 判断字段是否被省略？
　　　　　　　　　　　　　　　　　　if inStr(uCase(omitFields),x) = 0 then
　　　　　　　　　　　　　　　　　　　　　　　fieldData = replace(request.form(fieldName), _
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　"", "")
　　　　　　　　　　　　　　　　　　　　　　　 如果没有数据，就插入 NULL
　　　　　　　　　　　　　　　　　　　　　　　if trim(fieldData) = "" then
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　fieldData = "NULL"
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　vStr = vStr & fieldData & ", "
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　nStr = nStr & fieldName & ", "
　　　　　　　　　　　　　　　　　　　　　　　else
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　typeDelimPos = inStr(fieldName, "_")
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　if typeDelimPos = 0 then
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 是文本字段
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 建立字段名列表
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　nStr = nStr & fieldName & ", "