<%
Dim Punit
Punit=150000 '此处调用你的价格或其它数值
if Punit>=10000 then
response.write Punit/10000 & "万元"
else
response.write Punit & "元"
end if%>