第一项目_convertnumtocc-CSDN博客

本文链接：https://blog.csdn.net/aloesky/article/details/3871560

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<%
on error resume next
dim eee,fff,ggg,ccc,a1,a2,a3,bbb,ccctmp

if request("action") = "new" then
  eee = trim(request("eee"))
  fff = trim(request("fff"))
  ggg = trim(request("ggg"))
  ccctmp = CDbl(eee) + CDbl(fff) + CDbl(ggg)

  ccc = CDbl(ccctmp)/10000000 + 1.000000000001
  a1 = MID(ccc,3,1)
  a2 = MID(ccc,4,1)
  a3 = MID(ccc,5,1)
  a4 = MID(ccc,6,1)
  a5 = MID(ccc,7,1)
  a6 = MID(ccc,8,1)
  a7 = MID(ccc,9,1)
  a8 = MID(ccc,10,1)
  a9 = MID(ccc,11,1)
  bbb = rmb(ccctmp)

    strconn = "select ctest.* from ctest"
    set rs = server.createobject("adodb.recordset")
    rs.open strconn, conn, 1, 3

    rs.addnew
    rs("eee") = eee
    rs("fff") = fff
    rs("ggg") = ggg
    rs("ccctmp") = ccctmp
                rs("ccc") = ccc
    rs("a1") = a1
    rs("a2") = a2
    rs("a3") = a3
    rs("a4") = a4
    rs("a5") = a5
    rs("a6") = a6
    rs("a7") = a7
    rs("a8") = a8
    rs("a9") = a9
                rs("bbb") = bbb
    rs.update
    rs.close
    set rs = nothing
end if
%>

<body>

<%
strconn3 = "select Ctest.* from Ctest where tid=(select max(tid) from ctest)"
set rs3 = server.createobject("adodb.recordset")
rs3.open strconn3, conn, 1, 1
%>
<form name="form1" method="post" action="test.asp?action=new">

<input name="eee" type="text" value="<%=rs3("eee")%>">
 +
 <input name="fff" type="text" value="<%=rs3("fff")%>">
 +
 <input name="ggg" type="text" value="<%=rs3("ggg")%>">

  之和为  <%=rs3("ccctmp")%>

   分离大写为：
 <%=convertNumToCC(rs3("a1"))%>佰
 <%=convertNumToCC(rs3("a2"))%>拾
 <%=convertNumToCC(rs3("a3"))%>万
 <%=convertNumToCC(rs3("a4"))%>仟
 <%=convertNumToCC(rs3("a5"))%>佰
 <%=convertNumToCC(rs3("a6"))%>拾
 <%=convertNumToCC(rs3("a7"))%>元
 <%=convertNumToCC(rs3("a8"))%>角
 <%=convertNumToCC(rs3("a9"))%>分
  人民币大写为：<%=rs3("bbb")%>

  之和为  <%=rs3("ccctmp")%>

   分离小写为：
 <%=rs3("a1")%> 百
 <%=rs3("a2")%> 十
 <%=rs3("a3")%> 万
 <%=rs3("a4")%> 千
 <%=rs3("a5")%> 百
 <%=rs3("a6")%> 十
 <%=rs3("a7")%> 元
 <%=rs3("a8")%> 角
 <%=rs3("a9")%> 分
  人民币大写为：<%=rs3("bbb")%>

 <input type="submit" name="Submit" value="提交">

 

 <input type="reset" name="Submit" value="重置">

</form>
</body>
</html>
<%
rs3.close
set rs3 = nothing
conn.close
set conn = nothing
%>