⑴ 如何用asp实现人民币小写转大写，要标准点的，比如200，转成后应该是贰佰圆整
Function money(rmb)
cRmb1="仟佰拾万仟佰拾亿仟佰拾万仟佰拾元角分"
cRmb2="壹贰叁肆伍陆柒捌玖"
cRmb=TRIM(CSTR(ROUND(Rmb,2)*100))
if right(crmb,1)="0" then
cReChsRmb="整"
nZero=0
else
cReChsRmb=""
nZero=1
end if
FOR i=LEN(cRmb) to 1 step -1
cNum=Mid(cRmb,i,1)
IF Not cNum="0" then
cReChsRmb=Mid(cRmb2,INT(cInt(Mid(cRmb,i,1))),1)+Mid(cRmb1,I-LEN(cRmb)+18,1)+cReChsRmb
nZero=1
ELSE
cChsNum2=Mid(cRmb1,I-LEN(cRmb)+18,1)
if InStr(cChsNum2,"亿")>0 and InStr(cChsNum2,"万")>0 and InStr(cChsNum2,"元")>0 then
if cChsNum2="亿" and LEFT(cReChsRmb,2)="万" then
cReChsRmb=cChsNum2+SUBSTRC(cReChsRmb,2)
else
cReChsRmb=cChsNum2+cReChsRmb
end if
else
if nZero=1 then
cReChsRmb="零"+cReChsRmb
else
cReChsRmb=cReChsRmb
end if
end if
nZero=0
END IF
next
money=cReChsRmb
end Function
⑵ 谁能给个Windows Vista Enterprise sp1 CHS的可用下载地址
http://bbs.vista123.com/thread-25381-1-1.html
试试看吧
⑶ 求ZWCAD 2009 Chs的授权号
勾使用硬件锁获得授权方式注册，注册时不要勾网络版!! ZWCAD授权号 86849B67 ACIS 授权号 EA05C492