經典asp中的CPF驗證

我是經典asp中的新手。我想在經典的asp中使用CPF驗證功能。經典asp中的CPF驗證

以下鏈接在JavaScript和vb.net CPF驗證功能，但我想它在傳統的ASP/VBScript中

http://codigofonte.uol.com.br/codigo/js-dhtml/validacao/validar-cpf-via-javascript

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=3811&lngWId=10

感謝

來源

2012-07-26 khurram

到目前爲止你做了哪些工作？你遇到了什麼具體問題？ SO不是人們爲你寫代碼的地方。 – BradBrening 2012-07-26 12:43:29

最後，我已成功地自己寫一個vbscript函數。它可能在未來幫助某人。

function ValidateCPFNew(cpf) 
    Dim multiplic1, multiplic2 
    multiplic1=Array(10, 9, 8, 7, 6, 5, 4, 3, 2) 
    multiplic2=Array(11, 10, 9, 8, 7, 6, 5, 4, 3, 2) 
    Dim tempCpf,digit,sum,remainder,i,RegXP 
    cpf = Trim(cpf) 
    cpf = Replace(cpf,".", "") 
    cpf = Replace(cpf,"-", "") 
    if (Len(cpf) <> 11) Then 
     ValidateCPFNew = false 
    else 
     tempCpf = Left (cpf, 9) 
     sum = 0 

     Dim intCounter 
     Dim intLen 
     Dim arrChars() 

     intLen = Len(tempCpf)-1 
     redim arrChars(intLen) 

     For intCounter = 0 to intLen 
      arrChars(intCounter) = Mid(tempCpf, intCounter + 1,1) 
     Next 

     i=0 
     For i = 0 to 8 
      sum =sum + CInt(arrChars(i)) * multiplic1(i) 
     Next 

     remainder = sum Mod 11 
     If (remainder < 2) Then 
      remainder = 0 
     else 
      remainder = 11 - remainder 
     End If 

     digit = CStr(remainder) 
     tempCpf = tempCpf & digit 
     sum = 0 

     intLen = Len(tempCpf)-1 
     redim arrChars(intLen) 
     intCounter= 0 
     For intCounter = 0 to intLen 
      arrChars(intCounter) = Mid(tempCpf, intCounter + 1,1) 
     Next 
     i=0 
     For i = 0 to 9 
      sum =sum + CInt(arrChars(i)) * multiplic2(i) 
     Next   
     remainder = sum Mod 11 

     If (remainder < 2) Then 
      remainder = 0 
     else 
      remainder = 11 - remainder 
     End If  
     digit = digit & CStr(remainder) 

     Set RegXP=New RegExp 
      RegXP.IgnoreCase=1 
      RegXP.Pattern=digit & "$" 

     If RegXP.test(cpf) Then 
      ValidateCPFNew = true 
     else 
      ValidateCPFNew = false 
     end if 
    end if 
end Function

來源

2012-07-27 19:48:48 khurram

經典asp中的CPF驗證

回答

相關問題