当前位置： 移动技术网 > IT编程>数据库>DB2 > 用表单来提交sql（转）3

用表单来提交sql（转）3

2017年11月30日  | 移动技术网IT编程  | 我要评论
正在看的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 &

[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 else
                                              vstr = vstr & "" & fielddata & ", "
                                     end select
                                end if       
&

上一页  [1] [2] [3] [4] [5] 下一页

正在看的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 & ", "
        

上一页  [1] [2] [3] [4] [5] 下一页

正在看的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

上一页  [1] [2] [3] [4] [5] 下一页

正在看的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
  %>

上一页  [1] [2] [3] [4] [5] 

您可能感兴趣的文章:

如对本文有疑问， 点击进行留言回复！！

相关文章:

验证码：
最近更新的文章
大家感兴趣的文章
移动技术网