程序员: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
0条评论