<%
if request("submit")="增加" then
username=request("username")
wagelevel=request("wagelevel")
basewage=request("basewage")
stafjob=request("stafjob")
jobwage=request("jobwage")
workyear=request("workyear")
workyearwage=request("workyearwage")
rentwage=request("rentwage")
carwage=request("carwage")
prize=request("prize")
insurance=request("insurance")
tax=request("tax")
affairday=request("affairday")
affairfund=request("affairfund")
sickday=request("sickday")
sickfund=request("sickfund")
mustwage=request("mustwage")
actwage=request("actwage")
changreason=request("changreason")
actdate=request("actdate")
remark=request("remark")
recname=oabusyname
updatename=oabusyname
set conn=opendb("oabusy","conn","accessdsn")
sql="Insert Into wageinf (username,wagelevel,basewage,stafjob,jobwage,workyear,workyearwage,rentwage,carwage,prize,insurance,tax,affairday,affairfund,sickday,sickfund,mustwage,actwage,changreason,actdate,remark,recname,updatename) Values( "
sql = sql & SqlStr(username) & ", "
sql = sql & SqlStr(wagelevel) & ", "
sql = sql & SqlStr(basewage) & ", "
sql = sql & SqlStr(stafjob) & ", "
sql = sql & SqlStr(jobwage) & ", "
sql = sql & SqlStr(workyear) & ", "
sql = sql & SqlStr(workyearwage) & ", "
sql = sql & SqlStr(rentwage) & ", "
sql = sql & SqlStr(carwage) & ", "
sql = sql & SqlStr(prize) & ", "
sql = sql & SqlStr(insurance) & ", "
sql = sql & SqlStr(tax) & ", "
sql = sql & SqlStr(affairday) & ", "
sql = sql & SqlStr(affairfund) & ", "
sql = sql & SqlStr(sickday) & ", "
sql = sql & SqlStr(sickfund) & ", "
sql = sql & SqlStr(mustwage) & ", "
sql = sql & SqlStr(actwage) & ", "
sql = sql & SqlStr(changreason) & ", "
sql = sql & SqlStr(actdate) & ", "
sql = sql & SqlStr(remark) & ", "
sql = sql & SqlStr(recname) & ", "
sql = sql & SqlStr(updatename) & ")"
conn.Execute sql
%>

字段所设的类型与更新的不一致，一般是数值型字段存文本字符了，所以出错，这样要自己找，不是动不动就一段代码上来。。。

现在是添加新数据，修改（更新）数据时正常