新手请教这段代码不执行
凡夫与俗子 2009-06-06 11:07:52 下面的代码是添加产品功能中的一段,为什么红色部分不执行啊,哪有错?谢谢!
if action = "add" then 'Start addnew record.
'添加时的必要判断语句
if p_name="" or p_bcid="" or p_scid="" or p_bid="" then
response.Write "<script>alert('带*号为必填项,请填写完整!')</script>"
response.End()
else
set rs = server.CreateObject("adodb.recordset")
sql = "select top 1 * from products where p_name='"&p_name&"'"
rs.open sql,conn,1,3
if not (rs.bof or rs.eof) then
response.Write "<script>alert('该产品已存在,无需添加!')</script>"
response.End()
'开始新增产品
else
rs.addnew
Rs("p_name") = p_name
Rs("p_bcid") = p_bcid
Rs("p_scid") = p_scid
Rs("p_bid") = p_bid
Rs("p_type") = p_type
Rs("p_sn") = p_sn
Rs("p_sdw") = p_sdw
Rs("p_bdw") = p_bdw
Rs("p_hs") = p_hs
Rs("p_info") = p_info
Rs("p_pyjm") = p_pyjm
Rs("p_uid") = p_uid
Rs("p_addtime") = p_addtime
rs.update
end if
end if
rs.close
set rs = nothing
response.Write("<script>alert('添加成功!')</script>")
response.End()
'结束新增产品
end if 'End addnew record.