请问白头发吃什么能变黑啊？是什么可以解决？

现在，除了老年人之外，很多年轻人也有很多白头发，这让人很是苦恼，十分影响美观。那么，白头发吃什么能变黑呢?为什么会长白发呢?长白头发应该怎么办?

白头发吃什么能变黑

核桃仁

核桃当中含有丰富的B族维生素、维生素C、胡萝卜素、油脂等营养元素，它可以补肾养血、润肺纳气、润肌乌发。经常食用可以使头发乌黑。

黑豆

黑豆，又名乌豆、黑豆，味甘性平。黑豆具有高蛋白、低热量的特性。古代药典上曾记载黑豆可驻颜、明目、乌发，使皮肤白嫩等功效。

最简单的方法就是煮粥或者是做豆浆，黑豆的营养价值比黄豆要高出好几倍，蛋白质含量比肉类还要多。每天吃上一碗黑豆粥或是一杯黑豆浆，再加上点枸杞子，会使头发得到改善。

黑芝麻

黑芝麻里含有大量的蛋白质，糖类、维生素A、维生素E、卵磷脂、钙、铁、铬等营养成分，有健胃、保肝、促进红细胞生长的作用，同时可以增加体内黑色素，有利于头发生长。

胡萝卜

胡萝卜当中含有脂肪、挥发油、胡萝卜素等多种营养成分，多吃胡萝卜可以让身体营养充分，对新陈代谢有帮助，头发的营养也可以跟得上。

枸杞

枸杞有养肝明目、润肺止咳等功效。枸杞富含维生素B1、维生素B2\维生素C、胡萝卜素、尼克酸、亚油酸、铁等多种元素。现代药理学证明，枸杞有改善肝功能、促进细胞生成，使皮肤细嫩、明目乌发等作用。

紫菜

紫菜的营养十分丰富，自古就是养颜的佳品。紫菜富含胡萝卜素、B族维生素、蛋白质、碘、磷、糖等多种营养成分。此外，紫菜所含的脂肪比海带多8倍，蛋白质比鲜蘑多9倍，所含磷质也居菌类之首。

据现代医学证明，碘可以刺激甲状腺分泌甲状腺素，甲状腺素可使头发乌黑秀美。紫菜还有化痰、清热的功效。

为什么会长白头发

营养状况不好

头发和身体的其他器官一样，都是需要充足营养的。头发色素颗粒中含有铜，钴，铁，若是长期缺乏这些元素，会影响黑色素生成，导致头发变白。

精神因素

如果一个人长期抑郁寡欢，心境不佳或精神高度紧张，操劳过度，均可使头发由黑变白。

疾病因素

如果一个人才长期患有脑垂体机能下降，甲状腺机能亢进，结核，伤寒，恶性贫血等消耗病症，植物神经功能障碍等，也是头发由黑变白的疾病。

白头发怎么办

补充维生素B法

研究发现，一个人在面对沉重压力的时候，会加速体内维生素B的燃烧，容易使得头发斑白。因此，对于生活和工作压力较大的人，以及必须长时间经常用脑的人来说，直接补充维生素B，是最好的留住黑发的办法。

中医食疗法

中医认为，核桃对于遏制白发、缓解少白头等有着明显效果。因此，白头发较多的人不妨服用糖水核桃仁。将核桃1到2斤用清水浸泡2到3天，然后去皮，再放入糖水中煮，制成核桃仁糖。早晚各吃一次即可，每次8到10粒，连续吃三个月之后，部分人的头发就会变黑了一些，并减少脱发的现象。

按压涌泉法

毛发受肾经支配，直接反应肾功能。因此，要想遏制白发增多，就要提振肾经阳气。脚底的涌泉穴就是肾经上的重要穴位，有治疗白发过多、过早的作用。按摩双脚涌泉穴每15次为一个疗程，每天做两个疗程。此法必须长期坚持才能见到效果。

可以重复取值~~但是请楼主看清楚~~你上面执行成功的部分是因为放在了while的执行环境里面的并且加了rs.next()这个判断，意思是当有下一行的数据的时候进行读取~~但是到了下面一行的时候~~你的rs已经在上面读取到了最后一行的数据，到了下面就会出现没有数据的问题~~因为rs这个东西是一行一行数据读取的

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

问题描述:

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

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

---