这个咋不支持新的带x身份证呢

来源：百度知道编辑：UC知道时间：2024/05/07 12:29:10

<%
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
Response.CharSet="GB2312"

syt=request("syt")

if syt="sfz_chk" then
'查找数据库，检查身份证
%>
<%
sfzheng=request("sfzheng")
'身份证校验
Function CheckidCard(idcard)
Dim LenCard
LenCard=Len(idcard)
'判断身份证长度
if not (LenCard = 15 Or LenCard = 18) Then
CheckidCard= "身份证长度不是15位或18位！"
exit Function
End If
'变量声明区
dim WeightedFactor,VerifyCode,area,birthday,lastnum,Ai,i,Total,Modnum,sex,age,province,sexNum,provinceID
WeightedFactor = array(7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2) '为前17位各个数字对应的加权因子
VerifyCode = array(1,0,"x&

解决方法：

lastnum=int(right(idcard,1)) 'lastnum为18位身份证最后一位
在上面这句之后，加上一句：
if Lcase(right(idcard,1))="x" then lastnum="x"

我看你真得跳楼去了,,我的问题我研究一天了都没研究明白,你帮我想办法我给你找答案去

好多代码啊

看上去很复杂啊

复杂

这个咋不支持新的带x身份证呢身份证尾数为什么是带x的啊 asp查询查不了带x的身份证，请帮忙！新办理的身份证最后一位为什么是个X？为什么我的新身份证最后一位是“x”？新的身份证最后一位X是什么意思啊? 身份证后面有的带X是怎么回事啊。为啥我的是数字不是X呢，是不是那是丢了补办的特征啊新的身份证有甚磨功能呢? 身份证后面的x 我的身份证最后一位怎么是个X呢？