' Looping through a form collection and building up parts of the SQL statement
For each x in Request.Form
' Create a list of field names
Nstr = nstr & x & ","
' Create a list of field values
If UCase (x) = "Age" Then
Vstr = vstr & Request.Form (x) & ","
Else
Vstr = vstr & "'" & Request.Form (x) & "',"
End If
Next
"The end of the", "removed from the string we established
Vstr = Left (Vstr, Len (VSTR)-2) & ")"
Nstr = Left (Nstr, Len (NSTR)-2) & ")"
List C: Embed the field type in the HTML field name.
<%function Buildsqlinsert (targettable)
ISTR = "INSERT INTO" & Targettable & ""
Vstr = "Values" ("NSTR =" ("
' Looping through a form collection and building up parts of the SQL statement
For each x in Request.Form
FieldName = X
Fielddata = replace (Request.Form (fieldName), "'", "" ")
Typedelimpos = InStr (FieldName, "_")
If Typedelimpos = 0 Then
' Its a text field
' Create a list of field names
Nstr = nstr & FieldName & ","
Vstr = vstr & "'" & Fielddata & "',"
Else
' is another kind of data type
FieldType = Left (FieldName, typeDelimPos-1)
FieldName = Mid (FieldName, Typedelimpos + 1)
' Add the field name to the list of field names
Nstr = nstr & FieldName & ","
' Turn the field type to uppercase to ensure that the match
Select Case UCase (FieldType)
Case "NUM"
Vstr = vstr & Fielddata & ","
' Treat the unknown type as text
Case Else
Vstr = vstr & "'" & Fielddata & "',"
End Select
End If
Next
"The end of the", "removed from the string we established
Vstr = Left (Vstr, Len (VSTR)-2) & ")"
Nstr = Left (Nstr, Len (NSTR)-2) & ")"
' Assemble the SQL statements.
Buildsqlinsert = ISTR & Nstr & Vstr
End Function
If Trim (Request ("FName")) >< "Then
Response.Write (Buildsqlinsert & ">BR<")
Else
%>
The content source of this page is from Internet, which doesn't represent Alibaba Cloud's opinion;
products and services mentioned on that page don't have any relationship with Alibaba Cloud. If the
content of the page makes you feel confusing, please write us an email, we will handle the problem
within 5 days after receiving your email.
If you find any instances of plagiarism from the community, please send an email to:
info-contact@alibabacloud.com
and provide relevant evidence. A staff member will contact you within 5 working days.