ASP编程：将阿拉伯数字日期转换为中文数字日期格...

缺乏可以共同遵循的行业标准，ASP还处在发展初期，大家对它的理解不同，如产品和服务标准，收费标准等，不利于行业的健康发展。中文|转换方才看到一个兄弟提的成绩，做完了才发明已结贴，忧郁呀~~
只是看到这个器材还算有效，以是贴出来自赏呵呵
思绪：
一入手下手想到用select，用for轮回将每位阿拉伯数字转换成对应的中文，然后想到实在能够用数组，如许子对照少些代码，究竟0~9，能够对应起来，但是~成绩呈现了，关于10~31，要酿成“贰拾壹”如许格局，呵呵~加一个判别，嗯~11可不克不及转换成“壹拾壹”，在加判别
呵呵~基础好了，还必要判别是否是数字呢，ok！这下子应当是能够over了！
<%
t=Now()
Functiondatetostr(t)
DimstrYear,strMonth,strDay,strResult
strYear=Year(t)
strMonth=Month(t)
strDay=Day(t)
datetostr=casei(strYear)&"年"&casei(strMonth)&"月"&casei(strDay)&"日"
EndFunction
Functioncasei(i)
DimarrNum,arrCNNum
If(IsNumeric(i))Then
arrNum=Split(i)
arrCNNum=Split("零,壹,贰,叁,肆,伍,陆,柒,捌,玖",",")
If(i<10ORi>31)Then
Forit=1ToLen(i)
strResult=strResult&arrCNNum(CInt(Mid(i,it,1)))
Next
ElseIf(i>9ANDi<12)Then
strResult="拾"&arrCNNum(CInt(Mid(i,2,1)))
Else
strResult=arrCNNum(CInt(Mid(i,1,1)))&"拾"&arrCNNum(CInt(Mid(i,2,1)))
EndIf
EndIf
casei=strResult
EndFunction
Response.Write(datetostr(t))
%>
</p>ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...