每次在操作數據庫的時候最煩的就是根據表單提交的內容寫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
'===================參數說明=========================
'此Function返回的更新數據的sql語句
'注意：使用此Function必須使form裡的字段名和數據庫裡的字段名一致
'並且按鈕不能為submit,要為button,通過javascript的submit方法提交表單
'objForm必須為request.Form
'tbName為更新數據的表名
'whereField為更新的條件字段,有多個請用(,)分割
'whereJoin為更新的條件字段有多個時設置是and還是or
'numStr為不需要用單引號引起來的字段，字段之間用逗號(,)分割，沒有請用""代替
'===================================================
Function updateStr(objForm,tbName,whereField,whereJoin,numStr)
dim setFieldVal()
dim whereStrArr()
i=0
t=0
for each objItem in objForm
wherePos=instr(whereField,objItem)
if wherePos=0 then
redim preserve setFieldVal(i)
numPos=instr(numStr,objItem)
if numPos<>0 then
setFieldVal(i)=objItem&"="&trim(objForm(objItem))
else
setFieldVal(i)=objItem&"='"&trim(objForm(objItem))&"'"
end if
i=i+1
else
redim preserve whereStrArr(t)
numPos2=instr(numStr,objItem)
if numPos2<>0 then
whereStrArr(t)=objItem&"="&trim(objForm(objItem))
else
whereStrArr(t)=objItem&"='"&trim(objForm(objItem))&"'"
end if
t=t+1
end if
next
wherePos2=instr(whereField,",")
if wherePos2<>0 then
whereStr=" where "&join(whereStrArr," "&whereJoin&" ")
else
whereStrArray=whereStrArr
whereStr=" where "&whereStrArray(0)
end if
updateStr="update "&tbName&" set "&join(setFieldVal,",")&whereStr
End Function
'==============參數說明=================
'此Function返回更新數據的sql語句
'只是更新條件不是通過form提交過來的比如session等
'conditions為更新的條件
'numStr為不需要用單引號引起來的字段，字段之間用逗號(,)分割，沒有請用""代替
'======================================
Function updateStr2(objForm,tbName,conditions,numStr)
dim setFieldVal()
i=0
for each objItem in objForm
redim preserve setFieldVal(i)
numPos=instr(numStr,objItem)
if numPos<>0 then
setFieldVal(i)=objItem&"="&trim(replace(objForm(objItem),"'",""))
else
setFieldVal(i)=objItem&"='"&trim(replace(objForm(objItem),"'",""))&"'"
end if
i=i+1
next
updateStr2="update "&tbName&" set "&join(setFieldVal,",")&" where "&conditions
End Function
