还是那个判断语句的困惑

踏浪

电梯直达

1^#

发表于 2010-1-17 02:13:07 | 只看该作者回帖奖励

|正序浏览 |阅读模式

我想如果库里存在那么就更新已有库存
如果库里不存在则添加新纪录
但是这样写总是执行IF后面语句我把rs.addnew 放在前面
它就执行rs.addnew 始终不作判断哦
有大虾指点为：

if not rs.eof then
rs("now_name")=request("now_name")
.
.
.
rs.update
else
rs.addnew
rs("now_name")=request("now_name")
.
.
.
rs.update
end if

看看我改的对不
但是还是不行郁闷



<%
temp1=request("now_name")
set rs=server.CreateObject("adodb.recordset")
sql="selcet * from nowmaterial where now_name='"&temp1&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs("now_name")=request("now_name")
rs("type")=request("type")
rs("now_spec")=request("now_spec")
rs("now_model")=request("now_model")
rs("now_amount")=request("now_amount")+rs("now_amount")
rs("unit")=request("unit")
rs("now_price")=request("now_price")
rs("now_total")=request("now_price")*(request("now_amount")+rs("now_amount"))
rs("now_beizhu")=Server.HTMLEncode(request.Form("now_beizhu"))
rs("now_lbuyer")=request("now_lbuyer")
rs("last_indate")=request("last_indate")
rs("add")=request("add")
rs("now_manager")=request("now_manager")
rs.update
rs.close
conn.close
set rs=nothing
response.write "<script language='javascript'>" & chr(13)
response.write "alert('asdf 功！');" & Chr(13)
response.write "window.document.location.href='nowmaterial_manage.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End

else

rs.addnew
rs("now_name")=request("now_name")
rs("type")=request("type")
rs("now_spec")=request("now_spec")
rs("now_model")=request("now_model")
rs("now_amount")=request("now_amount")
rs("unit")=request("unit")
rs("now_price")=request("now_price")
rs("now_total")=request("now_amount")*request("now_price")
rs("now_beizhu")=Server.HTMLEncode(request.Form("now_beizhu"))
rs("now_lbuyer")=request("now_lbuyer")
rs("last_indate")=request("last_indate")
rs("add")=request("add")
rs("now_manager")=request("now_manager")
rs.update
rs.close
conn.close
set rs=nothing
response.write "<script language='javascript'>" & chr(13)
response.write "alert('该物资入库登记成功！');" & Chr(13)
response.write "window.document.location.href='nowmaterial_manage.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
%>
<%end if%>

收藏0

使用道具举报

泪在爱上雕刻

4^#

发表于 2010-1-17 02:13:20 | 只看该作者

hangxj 大虾

这样的我试过主要是不判断哦

回复支持反对

使用道具举报

…═☆幻

3^#

发表于 2010-1-17 02:13:16 | 只看该作者

.....
else

rs.close
set rs=nothing

set rs=server.CreateObject("adodb.recordset")
sql="selcet * from nowmaterial"
rs.open sql,conn,1,3
rs.addnew
rs("now_name")=request("now_name")
rs("type")=request("type")
...
...
rs.update
rs.close
set rs=nothing
....

回复支持反对

使用道具举报

唏唏鉿鉿HJP

2^#

发表于 2010-1-17 02:13:11 | 只看该作者

if rs.recordcount < 1 then
rs.addnew
else
rs("now_name")=request("now_name")
.
.
.
rs.update
end if

回复支持反对

使用道具举报

		自动登录	找回密码
密码			注册

还是那个判断语句 的困惑