用表单来提交sql

　2009-04-27 16:15:17　来源：WEB开发网　闂備線娼уΛ鎾箯閿燂拷

濠电姭鎷冮崨顓濈捕闂侀潧娲ゅú銊╁焵椤掍胶鈯曢柕鍥╁仧缁辩偤鏁撻敓锟�闂備線娼уΛ鎾箯閿燂拷　　闂備胶枪缁绘鈻嶉弴銏犳瀬闁绘劖顐煎☉妯锋瀻闁归偊鍓涘▔姘舵⒑閸涘⿴娈旀繛灞傚妼閳绘捇骞嬪┑鎰濡炪倖姊婚崢褏鎲撮敓锟�

核心提示：Gimme your:First Name: Last Name: Age: >列表 D: buildSQLInsert函数的最终版，<%function buildSQLInsert( targetTable, omitFields)iStr = "insert into " & ta

Gimme your:

First Name:

Last Name:

Age:

>

列表 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 & ", "