|
|
|
7i24.Com²»Í£ÎªÄú·þÎñ ±íµ¥À´Ìá½»sql£¨Èý£©
2001-9-10¡¡
Áбí 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("") & "<BR<")
¡¡¡¡¡¡¡¡ response.write( buildSQLInsert("NUM_AGE") & "<BR>")
¡¡¡¡¡¡¡¡ response.write( buildSQLInsert("lname,fname") & "<BR>")
¡¡¡¡¡¡¡¡ response.write( buildSQLInsert("mycheckbox,fname") &
¡¡¡¡¡¡¡¡ =<"<BR<")
else
%>
<html>
<body>
<form name=f method=post action="Áбí4.asp">
Gimme your:
First Name: <input type=text name="fName"<
Last Name: <input type=text name="lName"<
Age: <input type=text name="num_age"<
<input type="checkbox" value="Y" name="MyCheckBox"<Do you want this checked?
<input type="submit" value="Submit">
</form>
</body>
</html>
<%
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("") & "<BR<")
¡¡¡¡¡¡¡¡ response.write( buildSQLInsert("NUM_AGE") & "<BR>")
¡¡¡¡¡¡¡¡ response.write( buildSQLInsert("lname,fname") & "<BR>")
¡¡¡¡¡¡¡¡ response.write( buildSQLInsert("mycheckbox,fname") &
¡¡¡¡¡¡¡¡ =<"<BR<")
else
%>
<html>
<body>
<form name=f method=post action="Áбí4.asp">
Gimme your:
First Name: <input type=text name="fName"<
Last Name: <input type=text name="lName"<
Age: <input type=text name="num_age"<
<input type="checkbox" value="Y" name="MyCheckBox"<Do you want this checked?
<input type="submit" value="Submit">
</form>
</body>
</html>
<%
end if
¡¡%>
À´Ô´£º¶¯ÍøÏÈ·æ
|
|
|