我要评论<%
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 & 正在看的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
&正在看的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("lname,fname") & "
")
response.write( buildsqlinsert("mycheckbox,fname") &
=<"
%>
<%
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 & ", "
正在看的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正在看的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("lname,fname") & "
")
response.write( buildsqlinsert("mycheckbox,fname") &
=<"
%>
<%
end if
%>
发表评论