仓酷云

标题: ASP网页编程之用ASP编写函数完成身份证考证代码 [打印本页]

作者: 柔情似水 时间: 2015-1-16 22:37
标题: ASP网页编程之用ASP编写函数完成身份证考证代码
由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。FunctionCheckCardId(e)
arrVerifyCode=Split("1,0,x,9,8,7,6,5,4,3,2",",")
Wi=Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2",",")
Checker=Split("1,9,8,7,6,5,4,3,2,1,1",",")

IfLen(e)<15OrLen(e)=16OrLen(e)=17OrLen(e)>18Then
CheckCardId="身份证号共有15码或18位"
CheckCardId=False
ExitFunction
EndIf

DimAi
IfLen(e)=18Then
Ai=Mid(e,1,17)
ElseIfLen(e)=15Then
Ai=e
Ai=Left(Ai,6)&"19"&Mid(Ai,7,9)
EndIf
IfNotIsNumeric(Ai)Then
CheckCardId="身份证除最初一名外，必需为数字！"

ExitFunction
EndIf
DimstrYear,strMonth,strDay
strYear=CInt(Mid(Ai,7,4))
strMonth=CInt(Mid(Ai,11,2))
strDay=CInt(Mid(Ai,13,2))
BirthDay=Trim(strYear)+"-"+Trim(strMonth)+"-"+Trim(strDay)
IfIsDate(BirthDay)Then
IfDateDiff("yyyy",Now,BirthDay)<-140orcdate(BirthDay)>date()Then

CheckCardId="身份证输出毛病！"
ExitFunction
EndIf
IfstrMonth>12OrstrDay>31Then
CheckCardId="身份证输出毛病！"
ExitFunction
EndIf
Else
CheckCardId="身份证输出毛病！"
ExitFunction
EndIf
Dimi,TotalmulAiWi
Fori=0To16
TotalmulAiWi=TotalmulAiWi+CInt(Mid(Ai,i+1,1))*Wi(i)
Next
DimmodValue
modValue=TotalmulAiWiMod11
DimstrVerifyCode
strVerifyCode=arrVerifyCode(modValue)
Ai=Ai&strVerifyCode
CheckCardId=Ai

IfLen(e)=18AndeAiThen
CheckCardId="身份证号码输出毛病！"
ExitFunction
EndIf
EndFunction
response.writeCheckCardId("528337194801020025")’’’’’’’’’这个不知是谁的身份证,我一试就出来了~~~~~~~~~哈哈
’’’’’这个假如前往的是输出的身份证,则标明准确,不然会提醒堕落...专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。

作者: 再现理想 时间: 2015-1-19 19:29
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

作者: 愤怒的大鸟 时间: 2015-1-28 09:48
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作者: 莫相离 时间: 2015-2-5 14:37
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: 冷月葬花魂 时间: 2015-2-12 07:32
Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

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

作者: 第二个灵魂 时间: 2015-3-11 08:04
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

作者: 透明 时间: 2015-3-18 00:08
我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

作者: 山那边是海 时间: 2015-3-25 08:09
那么，ASP.Net有哪些改进呢？

欢迎光临仓酷云 (http://ckuyun.com/)