100分求一段小代码,还可以给更多分!我对asp不熟!

好长时间没用过asp了,vb那些东西也都不会了
有个数据库的字段PLAN_DATA查出来是一堆字符,要字符串解码以后把那些用逗号隔开的值加在一起
谁比较熟练帮忙写上,其他连库,查询的地方我都攒上了,万分感谢

这里给一个这样的常量举例:

dim PLAN_DATA
PLAN_DATA="1.820000e+002,1.850000e+002,1.880000e+002,1.260000e+002,1.170000e+
002,1.570000e+002,1.320000e+002,1.320000e+002,1.690000e+002,1.540000e+002,1.2
10000e+002,1.890000e+002,1.760000e+002,1.290000e+002,1.680000e+002,1.920000e+
002,1.250000e+002,1.550000e+002,1.340000e+002,1.490000e+002,1.410000e+002,1.1
20000e+002,1.450000e+002,1.600000e+002,1.180000e+002,1.530000e+002,1.390000e+
002,1.230000e+002,1.790000e+002,1.960000e+002,1.870000e+002,1.290000e+002,1.4
90000e+002,1.370000e+002,1.660000e+002,1.490000e+002,1.930000e+002,1.950000e+
002,1.970000e+002,1.160000e+002,1.860000e+002,1.050000e+002,1.880000e+002,1.8
20000e+002,1.550000e+002,1.340000e+002,1.140000e+002,1.010000e+002,1.160000e+
002,1.710000e+002,1.860000e+002,1.630000e+002,1.130000e+002,1.550000e+002,1.8
50000e+002,1.530000e+002,1.120000e+002,1.080000e+002,1.320000e+002,1.450000e+
002,1.130000e+002,1.560000e+002,1.210000e+002,1.580000e+002,1.460000e+002,1.8
20000e+002,1.810000e+002,1.440000e+002,1.960000e+002,1.220000e+002,1.290000e+
002,1.610000e+002,1.350000e+002,1.500000e+002,1.730000e+002,1.660000e+002,1.4
002,1.540000e+002,1.100000e+002,1.450000e+002,1.490000e+002,1.860000e+002,1.1
30000e+002,1.740000e+002,1.220000e+002,1.680000e+002,1.180000e+002,1.870000e+
002,1.050000e+002,1.580000e+002,1.910000e+002"
上面这些是从库里读出来的一个字段,要把这些用逗号分开的值加在一起,总共96个

for i=1 to 96 step 1
这里写些什么呀????

next

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

求和吗?
str="..."
aa=split(str,",")
for i=0 to 95
aa(i+1)=CLng(aa(i))+CLng(aa(i+1))
next
---------------------------------------------------------------

all=0
arry=split(PLAN_DATA,",")
for i=0 to 95 step 1
all=all+arry(i)
next
---------------------------------------------------------------

dim array_data
array_data=split(PLAN_DATA,",")

for i=lbound(array_data) to ubound(array_data)
isum=isum+CDBL(array_data[i])
next
---------------------------------------------------------------

formatnumber(isum,2)
FormatNumber 函数 语言参考
版本 2

请参阅

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

描述
返回表达式,此表达式已被格式化为数值。
语法
FormatNumber(expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]])
FormatNumber 函数的语法有以下参数:

参数 描述
expression 必选。要被格式化的表达式。
NumDigitsAfterDecimal 可选。指示小数点右侧显示位数的数值。默认值为 -1,指示使用的是计算机的区域设置。
IncludeLeadingDigit 可选。三态常数,指示是否显示小数值小数点前面的零。有关数值,请参阅“设置”部分。
UseParensForNegativeNumbers 可选。三态常数,指示是否将负值置于括号中。有关数值,请参阅“设置”部分。
GroupDigits 可选。三态常数,指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值,请参阅“设置”部分。

设置
IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数可以有以下值:
常数 值 描述
TristateTrue -1 True
TristateFalse 0 False
TristateUseDefault -2 使用计算机区域设置中的设置。

说明
当省略一个或多个可选参数时,由计算机区域设置提供被省略参数的值。
--------------------------------------------------------------------------------

注意 所有设置信息均取自区域设置的“数字”附签。

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

Published At
Categories with Web编程
Tagged with
comments powered by Disqus