程序員：asp根據(jù)表單自動(dòng)生成sql語句的函數(shù)

每次在操作數(shù)據(jù)庫的時(shí)候最煩的就是根據(jù)表單提交的內(nèi)容寫sql語句，特別是字段比較多的時(shí)候很麻煩，動(dòng)不動(dòng)就容易寫錯(cuò)。所以我就寫了下面的生成sql語句的函數(shù)，用了用覺得還可以。
    程序代碼：
    <%
    ’========以下所有函數(shù)都沒有加入容錯(cuò)機(jī)制，所以一定要保證參數(shù)的正確性========
    ’================參數(shù)說明================
    ’此Function返回的是插入數(shù)據(jù)的sql語句
    ’注意：使用此Function必須使form里的字段名和數(shù)據(jù)庫里的字段名一致
    ’并且按鈕不能為submit,要為button,通過JavaScript的submit方法提交表單
    ’objForm必須為request.Form
    ’tbName為插入數(shù)據(jù)的表名
    ’numStr為不需要用單引號(hào)引起來的字段，字段之間用逗號(hào)(,)分割，沒有請用""代替
    ’=======================================
    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