ASP教程之将身份证从15位晋级为18位的函数身份证

愤怒的大鸟 发表于 2015-1-16 22:35:27

ASP教程之将身份证从15位晋级为18位的函数

asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.将身份证从15位晋级为18位的函数FunctionGetNewIDCard(ByValIDCardAsString)AsString
Dimi,SAsInteger
DimWi()AsString=Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1",",")
DimWf()AsString=Split("1,0,X,9,8,7,6,5,4,3,2",",")
IfMid(IDCard,7,2)>=Mid(Now.AddYears(-14).Year,3,2)Then
IDCard=Mid(IDCard,1,6)&"18"&Mid(IDCard,7,9)
Else
IDCard=Mid(IDCard,1,6)&"19"&Mid(IDCard,7,9)
EndIf
Fori=0To16
S+=Wi(i)*Mid(IDCard,i+1,1)
Next
ReturnIDCard&Wf(SMod11)
EndFunction

写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)

仓酷云 发表于 2015-1-19 17:52:26

Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

海妖发表于 2015-1-25 12:10:22

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

变相怪杰 发表于 2015-2-2 22:03:13

我们必须明确一个大方向，不要只是停留在因为学而去学,我们应有方向应有目标.

分手快乐 发表于 2015-2-8 09:51:18

不能只是将它停留在纸上谈兵的程度上。

再现理想 发表于 2015-2-25 09:00:05

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

只想知道 发表于 2015-3-7 18:57:19

若相依 发表于 2015-3-15 11:53:26

没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

兰色精灵 发表于 2015-3-22 00:51:03

从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

页: [1]

仓酷云's Archiver

ASP教程之将身份证从15位晋级为18位的函数