正在看的db2教程是:用表单来提交sql（转）3。 列表 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 & ", "                                      vStr = vStr & [b][1] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_2.html][2][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_3.html][3][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_4.html][4][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_5.html][5][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_2.html]下一页[/url] [/b] 正在看的db2教程是:用表单来提交sql（转）3。"" & fieldData & ", "                                 else                                       字段是其它类型                                      fieldType = left(fieldName, typeDelimPos - 1)                                      fieldName = mid(fieldName, typeDelimPos + 1)                                       把字段名加入名称列表                                      nStr = nStr & fieldName & ", "                                       把字段类型变成大写以确保匹配                                      select case uCase(fieldType)                                               case "NUM"                                               vStr = vStr & fieldData & ", "                                               把不明类型按文本型处理                                               case else                                               vStr = vStr & "" & fieldData & ", "                                      end select                                 end if        &[b][url=http://www.1sucai.cn/shujuku/db2/shujuku_7192.html]上一页[/url]  [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192.html][1][/url] [2] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_3.html][3][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_4.html][4][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_5.html][5][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_3.html]下一页[/url] [/b] 正在看的db2教程是:用表单来提交sql（转）3。nbsp;                      end if                   end if          next           把结尾的", " 从我们建立的字符串中去掉          vStr = left(vStr, len(vStr) - 2) & ")"          nStr = left(nStr, len(nStr) - 2) & ") "           把SQL语句整合起来          buildSQLInsert = iStr & nStr & vStr end function if trim(request("fName")&request("lname")&request("age")) <> "" then          response.write( buildSQLInsert("") & " <")          response.write( buildSQLInsert("NUM_AGE") & " ")          response.write( buildSQLInsert("lname,fname") & " ")          response.write( buildSQLInsert("mycheckbox,fname") &          =<" <") else %>

Gimme your: First Name: < Last Name: < Age: <

<% end if   %> 列表 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 & ", "         [b][url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_2.html]上一页[/url]  [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192.html][1][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_2.html][2][/url] [3] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_4.html][4][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_5.html][5][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_4.html]下一页[/url] [/b] 正在看的db2教程是:用表单来提交sql（转）3。                        nStr = nStr & fieldName & ", "                        else                                 typeDelimPos = inStr(fieldName, "_")                                 if typeDelimPos = 0 then                                       是文本字段                                       建立字段名列表                                      nStr = nStr & fieldName & ", "                                      vStr = vStr & "" & fieldData & ", "                                 else                                       字段是其它类型                                      fieldType = left(fieldName, typeDelimPos - 1)                                      fieldName = mid(fieldName, typeDelimPos + 1)                                       把字段名加入名称列表                                      nStr = nStr & fieldName & ", "                                       把字段类型变成大写以确保匹配                                      select case uCase(fieldType)                                         &n[b][url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_3.html]上一页[/url]  [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192.html][1][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_2.html][2][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_3.html][3][/url] [4] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_5.html][5][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_5.html]下一页[/url] [/b] 正在看的db2教程是:用表单来提交sql（转）3。bsp;     case "NUM"                                               vStr = vStr & fieldData & ", "                                               把不明类型按文本型处理                                               case else                                               vStr = vStr & "" & fieldData & ", "                                      end select                                 end if                               end if                   end if          next           把结尾的", " 从我们建立的字符串中去掉          vStr = left(vStr, len(vStr) - 2) & ")"          nStr = left(nStr, len(nStr) - 2) & ") "           把SQL语句整合起来          buildSQLInsert = iStr & nStr & vStr end function if trim(request("fName")&request("lname")&request("age")) <> "" then          response.write( buildSQLInsert("") & " <")          response.write( buildSQLInsert("NUM_AGE") & " ")          response.write( buildSQLInsert("lname,fname") & " ")          response.write( buildSQLInsert("mycheckbox,fname") &          =<" <") else %>

Gimme your: First Name: < Last Name: < Age: <

<% end if   %> [b][url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_4.html]上一页[/url]  [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192.html][1][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_2.html][2][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_3.html][3][/url] [url=http://www.1sucai.cn/shujuku/db2/shujuku_7192_4.html][4][/url] [5] [/b]