asp虚拟货币
Ⅰ asp 里面 如何正常显示货币数值
<%
function formatMoney(m)
m = formatNumber(m, 2)
if m > 0 and m < 1
if left(m, 1) <> "0" then tmp = "0" & m
else
tmp = "" & m
end if
formatMoney = tmp
end function
'显示的时候这样调用
m = .1
response.write(formatMoney(m))
%>
Ⅱ asp 要将货币类型的字段total读到的数据转大写怎么写请各位大狭指点。跪求
转换大小写金额的ASP代码
文件名 atoc.asp
<%
dim a '要转换成大写的金额
dim atoc '转换之后的值
Dim String1 '如下定义
Dim String2 '如下定义
Dim String3 '从原A值中取出的值
Dim I '循环变量
Dim J 'A的值乘以100的字符串长度
Dim Ch1 '数字的汉语读法
Dim Ch2 '数字位的汉字读法
Dim nZero '用来计算连续的零值是几个
String1 = "零壹贰叁肆伍陆柒捌玖"
String2 = "万仟佰拾亿仟佰拾万仟佰拾元角分"
nZero = 0
If InStr(1, CStr(a * 100), ".") <> 0 Then
err.Raise 5000, , "此函数( AtoC() )只能转换小数点后有两位以内的数！"
End If
J = Len(CStr(a * 100))
String2 = Right(String2, J) '取出对应位数的STRING2的值
For I = 1 To J
String3 = Mid(a * 100, I, 1) '取出需转换的某一位的值
If I <> (J - 3) + 1 And I <> (J - 7) + 1 And I <> (J - 11) + 1 And I <>(J - 15) + 1 Then
If String3 = 0 Then
Ch1 = ""
Ch2 = ""
nZero = nZero + 1
ElseIf String3 <> 0 And nZero <> 0 Then
Ch1 = "零" & Mid(String1, clng(String3) + 1, 1)
Ch2 = Mid(String2, I, 1)
nZero = 0
Else
Ch1 = Mid(String1, clng(String3) + 1, 1)
Ch2 = Mid(String2, I, 1)
nZero = 0
End If
Else '该位是万亿，亿，万，元位等关键位
If String3 <> 0 And nZero <> 0 Then
Ch1 = "零" & Mid(String1, clng(String3) + 1, 1)
Ch2 = Mid(String2, I, 1)
nZero = 0
ElseIf String3 <> 0 And nZero = 0 Then
Ch1 = Mid(String1, clng(String3) + 1, 1)
Ch2 = Mid(String2, I, 1)
nZero = 0
ElseIf String3 = 0 And nZero >= 3 Then
Ch1 = ""
Ch2 = ""
nZero = nZero + 1
Else
Ch1 = ""
Ch2 = Mid(String2, I, 1)
nZero = nZero + 1
End If
If I = (J - 11) + 1 Or I = (J - 3) + 1 Then '如果该位是亿位或元位，则必须写上
Ch2 = Mid(String2, I, 1)
End If
End If
AtoC = AtoC & Ch1 & Ch2
If I = J And String3 = 0 Then '最后一位（分）为0时，加上"整"
AtoC = AtoC & "整"
End If
Next
if a=0 then
atoc="零元整"
end if
%>
把以上代码存为：atoc.asp
调用方法：<!--#include file="atoc.asp"-->
<%
a=要转换的小写人民币数
%>
<%=AtoC%> 输出大写人民币数
网上收集的，我使用多次。很好用
Ⅲ ASP中“货币类型变量“加什么符号
还是一样：username='"&字符串类型变量&"'
只要是变量的话就是这种写法
Ⅳ asp 货币格式怎么写入数据库
我记得就是数字类型的
直接写 不用单引号
把他当数字对待
Ⅳ 比如 我帐户有10元币 一天扣一个的ASP代码怎么写呢`
int money=10 //钱
while（money>0）
{
money - = 1;
}
Ⅵ ASP中判断数据为货币型的判断语句。
没有专门判断是否为货币的函数，也没必要，因为货币就是数字，用IsNumeric判断是否为数字就可以了。
Ⅶ ASP调用货币类型字段时.怎么写才能原样显示￥10.00
response.write format(10,"￥0.00")
Ⅷ ASP怎样用代码调用货币的完整数字显示
如果只是要显示前面的0，那就这样写：FormatNumber(rs("APrice"),2,-1)
如果数据库里的是货币类型，就这样写：FormatCurrency(rs("APrice"))
Ⅸ ASP 插入 货币
ACCESS 数据库里的字段选择 货币型 或是双精度型 按照数字类型操作就可以了 注意不要用 int() 等取整函数.
Ⅹ asp中货币变量的格式化问题
<%
response.Write((FormatCurrency("￥0.060",2,-1,-1,-1)))
%>
FormatCurrency 函数
返回表达式，此表达式已被格式化为货币值（使用系统控制面板中定义的货币符号）。
FormatCurrency(
expression[,NumDigitsAfterDecimal [,IncludeLeadingDigit [,UseParensForNegativeNumbers [,GroupDigits]]]]
)
参数
Expression
必选项。要被格式化的表达式。
NumDigitsAfterDecimal
可选项。指示小数点右侧显示位数的数值。默认值为 -1，指示使用的是计算机的区域设置。
IncludeLeadingDigit
可选项。三态常数，指示是否显示小数值小数点前面的零。有关数值，请参阅“设置”部分。
UseParensForNegativeNumbers
可选项。三态常数，指示是否将负值置于括号中。有关数值，请参阅“设置”部分。
GroupDigits
可选项。三态常数，指示是否使用计算机区域设置中指定的数字分组符号将数字分组。有关数值，请参阅“设置”部分。
设置
IncludeLeadingDigit、UseParensForNegativeNumbers 和 GroupDigits 参数可以有以下值：
常数 值 描述
TristateTrue -1 True
TristateFalse 0 False
TristateUseDefault -2 使用计算机区域设置中的设置。