仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 423|回复: 10
打印 上一主题 下一主题

[学习教程] ASP网站制作之ASP 写的判别 Money 各个位值的函数

[复制链接]
灵魂腐蚀 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:40:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件,简单易用,无需专业技术支持。函数比来在公司做一个帐务报销体系。
必要把一个MONEY值的个位十位百位千位另有角啊分啊的独自掏出来天生表格。
因而写了一个失掉此值的Function,放到这里共享。假如你看到有写得不当的中央,请给我来killhand007@163.com斧正交换。

FunctionMoneynm(n,m)
checkPoint=InstrRev(n,".")
Ifn>9999.99Then
Response.write"数据凌驾限定,请断定您的报销金额在9999.99元之内!"
Else
If(checkPoint0)Then
leftNum=Mid(n,1,checkPoint-1)
rightNum=Mid(n,checkPoint+1,Len(n))
Else
leftNum=n
EndIf
gw=Mid(leftNum,Len(leftNum),Len(leftNum))
sw=0
bw=0
qw=0
jw=0
fw=0
IfLen(leftNum)>1Then
sw=Mid(leftNum,Len(leftNum)-1,1)
EndIf
IfLen(leftNum)>2Then
bw=Mid(leftNum,Len(leftNum)-2,1)
EndIf
IfLen(leftNum)>3Then
qw=Mid(leftNum,Len(leftNum)-3,1)
EndIf
IfLen(rightNum)>0Then
jw=Mid(rightNum,1,1)
EndIf
IfLen(rightNum)>1Then
fw=Mid(rightNum,2,1)
EndIf
Selectcasem
case"gw"
Response.Writegw
case"sw"
Response.Writesw
case"bw"
Response.Writebw
case"qw"
Response.Writeqw
case"jw"
Response.Writejw
case"fw"
Response.Writefw
EndSelect
EndIf
EndFunction

固然在此基本上你还能够失掉万位十万位等。
但愿对有必要的伴侣有所匡助。
</p>asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。
因胸联盟 该用户已被删除
沙发
发表于 2015-1-17 15:50:42 | 只看该作者
掌握asp的特性而且一定要知道为什么。
老尸 该用户已被删除
板凳
发表于 2015-1-20 18:48:03 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
若天明 该用户已被删除
地板
发表于 2015-1-25 11:46:16 | 只看该作者
我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页,这其中就用到了ASP,我想它的作用是可想而知的。
谁可相欹 该用户已被删除
5#
发表于 2015-1-27 06:13:46 | 只看该作者
在平时的学习过程中要注意现学现用,注重运用,在掌握了一定的基础知识后,我们可以尝试做一些网页,也许在开始的时候我们可能会遇到很多问题,比如说如何很好的构建基本框架。
深爱那片海 该用户已被删除
6#
发表于 2015-2-2 16:38:22 | 只看该作者
他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。
爱飞 该用户已被删除
7#
发表于 2015-2-8 01:36:13 | 只看该作者
学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点:
山那边是海 该用户已被删除
8#
发表于 2015-2-23 21:34:27 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
简单生活 该用户已被删除
9#
发表于 2015-3-7 10:24:40 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
变相怪杰 该用户已被删除
10#
发表于 2015-3-14 20:52:14 | 只看该作者
没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。
11#
发表于 2015-3-21 14:11:41 | 只看该作者
以HTML语言整合(HTML负责界面上,ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 10:38

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表