身份证15位转换成18位代码(vbscript)

今天论坛上有人要这个代码，有人转贴了个vb的，图方便就随便改写成了vbs的,并取消了1900年前的判断，希望原vb作者不要见怪。
如下：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Function GetNewIDCard(IDCard)
Dim i, S ,Wi,Wf,result
Wi= split("7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2",",",-1,1)
Wf= Split("1,0,X,9,8,7,6,5,4,3,2", ",",-1,1)
IDCard = Mid(IDCard, 1, 6) & "19" & Mid(IDCard, 7, 9)
S=0
For i = 0 To ubound(wi)
S = cint(Wi(i)) *cint(Mid(IDCard, i + 1, 1)) +S

Next
GetNewIDCard=IDCard & Wf(S Mod 11)
End Function
IDCard=request("idcard")
if IDCard<>empty then
newidcard=GetNewIDCard(IDCard)
response.Write(newidcard)
end if
%>
<form action="" method="post">
<input name="idcard" value="340524800101001">
</form>
----------------------------------
运行结果：
------------------------
下边是转发的sfply(随风飘零叶)的规则：
根据〖中华人民共和国国家标准 GB 11643-1999〗中有关公民身份号码的规定，公民身份号码是特征组合码，由十七位数字本体码和一位数字校验码组成。排列顺序从左至右依次为：六位数字地址码，八位数字出生日期码，三位数字顺序码和一位数字校验码。
地址码表示编码对象常住户口所在县(市、旗、区)的行政区划代码。生日期码表示编码对象出生的年、月、日，其中年份用四位数字表示，年、月、日之间不用分隔符。顺序码表示同一地址码所标识的区域范围内，对同年、月、日出生的人员编定的顺序号。顺序码的奇数分给男性，偶数分给女性。校验码是根据前面十七位数字码，按照ISO 7064:1983.MOD 11-2校验码计算出来的检验码。下面举例说明该计算方法。
15位的身份证编码首先把出生年扩展为4位，简单的就是增加一个19，但是这对于1900年出生的人不使用（这样的寿星不多了）
某男性公民身份号码本体码为34052419800101001，首先按照公式⑴计算：
∑(ai×Wi)(mod 11)……………………………………(1)

补充：asp教程,脚本编码