当前位置: 首页 > 图文教程 > 数据库 > DB2 > 用表单来提交sql(转)2

DB2
IBM DB2 日常维护汇总(八)
IBM DB2 日常维护汇总(七)
IBM DB2 日常维护汇总(五)
IBM DB2 日常维护汇总(四)
IBM DB2 日常维护汇总(三)
IBM DB2 日常维护汇总(二)
IBM DB2 日常维护汇总(一)
DB2常用傻瓜问题1000问(六)
DB2常用傻瓜问题1000问(五)
MySQL数据库结构和数据的导出和导入
DB2编程序小小技巧
在DB2中提高INSERT性能的技巧(1)
db2v8的pdf文档资料
DB2 9数据服务器发展3部曲
对比DB2 9和DB2 V8.x中的XML功能
用shell抽取,更新db2的数据
IBM DB2 Connect简介(1)
使用XQuery查询DB2 XML数据
DB2 9产品说明书在线参考地址(http)
使用SQL查询DB2 9中的XML数据

DB2 中的 用表单来提交sql(转)2


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-31   浏览: 205 ::
收藏到网摘: n/a

列表 B:使用 request.form 来轻松建立SQL字符串。

<%
iStr = "insert into uData "
vStr = "values ("
nStr = "("

在表单集合中循环,并建立起SQL语句的组成部分
for each x in request.form
          建立字段名列表
         nStr = nStr & x & ", "
          建立字段值列表
         if uCase(x) = "AGE" then
                  vStr = vStr & request.form(x) & ", "
         else
                  vStr = vStr & "" & request.form(x) & ", "
         end if       
next

把结尾的", " 从我们建立的字符串中去掉
vStr = left(vStr, len(vStr) - 2) & ")"
nStr = left(nStr, len(nStr) - 2) & ") "

把SQL语句组装起来
iStr = iStr & nStr & vStr

if trim(request("fName")) >> "" then
         response.write( iStr & ">BR>")
else
%>




Gimme your:

First Name:

Last Name:

Age:






<%
end if
  %>



列表 C:把字段类型嵌入到HTML字段名中。


<%function buildSQLInsert( targetTable)
iStr = "insert into " & targetTable & " "      
vStr = "values ("       nStr = "("    
在表单集合中循环,并建立起SQL语句的组成部分
for each x in request.form  
         fieldName = x
     fieldData = replace( request.form(fieldName), "", "")
         typeDelimPos = inStr(fieldName, "_")
         if typeDelimPos = 0 then
            Its a text field
            建立字段名列表
                  nStr = nStr & fieldName & ", "
                  vStr = vStr & "" & fieldData & ", "
         else
            是另外一种数据类型
              fieldType = left(fieldName, typeDelimPos - 1)
                  fieldName = mid(fieldName, typeDelimPos + 1)
                   把字段名加入字段名列表中
                  nStr = nStr & fieldName & ", "
                   把字段类型变成大写,以确保匹配
         &