代码语言
.
CSharp
.
JS
Java
Asp.Net
C
MSSQL
PHP
Css
PLSQL
Python
Shell
EBS
ASP
Perl
ObjC
VB.Net
VBS
MYSQL
GO
Delphi
AS
DB2
Domino
Rails
ActionScript
Scala
代码分类
文件
系统
字符串
数据库
网络相关
图形/GUI
多媒体
算法
游戏
Jquery
Extjs
Android
HTML5
菜单
网页交互
WinForm
控件
企业应用
安全与加密
脚本/批处理
开放平台
其它
【
ASP
】
随机生成身份证,15位自动转18位
作者:
newhandan/
/ 发布于
2012/11/15
/
1128
<% 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 %>
试试其它关键字
生成身份证
同语言下
.
二进制输出
.
查找text文本中指定字符或词所在句子
.
阻止浏览器冒泡事件,兼容firefox和ie
.
xmlhttp 读取文件
.
定时跳转页面
.
除asp中所有超链接
.
获取Session
.
打包时自定义应用程序的快捷方式与卸载
.
获取局域网中可用SQL Server服务器
.
判断汉字字数
可能有用的
.
C#实现的html内容截取
.
List 切割成几份 工具类
.
SQL查询 多列合并成一行用逗号隔开
.
一行一行读取txt的内容
.
C#动态修改文件夹名称(FSO实现,不移动文件)
.
c# 移动文件或文件夹
.
c#图片添加水印
.
Java PDF转换成图片并输出给前台展示
.
网站后台修改图片尺寸代码
.
处理大图片在缩略图时的展示
newhandan/
贡献的其它代码
(
1
)
.
随机生成身份证,15位自动转18位
Copyright © 2004 - 2024 dezai.cn. All Rights Reserved
站长博客
粤ICP备13059550号-3