1、先判断,再看是添加还是修改
' 检查是否有此记录
Id=Value("kZ","id","ID='"&ID&"' and uideID='"&ideID&"' and idNum='"&SZ&"'")
' ============如果没有,添加一条记录'
if Trim(Id)&"0"="0" then
'response.write "<script language='javascript'>alert('时间 "&jiedaian &"');</script>"
' 插入日志 csj_log
Dim sqlInsert1
sqlInsert1 = "INSERT INTO Task (ID, deID, jdai,jian,tNum,texe,tex,teult) VALUES ('"&ID&"','"&deID&"','"&pany&"','"&jian&"','"&FZ&"','"&tee&"','"&tex&"','"&bz&"')"
' 执行 SQL 插入
conn.execute(sqlInsert1)
else
' 准备 SQL 更新语句,设置时间为午夜(00:00:00)
Dim sqlUpdate
sqlUpdate = "update RC_TaskSFZ_R set text_result='"&bz&"' where T_ID='"&T_ID&"' and T_GuideID='"&T_GuideID&"' and text_idNum='"&SFZ&"'"
' 执行 SQL 更新
conn.execute(sqlUpdate)
end if
2、另一种更新方法
<%
if request("Submit")<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "select * from ist"
rs.Open sql,conn,1,3
rs.addnew
rs("shcny")=request("shny")
rs("jsrhu")=request("jsshu")
rs("beizhu")=CheckStr(request("beizhu"))
rs("datetime")=now()
rs("cUser")=request("cUser")
rs.Update
rs.Close
response.write "<script language='javascript'>alert('添加成功!');location.href='jied.asp?T_SDate1=2-01&moduleid=496';</script>"
end if
%>