近日录入教师医疗保险名单，部分老教师还是15位身份证号码，为此编写身份证号码转换程序，转换为18位号码。

效果如下：

代码如下：

<%@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 and len(idcard) = 15 then
response.write idcard&"转换为：<br>"
newidcard=getnewidcard(idcard)
response.write(newidcard)
end if
%>
<br>
<form action="" method="post">
输入15位身份证号码：<br>
<input name="idcard">
<input type="submit" name="Submit" value="提交">
</form>