<%
"========以下所有函数都没有加入容错机制,所以一定要保证参数的正确性========
"================参数说明================
"此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
} |