⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 add_tuyun144.asp

📁 20041230162250801409： 浙江省丽水市公铁联运有限公司OA系统（物流） 开发语言：PHP/ASP/PERL 本系统包括各个部门的管理
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<link href="../../appmain.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language="vbscript">
Function Up(Dxs)
  dim Sw 
  dim SzP 
  dim TempStr 
  dim TempA 
  dim i 
  dim DXStr
  
  Sw = Len(Trim(Dxs))
  SzP = InStr(1, Trim(Dxs), ".")
  If SzP = 0 Then
   For i = 1 To Sw
       TempStr = Right(Trim(Dxs), i)
          TempStr = Left(TempStr, 1)
          TempStr = Converts(TempStr)
          Select Case i
              Case 1
                  If TempStr = "零" Then
                     TempStr = "元"
                     Else
                     TempStr = TempStr + "元"
                  End If
              Case 2
                  If TempStr = "零" Then
                     TempStr = "零"
                  Else
                     TempStr = TempStr + "拾"
                  End If
              Case 3
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "佰"
                  End If
              Case 4
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "仟"
                  End If
              Case 5
                  If TempStr = "零" Then
                     TempStr = "万"
                     Else
                     TempStr = TempStr + "万"
                  End If
              Case 6
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "拾"
                  End If
              Case 7
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "佰"
                  End If
              Case 8
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "仟"
                  End If
              Case 9
                  If TempStr = "零" Then
                     TempStr = "亿"
                     Else
                     TempStr = TempStr + "亿"
                  End If
           End Select
       TempA = Left(Trim(DXStr), 1)
       If TempStr = "零" Then
          Select Case TempA
            Case "零"
                DXStr = DXStr
            Case "元"
                DXStr = DXStr
            Case "万"
                DXStr = DXStr
            Case "亿"
                DXStr = DXStr
            Case Else
                DXStr = TempStr + DXStr
          End Select
         Else
           DXStr = TempStr + DXStr
       End If
       Next
    Else
      For i = 1 To SzP - 1
           TempStr = Right(Trim(Dxs), i + (Sw - SzP + 1))
           TempStr = Left(TempStr, 1)
           TempStr = Converts(TempStr)
           Select Case i
              Case 1
                  If TempStr = "零" Then
                     TempStr = "元"
                     Else
                     TempStr = TempStr + "元"
                  End If
              Case 2
                  If TempStr = "零" Then
                     TempStr = "零"
                  Else
                     TempStr = TempStr + "拾"
                  End If
              Case 3
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "佰"
                  End If
              Case 4
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "仟"
                  End If
              Case 5
                  If TempStr = "零" Then
                     TempStr = "万"
                     Else
                     TempStr = TempStr + "万"
                  End If
              Case 6
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "拾"
                  End If
              Case 7
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "佰"
                  End If
              Case 8
                  If TempStr = "零" Then
                     TempStr = "零"
                     Else
                     TempStr = TempStr + "仟"
                  End If
              Case 9
                  If TempStr = "零" Then
                     TempStr = "亿"
                     Else
                     TempStr = TempStr + "亿"
                  End If
              Case Else
              
                 TempStr = ""
           End Select
          TempA = Left(Trim(DXStr), 1)
       If TempStr = "零" Then
          Select Case TempA
            Case "零"
                DXStr = DXStr
            Case "元"
                DXStr = DXStr
            Case "万"
                DXStr = DXStr
            Case "亿"
                DXStr = DXStr
            Case Else
                DXStr = TempStr + DXStr
          End Select
         Else
           DXStr = TempStr + DXStr
       End If
       Next
        XStr = Right(Trim(Dxs), Sw - SzP)
         For i = 1 To Sw - SzP
           TempStr = Left(XStr, i)
           TempStr = Right(TempStr, 1)
           TempStr = Converts(TempStr)
           Select Case i
              Case 1
               If TempStr = "零" Then
                   TempStr = ""
                  Else
                   TempStr = TempStr + "角"
               End If
              Case 2
               If TempStr = "零" Then
                   TempStr = ""
                  Else
                   TempStr = TempStr + "分"
                  End If
              Case Else
         
                TempStr = ""
           End Select
          DxstrX = DxstrX + TempStr
       Next
       DXStr = DXStr + DxstrX
  End If
     Up = DXStr & "整"
End Function

Function Converts(NumStr)
     Select Case NumStr
        Case 0
          Converts = "零"
        Case 1
    Converts = "壹"
        Case 2
          Converts = "贰"
        Case 3
          Converts = "叁"
        Case 4
          Converts = "肆"
        Case 5
          Converts = "伍"
        Case 6
           Converts = "陆"
        Case 7
           Converts = "柒"
        Case 8
           Converts = "捌"
        Case 9
           Converts = "玖"
     End Select
End Function
function dd()
      value=login("ww11").Value
		 login("ww10").value=up(value)
  end function
</script>
<title>丽水市公的联运有限公司托运单</title>
</head>

<body>
<script language="JavaScript"  src="function.js"></script>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" class="TOOLBARTABLE">
  <tr>
    <td><div align="center">丽水市公铁联运有限公司托运单</div></td>
  </tr>
</table>
<form action="tuyun1_save.asp" method="post" name="Login" id="Login" onSubmit="return CheckForm()">
  <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" class="FORMTABLE">
    <tr> 
      <td width="45%">托运日期 
        <select name="aa" id="select">
          <option value="1998年">1998年</option>
          <option value="1999年">1999年</option>
          <option value="2000年">2000年</option>
          <option value="2001年">2001年</option>
          <option value="2002年">2002年</option>
          <option value="2003年">2003年</option>
          <option value="2004年">2004年</option>
          <option value="2005年">2005年</option>
          <option value="2006年">2006年</option>
          <option value="2007年">2007年</option>
          <option value="2008年">2008年</option>
          <option value="2009年">2009年</option>
          <option value="2010年">2010年</option>
          <option value="2011年">2011年</option>
          <option value="2012年">2012年</option>
          <option value="2013年">2013年</option>
          <option value="2014年">2014年</option>
          <option value="2015年">2015年</option>
          <option value="2016年">2016年</option>
        </select> 
        <select name="bb" id="bb">
          <option value="01月">01月</option>
          <option value="02月">02月</option>
          <option value="03月">03月</option>
          <option value="04月">04月</option>
          <option value="05月">05月</option>
          <option value="06月">06月</option>
          <option value="07月">07月</option>
          <option value="08月">08月</option>
          <option value="09月">09月</option>
          <option value="10月">10月</option>
          <option value="11月">11月</option>
          <option value="12月">12月</option>
        </select>
        <select name="cc" id="cc">
          <option value="01日">01日</option>
          <option value="02日">02日</option>
          <option value="03日">03日</option>
          <option value="04日">04日</option>
          <option value="05日">05日</option>
          <option value="06日">06日</option>
          <option value="07日">07日</option>
          <option value="08日">08日</option>
          <option value="09日">09日</option>
          <option value="10日">10日</option>
          <option value="11日">11日</option>
          <option value="12日">12日</option>
          <option value="13日">13日</option>
          <option value="14日">14日</option>
          <option value="15日">15日</option>
          <option value="16日">16日</option>
          <option value="17日">17日</option>
          <option value="18日">18日</option>
          <option value="19日">19日</option>
          <option value="20日">20日</option>
          <option value="21日">21日</option>
          <option value="22日">22日</option>
          <option value="23日">23日</option>
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -