您的位置：首页 → 精文荟萃 → 软件资讯 → 用表单来提交sql - 3

用表单来提交sql - 3

时间：2004/10/7 19:18:00来源：本站整理作者：蓝点我要评论(0)

列表 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 & "'" & 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       

                       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 & ", "

                                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)

                                              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

  %>

相关阅读 Windows错误代码大全 Windows错误代码查询激活windows有什么用Mac QQ和Windows QQ聊天记录怎么合并 Mac QQ和Windows QQ聊天记录Windows 10自动更新怎么关闭 如何关闭Windows 10自动更新windows 10 rs4快速预览版17017下载错误问题Win10秋季创意者更新16291更新了什么 win10 16291更新内容windows10秋季创意者更新时间 windows10秋季创意者更新内容kb3150513补丁更新了什么 Windows 10补丁kb3150513是什么

文章评论

查看所有0条评论>>

发表评论

我来说两句...

提交评论