양식 으로 sql(회전)3 제출

보고 있 는 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 & vStrend functionif 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 & vStrend functionif 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]