随机生成身份证，15位自动转18位代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】随机生成身份证，15位自动转18位

作者:newhandan/ / 发布于2012/11/15/ 1246

<%
Dim sr,sfz
sr=FixBirthday("1988年08月08日")
sfz="130400"&sr&"0"&RndNumber(100,999)
response.Write(sfz)
response.Write("")
response.Write(FixID("130421820305035"))
Function FixID(sID)
Dim sTmp
sTmp=Mid(sID,1,6)
sTmp=sTmp&"19"&Mid(sID,7,Len(sID))&RndEnd()
FixID=sTmp
End Function
Function FixBirthday(sBirthday)
sBirthday=Replace(sBirthday,"-","")
sBirthday=Replace(sBirthday,"年","")
sBirthday=Replace(sBirthday,"月","")
sBirthday=Replace(sBirthday,"日","")
if len(sBirthday)<>8 then
   sBirthday=RndNumber(1950,2009)&RndYue()&RndRi()
end if
FixBirthday=sBirthday
End Function
Function RndYue()
Randomize
Dim yTmp
yTmp=int((12-1+1)*rnd+1)
If Len(yTmp)=1 Then yTmp="0"&yTmp
RndYue=yTmp
End Function
Function RndRi()
Randomize
Dim rTmp
rTmp=int((31-1+1)*rnd+1)
If Len(rTmp)=1 Then rTmp="0"&rTmp
RndRi=rTmp
End Function
Function RndEnd()
Randomize
Dim eTmp
eTmp=int((9-1+1)*rnd+1)
RndEnd=eTmp
End Function
Function RndNumber(MinNum,MaxNum)
Randomize
Dim iTmp
iTmp=int((MaxNum-MinNum+1)*rnd+MinNum)
RndNumber=iTmp
End Function
%>

试试其它关键字

　生成身份证　

同语言下

可能有用的

newhandan/贡献的其它代码(1)

.随机生成身份证，15位自动转18位