set rs=server.createobject("adodb.recordset")
if request("action")="add" then
sql="select * from Product where (ID is null)"
rs.open sql,conn,1,3
rs.addnew
call SaveData()
rs.update
ID=rs("ID")
rs.close
set rs=nothing
elseif request("action")="Modify" then
if ID"" then
sql="select * from Product where id=" & ID
rs.open sql,conn,1,3
if not (rs.bof and rs.eof) then
call SaveData()
rs.update
rs.close
set rs=nothing
else
founderr=true
errmsg=errmsg+"找不到此产品，可能已经被删除。"
call WriteErrMsg()
end if
else
founderr=true
errmsg=errmsg+"不能确定产品ID的值"
call WriteErrMsg()
end if
else
founderr=true
errmsg=errmsg+"没有选定参数"
call WriteErrMsg()
end if
|
