正在看的db2教程是:用表单来提交sql(转)3。 列表 D: buildSQLInsert函数的最终版。<%function buildSQLInsert( targetTable, omitFields)iStr = \"insert into \" & targetTable & \" \"vStr = \"values (\"nStr = \"(\" 在表单集合中循环,并建立起SQL语句的组成部分for each x in request.formfieldName = uCase(x) 判断字段是否被省略?if inStr(uCase(omitFields),x) = 0 thenfieldData = replace(request.form(fieldName), _\"\", \"\") 如果没有数据,就插入 NULLif trim(fieldData) = \"\" thenfieldData = \"NULL\"vStr = vStr & fieldData & \", \"nStr = nStr & fieldName & \", \"elsetypeDelimPos = inStr(fieldName, \"_\")if typeDelimPos = 0 then 是文本字段 建立字段名列表nStr = nStr & fieldName & \", \"vStr = vStr &
[1][2][3][4][5]下一页
正在看的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 elsevStr = vStr & \”\” & fieldData & \”, \”end selectend if&
上一页[1][2][3][4][5]下一页
正在看的db2教程是:用表单来提交sql(转)3。nbsp;end ifend ifnext 把结尾的\”, \” 从我们建立的字符串中去掉vStr = left(vStr, len(vStr) – 2) & \”)\”nStr = left(nStr, len(nStr) – 2) & \”) \” 把SQL语句整合起来buildSQLInsert = iStr & nStr & vStrend functionif trim(request(\”fName\”)&request(\”lname\”)&request(\”age\”)) \”\” thenresponse.write( buildSQLInsert(\”\”) & \”<BR<\")response.write( buildSQLInsert(\"NUM_AGE\") & \"\")response.write( buildSQLInsert(\"lname,fname\") & \"\")response.write( buildSQLInsert(\"mycheckbox,fname\") & =<\"<BRGimme your:First Name: <input type=text name=\"fName\"<Last Name: <input type=text name=\"lName\"<Age: <input type=text name=\"num_age\"<<input type=\"checkbox\" value=\"Y\" name=\"MyCheckBox\"<Do you want this checked?列表 D: buildSQLInsert函数的最终版。<%function buildSQLInsert( targetTable, omitFields)iStr = \"insert into \" & targetTable & \" \"vStr = \"values (\"nStr = \"(\" 在表单集合中循环,并建立起SQL语句的组成部分for each x in request.formfieldName = uCase(x) 判断字段是否被省略?if inStr(uCase(omitFields),x) = 0 thenfieldData = replace(request.form(fieldName), _\"\", \"\") 如果没有数据,就插入 NULLif trim(fieldData) = \"\" thenfieldData = \"NULL\"vStr = vStr & fieldData & \", \"
上一页[1][2][3][4][5]下一页
正在看的db2教程是:用表单来提交sql(转)3。nStr = nStr & fieldName & \”, \”elsetypeDelimPos = 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
上一页[1][2][3][4][5]下一页
正在看的db2教程是:用表单来提交sql(转)3。bsp;case \”NUM\”vStr = vStr & fieldData & \”, \”把不明类型按文本型处理case elsevStr = vStr & \”\” & fieldData & \”, \”end selectend ifend ifend ifnext 把结尾的\”, \” 从我们建立的字符串中去掉vStr = left(vStr, len(vStr) – 2) & \”)\”nStr = left(nStr, len(nStr) – 2) & \”) \” 把SQL语句整合起来buildSQLInsert = iStr & nStr & vStrend functionif trim(request(\”fName\”)&request(\”lname\”)&request(\”age\”)) \”\” thenresponse.write( buildSQLInsert(\”\”) & \”<BR<\")response.write( buildSQLInsert(\"NUM_AGE\") & \"\")response.write( buildSQLInsert(\"lname,fname\") & \"\")response.write( buildSQLInsert(\"mycheckbox,fname\") & =<\"<BRGimme your:First Name: <input type=text name=\"fName\"<Last Name: <input type=text name=\"lName\"<Age: <input type=text name=\"num_age\"<<input type=\"checkbox\" value=\"Y\" name=\"MyCheckBox\"<Do you want this checked?
上一页[1][2][3][4][5]