用表单来提交sql(转)3
正在看的db2教程是:用表单来提交sql(转)3。 列表 D: buildSQLInsert函数的最终版。<br><br><br><%<br>function buildSQLInsert( targetTable, omitFields)<br> iStr = "insert into " & targetTable & " "<br> vStr = "values ("<br> nStr = "("<br> 在表单集合中循环,并建立起SQL语句的组成部分<br> for each x in request.form<br> fieldName = uCase(x)<br> 判断字段是否被省略?<br> if inStr(uCase(omitFields),x) = 0 then<br> fieldData = replace(request.form(fieldName), _<br> "", "")<br> 如果没有数据,就插入 NULL<br> if trim(fieldData) = "" then<br> fieldData = "NULL"<br> vStr = vStr & fieldData & ", "<br> nStr = nStr & fieldName & ", "<br> else<br> typeDelimPos = inStr(fieldName, "_")<br> if typeDelimPos = 0 then<br> 是文本字段<br> 建立字段名列表<br> nStr = nStr & fieldName & ", "<br> vStr = vStr & </p><p align='center'><b> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_2.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_3.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_4.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_5.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_2.html'>下一页</a> </b></p>正在看的db2教程是:用表单来提交sql(转)3。"" & fieldData & ", "<br> else<br> 字段是其它类型<br> fieldType = left(fieldName, typeDelimPos - 1)<br> fieldName = mid(fieldName, typeDelimPos + 1)<br> 把字段名加入名称列表<br> nStr = nStr & fieldName & ", "<br> 把字段类型变成大写以确保匹配<br> select case uCase(fieldType)<br> case "NUM"<br> vStr = vStr & fieldData & ", "<br> 把不明类型按文本型处理<br> case else<br> vStr = vStr & "" & fieldData & ", "<br> end select<br> end if <br>&</p><p align='center'><b><a href='https://www.jb51.net/shujuku/db2/shujuku_7192.html'>上一页</a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_3.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_4.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_5.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_3.html'>下一页</a> </b></p>正在看的db2教程是:用表单来提交sql(转)3。nbsp; end if<br> end if<br> next<br><br> 把结尾的", " 从我们建立的字符串中去掉<br> vStr = left(vStr, len(vStr) - 2) & ")"<br> nStr = left(nStr, len(nStr) - 2) & ") "<br><br> 把SQL语句整合起来<br> buildSQLInsert = iStr & nStr & vStr<br>end function<br><br><br>if trim(request("fName")&request("lname")&request("age")) <> "" then<br> response.write( buildSQLInsert("") & "<BR<")<br> response.write( buildSQLInsert("NUM_AGE") & "<BR>")<br> response.write( buildSQLInsert("lname,fname") & "<BR>")<br> response.write( buildSQLInsert("mycheckbox,fname") & <br> =<"<BR<")<br>else<br>%><br><br><html><br><body><br><form name=f method=post action="列表4.asp"><br>Gimme your:<br><br>First Name: <input type=text name="fName"<<br><br>Last Name: <input type=text name="lName"<<br><br>Age: <input type=text name="num_age"<<br><br><input type="checkbox" value="Y" name="MyCheckBox"<Do you want this checked?<br><br><input type="submit" value="Submit"><br></form><br></body><br></html><br><br><%<br>end if<br> %><br><br><br><br><br>列表 D: buildSQLInsert函数的最终版。<br><br><br><%<br>function buildSQLInsert( targetTable, omitFields)<br> iStr = "insert into " & targetTable & " "<br> vStr = "values ("<br> nStr = "("<br> 在表单集合中循环,并建立起SQL语句的组成部分<br> for each x in request.form<br> fieldName = uCase(x)<br> 判断字段是否被省略?<br> if inStr(uCase(omitFields),x) = 0 then<br> fieldData = replace(request.form(fieldName), _<br> "", "")<br> 如果没有数据,就插入 NULL<br> if trim(fieldData) = "" then<br> fieldData = "NULL"<br> vStr = vStr & fieldData & ", "<br> </p><p align='center'><b><a href='https://www.jb51.net/shujuku/db2/shujuku_7192_2.html'>上一页</a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_2.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_4.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_5.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_4.html'>下一页</a> </b></p>正在看的db2教程是:用表单来提交sql(转)3。 nStr = nStr & fieldName & ", "<br> else<br> typeDelimPos = inStr(fieldName, "_")<br> if typeDelimPos = 0 then<br> 是文本字段<br> 建立字段名列表<br> nStr = nStr & fieldName & ", "<br> vStr = vStr & "" & fieldData & ", "<br> else<br> 字段是其它类型<br> fieldType = left(fieldName, typeDelimPos - 1)<br> fieldName = mid(fieldName, typeDelimPos + 1)<br> 把字段名加入名称列表<br> nStr = nStr & fieldName & ", "<br> 把字段类型变成大写以确保匹配<br> select case uCase(fieldType)<br> &n</p><p align='center'><b><a href='https://www.jb51.net/shujuku/db2/shujuku_7192_3.html'>上一页</a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_2.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_3.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_5.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_5.html'>下一页</a> </b></p>正在看的db2教程是:用表单来提交sql(转)3。bsp; case "NUM"<br> vStr = vStr & fieldData & ", "<br> 把不明类型按文本型处理<br> case else<br> vStr = vStr & "" & fieldData & ", "<br> end select<br> end if <br> end if<br> end if<br> next<br><br> 把结尾的", " 从我们建立的字符串中去掉<br> vStr = left(vStr, len(vStr) - 2) & ")"<br> nStr = left(nStr, len(nStr) - 2) & ") "<br><br> 把SQL语句整合起来<br> buildSQLInsert = iStr & nStr & vStr<br>end function<br><br><br>if trim(request("fName")&request("lname")&request("age")) <> "" then<br> response.write( buildSQLInsert("") & "<BR<")<br> response.write( buildSQLInsert("NUM_AGE") & "<BR>")<br> response.write( buildSQLInsert("lname,fname") & "<BR>")<br> response.write( buildSQLInsert("mycheckbox,fname") & <br> =<"<BR<")<br>else<br>%><br><br><html><br><body><br><form name=f method=post action="列表4.asp"><br>Gimme your:<br><br>First Name: <input type=text name="fName"<<br><br>Last Name: <input type=text name="lName"<<br><br>Age: <input type=text name="num_age"<<br><br><input type="checkbox" value="Y" name="MyCheckBox"<Do you want this checked?<br><br><input type="submit" value="Submit"><br></form><br></body><br></html><br><br><%<br>end if<br> %> <br></p><p align='center'><b><a href='https://www.jb51.net/shujuku/db2/shujuku_7192_4.html'>上一页</a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_2.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_3.html'></a> <a href='https://www.jb51.net/shujuku/db2/shujuku_7192_4.html'></a> </b></p>
頁:
[1]