|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp对于服务器的要求较高,一般的服务器如果访问量一大就垮了,不得不重启。年夜写|国民币|小写|转换<%
****国民币巨细写转换格局****
dimstr(9)
str(0)="零"
str(1)="壹"
str(2)="贰"
str(3)="叁"
str(4)="肆"
str(5)="伍"
str(6)="陆"
str(7)="柒"
str(8)="捌"
str(9)="玖"
aa=Request.form("source")
hh=formatnumber(aa,2,-1)
aa=replace(hh,".","")
aa=replace(aa,",","")
fori=1tolen(aa)
s=mid(aa,i,1)
mynum=str(s)
selectcase(len(aa)+1-i)
case1:k=mynum&"分"
case2:k=mynum&"角"
case3:k=mynum&"元"
case4:k=mynum&"拾"
case5:k=mynum&"佰"
case6:k=mynum&"仟"
case7:k=mynum&"万"
case8:k=mynum&"拾"
case9:k=mynum&"佰"
case10:k=mynum&"仟"
endselect
m=m&k
next
%>
<html>
<head>
<title>数字转换</title>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
</head>
<!--
Elseif(s=".")then
n=m
i=i+2
forj=itolen(aa)
s=mid(aa,i,1)
mynum=str(s)
selectcase(len(aa)+1-i)
case1:p=mynum&"分"
case2:p=mynum&"角"
endselect
m=m&p
next
-->
<bodybgcolor="#FFFFFF">
<formmethod="post"name="forma">
<inputtype="text"name="source"value="<%=hh%>">
=
<inputtype="text"name="result"value="<%=m%>"size="40">
<inputtype="submit"name="Submit"value="提交">
</form>
</body>
</html>
</p>源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码 |
|