程序員：asp根據表單自動生成sql語句的函數

每次在操作數據庫的時候最煩的就是根據表單提交的內容寫sql語句，特別是字段比較多的時候很麻煩，動不動就容易寫錯。所以我就寫了下面的生成sql語句的函數，用了用覺得還可以。
    程序代碼：
    <%
    ’========以下所有函數都沒有加入容錯機制，所以一定要保證參數的正確性========
    ’================參數說明================
    ’此Function返回的是插入數據的sql語句
    ’注意：使用此Function必須使form里的字段名和數據庫里的字段名一致
    ’并且按鈕不能為submit,要為button,通過JavaScript的submit方法提交表單
    ’objForm必須為request.Form
    ’tbName為插入數據的表名
    ’numStr為不需要用單引號引起來的字段，字段之間用逗號(,)分割，沒有請用""代替
    ’=======================================
    Function insertStr(objForm,tbName,numStr)
    dim tbField()
    dim tbfieldVal()
    i=0
    for each objItem in objForm
    redim preserve tbField(i)
    tbField(i)=objItem
    redim preserve tbfieldVal(i)
    numPos=instr(numStr,objItem)
    if numPos<>0 then
    tbfieldVal(i)=trim(objForm(objItem))
    else
    tbfieldVal(i)="’"&trim(objForm(objItem))&"’"
    end if
    i=i+1
    next
    insertStr="insert into "&tbName&"("&join(tbField,",")&") values("&join(tbfieldVal,",")&")"
    End Function