在文本框中输入如下数据: 1.23,1.33,1.5,1.22   type ="text"  name=" index"

  使用split()函数 读取 数据, 写入到数组 index()中,
 要求计算1.23*1.33*1.5*1.22 的乘积,写到数据库中, 出现数据类型不匹配问题, 好象是数组中的数据是字符型, 使用csng()将数组中各个值进行转换,
 系统提示:         
      Microsoft VBScript 运行时错误 (0x800A000D)
      类型不匹配: 'CSng'
请问如何解决?

dim rsum                '最后结果  
dim index()
dim rindex()
redim index(sum)        ' sum为变量,值为rs.recordcount
redim rindex(sum)
temp3=trim(replace(request("index"),",,",","))  '取出文本框index数据, 并将值写到数组index()
    for i= 2 to sum      
      index(i)=split(temp3,",")         
    next

   For i = 2 To sum
       rindex(i) = CSng(index(i))  '转换成单精度型,写到数组rindex()中, 提示类型不匹配 'CSng'
   Next

   for  i=sum to 2 step -1     '计算rsum的值,rsum= 1.22+1.22*1.5+1.22*1.5*1.33+1.22*1.5*1.33*1.23
    s=1
    s=s*rindex(i)         '就是这行出现问题...,好象是数据类型不匹配
    rsum=rsum+s
  next

[[it] 本帖最后由 dsgjuni 于 2008-5-3 10:32 编辑 [/it]]

取整不行,  因为必须有小数, 精度有要求.
   即使是用cint, 同样提示 类似csng 这样的错误.  无语了 . 继续求......
难道asp 中计算功能那么面???