【ASP】asp中修改和删除表的例子

1、先判断，再看是添加还是修改

	
	' 检查是否有此记录
	Id=Value("kZ","id","ID='"&ID&"' and uideID='"&ideID&"' and idNum='"&SZ&"'")
	
	' ============如果没有，添加一条记录'
	
	if Trim(Id)&"0"="0" then
		
		'response.write ""
							 
   			    ' 插入日志 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 ""
end if

 %>