-
功能buildsqlinsert（targettable，omitfields）
ISTR = 插入targettable
Vstr =值（
现阶段= （
在窗体集合中循环，并构建SQL语句的组件
对于每个x要求表单
字段名= ucase（X）
审判场省略了吗
如果仪器（ucase（omitfields），x）= 0
现场数据=取代（要求表单（字段名），_
如果没有数据，则插入null。
如果修剪（现场数据）= 然后
现场数据为零
Vstr = Vstr现场数据
现阶段= NSTR fieldname
其他的
typedelimpos =仪器（字段名，_ ）
如果typedelimpos = 0
是文本字段
创建字段名称列表
现阶段= NSTR fieldname
Vstr = Vstr'领域'，
其他的
字段是其他类型的
FieldType =左（字段名，typedelimpos - 1）
FieldName = mid (fieldName, typeDelimPos + 1)
将字段名添加到名称列表中
现阶段= NSTR fieldname
将字段类型转换为大写以确保匹配
选择案例ucase（FieldType）
情况
Vstr = Vstr现场数据
通过文本类型处理未标识类型
其他案件
Vstr = Vstr'领域'，
最后选择
最后如果
最后如果
最后如果
下一个
摆脱我们建立的绳子的末端
Vstr =左（Vstr，len（Vstr）- 2））
现阶段=左（NSTR，len（NSTR）- 2））
集成SQL语句
buildsqlinsert = ISTR NSTR Vstr
端功能
如果修剪（请求（名）的要求（模型）请求（年龄））
response.write（buildsqlinsert（）
response.write（buildsqlinsert （num_age ）
）
response.write（buildsqlinsert （模型，按）
）
response.write（buildsqlinsert （mycheckbox，名）
=
其他的
%>
给我你的：
第一名：
最后的名字：
年龄：
最后如果
%>
清单的最终版本buildsqlinsert功能：D。
功能buildsqlinsert（targettable，omitfields）
ISTR = 插入targettable
Vstr =值（
现阶段= （
在窗体集合中循环，并构建SQL语句的组件
对于每个x要求表单
字段名= ucase（X）
审判场省略了吗
如果仪器（ucase（omitfields），x）= 0
现场数据=取代（要求表单（字段名），_
如果没有数据，则插入null。
如果修剪（现场数据）= 然后
现场数据为零
Vstr = Vstr现场数据
现阶段= NSTR fieldname
其他的
typedelimpos =仪器（字段名，_ ）
如果typedelimpos = 0
是文本字段
创建字段名称列表
现阶段= NSTR fieldname
Vstr = Vstr'领域'，
其他的
字段是其他类型的
FieldType =左（字段名，typedelimpos - 1）
（字段名，字段名=中typedelimpos + 1）
将字段名添加到名称列表中
现阶段= NSTR fieldname
将字段类型转换为大写以确保匹配
选择案例ucase（FieldType）
情况
Vstr = Vstr现场数据
通过文本类型处理未标识类型
其他案件
Vstr = Vstr'领域'，
最后选择
最后如果
最后如果
最后如果
下一个
摆脱我们建立的绳子的末端
Vstr =左（Vstr，len（Vstr）- 2））
现阶段=左（NSTR，len（NSTR）- 2））
集成SQL语句
buildsqlinsert = ISTR NSTR Vstr
端功能
如果修剪（请求（名）的要求（模型）请求（年龄））
response.write（buildsqlinsert（）
response.write（buildsqlinsert （num_age ）
）
response.write（buildsqlinsert （模型，按）
）
response.write（buildsqlinsert （mycheckbox，名）
=
其他的
%>
给我你的：
第一名：
最后的名字：
年龄：
最后如果
%>