以下是一段向数据库添加新数据的代码
首先查询是否为重复记录,即查询数据库本月内是否存在与传票号p_subpoena及产品名称p_name相同的记录,如存在则提示错误
运行后,不管是否有重复记录均提示'已存在,请确认传票号及产品名称!':
1.重复添加记录,不写数据库,提示'已存在....'
2.添加不重复的记录,写数据库,应该提示'新建成功',却提示示'已存在....'
这个问题困扰了一个星期了,也没找到原因
set rs=server.createobject("adodb.recordset")
sqltext="select id from print_sub where p_subpoena='" & p_subpoena & "' and p_name='" & p_name & "' and p_date_descend between #"&date_begin&"# and #"&date_end&"#"
rs.open sqltext,conn,1,1
count_num=rs.recordcount
rs.close
set rs=nothing
if count_num = 0 then
写出数据库
set save=conn.execute("insert into print_sub(p_date_descend,p_person,p_status,p_date_deliver,p_subpoena,p_contract,p_customer,p_name,p_level,p_sale,p_section,p_binding,p_zbway,p_number1,p_number2,p_number3,p_bluepaper_c1,p_bluepaper_c1_s,p_bluepaper_c2,p_size_w,p_size_h,p_path,p_remarks)values(#"&p_date_descend&"#,'"&p_person&"',"&p_status&",#"&p_date_deliver&"#,'"&p_subpoena&"','"&p_contract&"','"&p_customer&"','"&p_name&"','"&p_level&"','"&p_sale&"','"&p_section&"','"&p_binding&"','"&p_zbway&"',"&p_number1&","&p_number2&","&p_number3&",'"&p_bluepaper_c1&"','"&p_bluepaper_c1_s&"','"&p_bluepaper_c2&"',"&p_size_w&","&p_size_h&",'"&p_path&"','"&p_remarks&"')")
set save=nothing
response.write "<script language=javascript>{window.alert('新建成功!');window.location.href='DataList.asp?Kind=MyRecord&Date=Today'}</script>"
response.end
else
response.write "<script language=JavaScript>{window.alert('已存在,请确认传票号及产品名称!');window.history.go(-1)}</script>"
response.end
end if