网络编程
位置:首页>> 网络编程>> Asp编程>> asp如何验证信用卡是否可用?

asp如何验证信用卡是否可用?

  发布时间:2010-06-10 18:39:00 

标签:验证,asp

如何验证信用卡是否可用,合法?

 核实信用卡的真伪是一件麻烦的事儿,看看下面的代码,也许会给你帮上忙:

<Script runat=server language=vbscript>
function mod10(cardNo)
lCard=len(cardNo)
lC=right(cardNo,1)
cStat=0
for i=(lCard-1) to 1 step -1
tempChar= mid(cardNo,i,1)
d=cint(tempChar)
if lcard mod 2 = 1 then
temp=d*(1+((i+1) mod 2))
else
temp=d*(1+(i mod 2))
end if
if temp < 10 then
cStat = cStat + temp 
else
cStat = cStat + temp - 9
end if
next
cStat = (10-(cStat mod 10)) mod 10
if cint(lC) = cStat then
mod10 = true
end if
end function
</script>


 

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com