dhl：ASP中Clng()函数溢出问题（数据类型转换函数）

Set Rs=Conn.Execute("Select Score,InsureScore From GameScoreInfo Where UserID="& session("userid") &"")
  if not rs.eof then
     session("money")=clng(rs(0))
	 session("yhang")=clng(rs(1)) 
	 dim zong
	 zong=session("money")+session("yhang")
  end if

clng数据溢出。

改为：

<%
  Set Rs=Conn.Execute("Select Score,InsureScore,(Score+InsureScore) From GameScoreInfo Where UserID="& session("userid") &"")
  if not rs.eof then
     session("money")=rs(0)'CDBL(rs(0))
	 session("yhang")=rs(1)'clng(rs(1)) 
	 dim zong
	 zong=rs(2)
	 'zong=session("money")+session("yhang")
  end if
  rs.close
%>

Asp数据类型转换函数：

<%

'数据类型转换函数

Cint(str)
'转换正数:True=-1;False=0
'日期:距离1899/12/31天数
'时间:上午段 0;下午段 1

Cstr(str)
'日期=输出格式yyyy/mm/dd
'时间=输出格式Am/Pm hh:mm:ss

Clng(str)
'与Cin()类似

Cbool(num)
'num不为零=True;反之=False

Cdate(str)
'转换
'日期格式 0=#Am 12:00:00#
'正数=距离1899/12/31天数的日期
'浮点数=日期+小数时间

Cbyte(num)
'num<255转换为字节

Csng(str)
'转换为单精度数值

Cdbl(str)
'转换为双精度数值

Ccur(str)
'转换为现金格式

%>