将身份证从15位升级为18位的函数

    '将身份证从15位升级为18位的函数

    Function GetNewIDCard(ByVal IDCard As String) As String
        Dim i, S As Integer
        Dim Wi() As String = Split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1", ",")
        Dim Wf() As String = Split("1,0,X,9,8,7,6,5,4,3,2", ",")
        If Mid(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)
        End If
        For i = 0 To 16
            S += Wi(i) * Mid(IDCard, i + 1, 1)
        Next
        Return IDCard & Wf(S Mod 11)
    End Function

• ASP
• PHP
• JSP
• CGI/perl
• ASP.NET
• C#
• XML
• 编程综合

• 透彻掌握ASP分页技术
• ASP上传图片自动生成缩略图解决方案
• ASP中读取远程XML文件的方法 XMLHttp+XMLDOM
• 在ASP中连接MySQL数据库，最好通过ODBC方法
• 如何将身份证号码变成出生年月日
• ASP常用函数收集
• ASP中Cookie使用指南
• 获取远程服务器数据（asp，adodb.stream，保存远程图片，XMLHTTP）
• 使用Jmail4.0发送HTML邮件
• ASP自定义常用函数集合

• 使用VB将ASP代码封装生成DLL文件
• 透彻掌握ASP分页技术
• ASP操作数据库的类
• 改进性能和样式的 24个 ASP 技巧
• ASP自定义常用函数集合
• 在ASP中连接MySQL数据库，最好通过ODBC方法
• 介绍一种效率极高的分类算法
• ASP网站生成静态页面，及网站数据采集的攻、防原理和策略
• 用ASP动态生成JavaScript的表单验证代码
• 使用Jmail4.0发送HTML邮件