幼儿不挑食的好处句子

首先要清楚孩子挑食是对某几种食物还是大多食物？如果是很多食物都不吃才有必要去干预，如果仅仅几种，个人认为没有必要去干预，其他食物中的营养可以替代。

其次，孩子教育不是老师一个人的事，而需要家庭教育相结合。更多的是需要家长的引导和教育。比如挑食这个问题，一般是从家里就开始了。

基于这个前提，所有的引导策略都应该家校协同，相互配合。孩子为什么在家吃饭爱挑食

1、家长的溺爱

现在很多的家长都是宠娃狂魔，对于孩子的要求是有求必应，惟命是从，很是溺爱。孩子想吃巧克力就给买巧克力，做了一桌子的好菜，却一口都不吃。而家长却放任不管，当吃完饭后，孩子饿了。就开始要妈妈去给买薯片和棒棒吃，妈妈怕孩子哭闹就赶紧给孩子买回来。久之，把孩子养成了挑食，不爱吃饭的习惯。

2、饭菜不合孩子胃口

一家三口或者四口在一起过日子，难免口味不一致。有爱吃面条的，有不喜欢吃鱼的，可谓众口难调。这种情况就是饭菜不合孩子胃口，孩子挑食，导致孩子不爱吃饭。

3、孩子在幼儿园吃饱了

群里有个妈妈说：我家四周岁的小宝，开学后升入了中班。自从孩子上幼儿园后，每天都不吃晚饭，小宝说已经在幼儿园里吃饱了。还说，今天吃的鸡腿，包子，和小米粥。妈妈，你看我的小肚子都被撑得鼓鼓的了，已经吃不下去了。像小宝这种情况，自然就不会吃饭了。

是odbc_clongshanion4.asp文件中数据库的问题

odbc_clongshanion4.asp帖出来吧！

------------------------------------------------

在

db.Execute(SQL)

前面加上

response.write

SQL

response.end

看看

SQL语句

有没有问题

------------------------------------------------

如果是这样

，那么肯定是

odbc_clongshanion4.asp

中的问题了，有可能在打开数据库时候出的错误！

要是不麻烦，就帖出来，或者发到我的油箱：

leewycyp@yahoo.com.cn

分类: 电脑/网络 >>程序设计 >>其他编程语言

问题描述:

高手们，帮帮忙看一下啦！！

Microsoft VBScript 运行时错误 错误 '800a0009'

下标越界: 'i'

Cart_List文件部分代码如下

<%

url=request.servervariables("_referer")

ProdIds = Session("ProdIds")

ProdNums = Session("ProdNums")

call up("购物车状态","购物车状态","购物车状态")

response.write "<tr>"

response.write " <td>"

response.write " <table border=1 width=100% cellpadding=4 style='border-collapse: collapse' bordercolor=#DFDFDF>"

response.write "<tr bgcolor=#f2f2f2><td>商品名称</td><td>市场价</td><td>网站价</td><td>订购数量</td><td>小计</td><td>删除</td></tr>"

response.write "<form action=Cart_List method=post name=form1 onsubmit=return CheckFrom()>"

response.write "<input type=hidden name=cmdShow value=Yes>"

if ProdIds<>"" then

aaa=split(ProdNums,",")

bbb=split(ProdIds,",")

pbuynums=Request("pbuynums")

Quatitys=split(Request("pbuynums"),",")

session("y")=ubound(bbb)+1

for i=0 to ubound(bbb)

set rs=server.createobject("adodb.recordset")

sql="select id,product_info_PriceM,product_info_PriceS,Shop_name from product where id="&bbb(i)

rs.open sql,conn,1,1

if rs.eof or rs.bof then

response.write "<tr><td colspan=6 align=center><a href='javascript:history.go(-1)'><<购物车为空，请返回选购商品</a></td></tr>"

else

set id=rs(0)

set product_info_PriceM=rs(1)

set RMB=rs(2)

set product_info_name=rs(3)

While Not rs.EOF

Quatity = Quatitys(i)

If Quatity <>"" Then

x=Quatity

else

x=aaa(i)

if aaa(i)="" then x=1

end if

sum1=sum1 + csng(rmb) * x

sum=FormatNumber(sum1,2,-1)

session("sum")=sum

response.write "<tr>"

response.write " <td><input type=hidden name=mc value="&id&"><a href=Product_Detail?id="&id&" target=_blank>"&Shop_name&"</a></td>"

response.write " <td>￥"&FormatNumber(product_info_PriceM,2,-1)&"</td>"

response.write " <td><font color=#FF0000>￥"&FormatNumber(Rmb,2,-1)&"</font></td>"

response.write " <td><input name=pbuynums value="&x&" size=5 maxlength=5></td>"

response.write " <td>￥"&FormatNumber((csng(rmb)*x),2,-1)&"</td>"

response.write " <td><a href=Cart_Del?MyAction=Del&id="&id&">删除</a></td>"

response.write "</tr>"

rs.MoveNext

Wend

end if

rs.close

set rs=nothing

next

%>

解析:

有问题的部分：

aaa=split(ProdNums,",")

bbb=split(ProdIds,",")

问题：你能保证 aaa、bbb 通过 Split 函数分割出来的数组下标完全一致？若不一致因该在调用前检查一下，问题就出现在这里。

调试:

Response.Write aaa &"<br>" &bbb

Response.End

这样输出一下 aaa、bbb 值看看是否正确。

修改：

你没给出发生错误的位置，我根据代码推断因该是以下代码发生错误：

x=aaa(i)

if aaa(i)="" then x=1

这段代码改为

If i >UBound(aaa) Then

x = 1

ElseIf aaa(i) = "" Then

x = 1

Else

x = aaa(i)

End If

---