Анализатор VIN-кода автомобилей JEEP


<% On Error Resume Next If Request.Form("hname") = "" Then ' This part of the script allows a person ' to enter data on an HTML form. %>

Введите VIN-код:


<% Else code = Request.Form("name") code = Trim(UCase(code)) cell_color_1 = "#0000FF" cell_color_2 = "#0000FF" cell_color_3 = "#0000FF" cell_color_4 = "#0000FF" cell_color_5 = "#0000FF" cell_color_6 = "#0000FF" cell_color_7 = "#0000FF" cell_color_8 = "#0000FF" cell_color_9 = "#0000FF" cell_color_10 = "#0000FF" cell_color_11 = "#0000FF" cell_color_12 = "#0000FF" cell_color_13 = "#0000FF" cell_color_14 = "#0000FF" cell_color_15 = "#0000FF" cell_color_16 = "#0000FF" cell_color_17 = "#0000FF" ch_1=Mid(code, 1, 1) if ch_1="O" or ch_1="I" or ch_1="Q" or ch_1="С" Then cell_color_1 = "#CC6600" ch_2=Mid(code, 2, 1) if ch_2="O" or ch_2="I" or ch_2="Q" or ch_2="С" Then cell_color_2 = "#CC6600" ch_3=Mid(code, 3, 1) if ch_3="O" or ch_3="I" or ch_3="Q" or ch_3="С" Then cell_color_3 = "#CC6600" ch_4=Mid(code, 4, 1) if ch_4="O" or ch_4="I" or ch_4="Q" or ch_4="С" Then cell_color_4 = "#CC6600" ch_5=Mid(code, 5, 1) if ch_5="O" or ch_5="I" or ch_5="Q" or ch_5="С" Then cell_color_5 = "#CC6600" ch_6=Mid(code, 6, 1) if ch_6="O" or ch_6="I" or ch_6="Q" or ch_6="С" Then cell_color_6 = "#CC6600" ch_7=Mid(code, 7, 1) if ch_7="O" or ch_7="I" or ch_7="Q" or ch_7="С" Then cell_color_7 = "#CC6600" ch_8=Mid(code, 8, 1) if ch_8="O" or ch_8="I" or ch_8="Q" or ch_8="С" Then cell_color_8 = "#CC6600" ch_9=Mid(code, 9, 1) if ch_9="O" or ch_9="I" or ch_9="Q" or ch_9="С" Then cell_color_9 = "#CC6600" ch_10=Mid(code, 10, 1) if ch_10="O" or ch_10="I" or ch_10="Q" or ch_10="С" Then cell_color_10 = "#CC6600" ch_11=Mid(code, 11, 1) if ch_11="O" or ch_11="I" or ch_11="Q" or ch_11="С" Then cell_color_11 = "#CC6600" ch_12=Mid(code, 12, 1) if ch_12="O" or ch_12="I" or ch_12="Q" or ch_12="С" Then cell_color_12 = "#CC6600" ch_13=Mid(code, 13, 1) if ch_13="O" or ch_13="I" or ch_13="Q" or ch_13="С" Then cell_color_13 = "#CC6600" ch_14=Mid(code, 14, 1) if ch_14="O" or ch_14="I" or ch_14="Q" or ch_14="С" Then cell_color_14 = "#CC6600" ch_15=Mid(code, 15, 1) if ch_15="O" or ch_15="I" or ch_15="Q" or ch_15="С" Then cell_color_15 = "#CC6600" ch_16=Mid(code, 16, 1) if ch_16="O" or ch_16="I" or ch_16="Q" or ch_16="С" Then cell_color_16 = "#CC6600" ch_17=Mid(code, 17, 1) if ch_17="O" or ch_17="I" or ch_17="Q" or ch_17="С" Then cell_color_17 = "#CC6600" '********************************************* Function CheckStop(vin_code) CheckStop = 0 If Instr(vin_code, "I") <> 0 or Instr(vin_code, "O") <> 0 or Instr(vin_code, "Q") <> 0 or Instr(vin_code, "С") <> 0 Then CheckStop = 1 End function '********************************************* %>

Ваш VIN-код : <%= code %>

 

Символ

<%= ch_1 %>

<%= ch_2 %>

<%= ch_3 %>

<%= ch_4 %>

<%= ch_5 %>

<%= ch_6 %>

<%= ch_7 %>

<%= ch_8 %>

<%= ch_9 %>

<%= ch_10 %>

<%= ch_11 %>

<%= ch_12 %>

<%= ch_13 %>

<%= ch_14 %>

<%= ch_15 %>

<%= ch_16 %>

<%= ch_17 %>

№ позиции

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

<% If len(code)<> 17 Then %>

VIN-код должен содержать 17 символов 

Вернуться

<% Elseif CheckStop(code) = 1 Then%>

VIN-код не должен содержать символов I,O и Q

Недопустимые символы высвечены красным цветом.

Типичные ошибки:
вместо символа "1" ошибочно пишут символ "I"
вместо символа "0" (ноль) ошибочно пишут символ "O"
вместо символа "0" (ноль) ошибочно пишут символ "Q"
вместо символа "C" (английского) ошибочно пишут символ "С" (русское)

 

Вернуться <% Else '******************************************* 'function SaveVIN(vin_code) ' Agent = Request.ServerVariables("REMOTE_ADDR") ' c_date = Date ' Set FileObject = CreateObject("Scripting.FileSystemObject") ' path = Server.MapPath ("fgh.txt") ' Set File = FileObject.OpenTextFile (path, 8, TRUE, FALSE) ' OutputString = c_date & " " & Agent & " " & vin_code & chr(13) & chr(10) ' File.WriteLine(OutputString) ' File.Close 'SaveVIN = path 'End Function Function Old(vin_code) Old=False If GetYear(Mid(vin_code, 10, 1)) < 1989 Then Old=True End function Function New_3_simbol(vin_code) New_3_simbol=False If GetYear(Mid(vin_code, 10, 1)) > 2001 Then New_3_simbol=True End function '************************** 1 символ - страна ******************************* Function GetCountry (countrycode) Select case countrycode Case "1" GetCountry = "США" Case "2" GetCountry = "Канада" Case "3" GetCountry = "Мексика" Case "4" GetCountry = "США" Case "6" GetCountry = "Австралия" Case "9" GetCountry = "Бразилия" Case "J" GetCountry = "Япония" Case "K" GetCountry = "Корея" Case "L" GetCountry = "Тайвань" Case "S" GetCountry = "Англия" Case "V" GetCountry = "Франция" Case "W" GetCountry = "Германия" Case "Y" GetCountry = "Швеция" Case "Z" GetCountry = "Италия" Case else GetCountry = "Страна не понятна" End select End function '*************************** 2 символ - производитель ******************************** Function GetMake (makecode) Select case makecode Case "J" GetMake = "Jeep (США)" Case "B" GetMake = "Jeep (Канада)" Case "E" GetMake = "Beijing Jeep Corp.. LTD, (Китай)" Case else GetMake = "Компания-производитель не понятна, символ должен быть один из: J, B, E" End select End function '*************************** 3 символ - тип ******************************** Function GetType (vin_code) symbol_3 = Mid(vin_code, 3, 1) If Old (vin_code) Then Select case symbol_3 Case "C" GetType = "MPV (многоцелевой автомобиль)" Case "T" GetType = "TRUCK" Case "D" GetType = "некомплектный" Case else GetType = "Тип автомобиля непонятен, символ должен быть один из: C, T, D" End select Else Select case symbol_3 Case "1" GetType = "MPV (многоцелевой автомобиль)" Case "4" GetType = "MPV (многоцелевой автомобиль)" Case "2" GetType = "TRUCK" Case "6" GetType = "некомплектный" Case "7" GetType = "TRUCK" Case "8" GetType = "MPV (многоцелевой автомобиль)" Case else GetType = "Тип автомобиля непонятен, символ должен быть один из: 1,2,4,6,7" End select if New_3_simbol(vin_code) Then Select case symbol_3 Case "4" GetType = "без боковых подушек безопасности" Case "8" GetType = "с боковыми подушками безопасности" End select end if End if End function '*************************** 4 GVWR ******************************** Function GetWeight (symbol_4) Select case symbol_4 Case "D" GetWeight = "1-1363 кг" Case "E" GetWeight = "1364-1818 кг" Case "F" GetWeight = "1819-2272 кг" Case "G" GetWeight = "2273-2727 кг" Case "H" GetWeight = "2728-3181 кг" Case "J" GetWeight = "3182-3636 кг" Case else GetWeight = "Вес не понятен, символ должен быть один из: D, E, F, G, H, J" End select End function ' ******************************* пятый символ - модель ************************* 'Вспомогательная функция function Truck_code (vin_code) Truck_code = Mid(vin_code, 5, 1) If Old(vin_code) Then Truck_code = Mid(vin_code, 6, 2) End function function GetTruck (vin_code) cur_year = GetYear(Mid(vin_code, 10, 1)) tt=Truck_code(vin_code) Select case tt Case "K" GetTruck = "Liberty - заднеприводный" Case "L" GetTruck = "Liberty - полноприводный" Case "M" GetTruck = "Cherokee - полноприводный, правый руль" Case "A" GetTruck = "Wrangler" Case "4" GetTruck = "Wrangler, правый руль" Case "E" GetTruck = "Wrangler, правый руль" Case "B" if cur_year < 2007 Then GetTruck = "Cherokee - заднеприводный, правый руль" else GetTruck = "Wrangler - заднеприводный" Case "F" if cur_year < 2007 Then GetTruck = "Cherokee - полноприводный" else GetTruck = "Compass(4x4), левый руль" Case "G" GetTruck = "Commander (XK)" Case "J" GetTruck = "Cherokee - полноприводный, левый руль" case "N" if cur_year < 1991 then GetTruck = "Cherokee Wagoneer" elseif cur_year > 1992 then GetTruck = "Cherokee - полноприводный, правый руль" else GetTruck = "Cherokee Briarwood" end if Case "R" GetTruck = "Grand Cherokee (WK)" Case "T" if cur_year < 2007 Then GetTruck = "Cherokee - заднеприводный, левый руль" else GetTruck = "Compass, переднеприводный, левый руль" Case "W" GetTruck = "Grand Cherokee (WJ) - полноприводный" Case "2" if cur_year < 2001 Then GetTruck = "Grand Cherokee (WJ) - заднеприводный" else GetTruck = "Grand Cherokee (WJ) - полноприводный" Case "7" if cur_year < 2007 Then GetTruck = "Grand Cherokee(WJ) - заднеприводный, правый руль" else GetTruck = "Compass(4x4), правый руль" Case "8" GetTruck = "Grand Cherokee(WJ) - полноприводный, правый руль" Case "X" if cur_year < 2001 Then GetTruck = "Grand Cherokee (ZJ) - заднеприводный" else GetTruck = "Grand Cherokee (WJ) - заднеприводный" Case "Y" GetTruck = "Wrangler" Case "Z" GetTruck = "Grand Cherokee (ZJ) - полноприводный, левый руль" Case "S" if cur_year < 2005 Then GetTruck = "Grand Wagoneer" else GetTruck = "Grand Cherokee (WK)" ' Если до 1989 года Case "13" GetTruck = "Wagoneer/SJ MPV 4 Door Wagon" Case "14" GetTruck = "Wagoneer/SJ MPV 4 Door Wagon" Case "15" GetTruck = "GRAND WAGONEER/SJ" Case "16" GetTruck = "Cherokee/SJ MPV 2 Door Wagon" Case "17" GetTruck = "Cherokee/SJ MPV 2 Door Wagon WT" Case "18" GetTruck = "Cherokee/SJ MPV 4 Door Wagon" Case "19" GetTruck = "Cherokee/SJ MPV 4 Door Wagon WT" Case "25" GetTruck = "J10 TRUCK 119 WHEELBASE" Case "26" GetTruck = "J10 TRUCK 131 WHEELBASE" Case "27" GetTruck = "J20 TRUCK 131 WHEELBASE" Case "63" GetTruck = "4WD COMANCHE 6`BOX" Case "64" GetTruck = "заднеприводный COMANCHE 6`BOX" Case "65" GetTruck = "4WD COMANCHE 7`BOX" Case "66" GetTruck = "2WD COMANCHE 7`BOX" Case "73" GetTruck = "CHEROKEE (XJ) - заднеприводный, 2-дверный" Case "74" GetTruck = "CHEROKEE (XJ) - заднеприводный, 4-дверный" Case "75" GetTruck = "CHEROKEE (XJ) - полноприводный, 4-дверный" Case "77" GetTruck = "CHEROKEE (XJ) - полноприводный, 2-дверный" Case "78" GetTruck = "CHEROKEE (XJ) - полноприводный, 4-дверный" Case "79" GetTruck = "CHEROKEE (XJ) - полноприводный, 4-дверный" Case "81" GetTruck = "WRANGLER" Case "85" GetTruck = "CJ-5" Case "86" GetTruck = "CJ-6" Case "87" GetTruck = "CJ-7" Case "88" GetTruck = "SJ-8, SCRAMBLER" Case else GetTruck = "Модель не понятна" End select End function '************************** шестой символ - модификация ******************************************** Function GetSeries (vin_code) cur_year = GetYear(Mid(vin_code, 10, 1)) ss=Mid(vin_code, 6, 1) tt=Truck_code(vin_code) if tt = "Y" or tt = "A" Then 'если Wrangler select case ss case "1" GetSeries = "Sport (Wrangler)" case "2" GetSeries = "Base/SE" case "3" if cur_year < 2002 then GetSeries = "ISLANDER" else GetSeries = "X" end if case "4" if cur_year < 2000 then GetSeries = "Sahara" 'elseif cur_year > 2003 then ' GetSeries = "Unlimited" else GetSeries = "Sport" end if case "5" if cur_year < 2000 then GetSeries = "Laredo" else GetSeries = "Sahara" end if case "6" if cur_year < 2002 then GetSeries = "Renegade" else GetSeries = "Rubicon" end if case "7" GetSeries = "Limited или Country" case "A" GetSeries = "3-скоростная автоматическая коробка передач (комплектация для Европы)" case "B" GetSeries = "4-скоростная автоматическая коробка передач (комплектация для Европы)" case "N" GetSeries = "5-скоростная ручная коробка передач (комплектация для Европы)" case else GetSeries = "неизвестная модификация, разрешенные символы: 1,2,3,4,5,6,7,8,A,B,N" end select elseif tt = "Z" Then 'если Grand Cherokee (ZJ) select case ss case "4" if cur_year < 1998 Then GetSeries = "Laredo" else GetSeries = "TSI или Laredo Special Edition" case "5" GetSeries = "Laredo" case "6" GetSeries = "Base" case "7" GetSeries = "Limited" case "8" if cur_year < 1998 Then GetSeries = "Grand Wagoneer" else GetSeries = "5,9 Limited" case "A" GetSeries = "3-скоростная автоматическая коробка передач (комплектация для Европы)" case "B" GetSeries = "4-скоростная автоматическая коробка передач (комплектация для Европы)" case "N" GetSeries = "5-скоростная ручная коробка передач (комплектация для Европы)" case else GetSeries = "неизвестная модификация, разрешенные символы: 1,2,3,4,5,6,7,8,A,B,N" end select elseif tt = "W" or tt = "2" Then '*************если Grand Cherokee 99 года select case ss case "3" GetSeries = "Sport" case "4" GetSeries = "Laredo" case "5" if cur_year < 2000 then GetSeries = "Laredo" else GetSeries = "Limited" case "6" if cur_year < 2000 then GetSeries = "Limited" else GetSeries = "Overland" case "C" GetSeries = "5-скоростная автоматическая коробка передач" case "E" GetSeries = "5-скоростная автоматическая коробка передач (комплектация для Европы)" case "B" GetSeries = "4-скоростная автоматическая коробка передач (комплектация для Европы)" case else GetSeries = "неизвестная модификация" end select elseif tt = "K" or tt = "L" or tt = "M" Then '*************если Liberty select case ss case "3" GetSeries = "Renegad" case "4" GetSeries = "Sport" case "5" GetSeries = "Limited" case "E" GetSeries = "5-скоростная автоматическая коробка передач (комплектация для Европы)" case else GetSeries = "неизвестная модификация" end select elseif tt = "X" Then '***********если Grand Cherokee заднеприводный (ZJ или WJ) select case ss case "4" GetSeries = "Laredo" case "5" if cur_year < 1999 then GetSeries = "Laredo" else GetSeries = "Limited" end if case "6" GetSeries = "Base" case "7" GetSeries = "Limited" case "8" if cur_year < 1998 Then GetSeries = "Grand Wagoneer" else GetSeries = "5,9 Limited" case "A" GetSeries = "3-скоростная автоматическая коробка передач (комплектация для Европы)" case "B" GetSeries = "4-скоростная автоматическая коробка передач (комплектация для Европы)" case "C" GetSeries = "5-скоростная автоматическая коробка передач" case "E" GetSeries = "5-скоростная автоматическая коробка передач (комплектация для Европы)" case "N" GetSeries = "5-скоростная ручная коробка передач (комплектация для Европы)" case else GetSeries = "неизвестная модификация" end select elseif tt = "R" or tt = "S" Then '***********если Grand Cherokee (WK) select case ss case "4" GetSeries = "Laredo" case "5" GetSeries = "Limited" case "7" GetSeries = "SRT 8" case else GetSeries = "неизвестная модификация" end select elseif tt = "G" Then '***********если Commander (XK) select case ss case "4" GetSeries = "Base" case "5" GetSeries = "Limited" case else GetSeries = "неизвестная модификация" end select else 'if rest select case ss case "1" GetSeries = "Sport" case "2" GetSeries = "SE" case "3" GetSeries = "PIONEER" case "4" GetSeries = "Sport" case "5" if cur_year < 2000 then GetSeries = "Laredo" elseif cur_year = 2000 then GetSeries = "Classic" else GetSeries = "Limited" end if case "6" GetSeries = "Sport/Classic" case "7" GetSeries = "Limited или Country" case "8" GetSeries = "Базовая комплектация" case "A" GetSeries = "3-скоростная автоматическая коробка передач (комплектация для Европы)" case "B" GetSeries = "4-скоростная автоматическая коробка передач (комплектация для Европы)" case "N" GetSeries = "5-скоростная ручная коробка передач (комплектация для Европы)" case else GetSeries = "неизвестная модификация, разрешенные символы: 1,2,3,4,5,6,7,8,A,B,N" end select End if If Old(vin_code) Then GetSeries = "До 1989 года модификация в VIN-коде отсутствовала" End function '************************************** трансмиссия для моделей до 1989 года ****************** Function GetTrans (vin_code) Select case Mid(vin_code, 5, 1) case "A" GetTrans = "3-скоростная, автоматическая, переключение на рулевой колонке (разд.коробка part-time)" case "B" GetTrans = "автоматическая (разд.коробка part-time)" case "C" GetTrans = "автоматическая (разд.коробка full-time)" case "D" GetTrans = "автоматическая (2WD)" case "E" GetTrans = "автоматическая (разд.коробка part-time)" case "F" GetTrans = "ручная, 5-скоростная (разд.коробка part-time)" case "G" GetTrans = "ручная, 4-скоростная (разд.коробка part-time)" case "H" GetTrans = "ручная, 4-скоростная с напольным расположением рычага (4WD)" case "J" GetTrans = "3-скоростная, автоматическая, переключение на рулевой колонке (разд.коробка full-time)" case "1" GetTrans = "3-скоростная, автоматическая, переключение на рулевой колонке (разд.коробка part-time)" case "K" GetTrans = "автоматическая с напольным расположением рычага (4WD)" case "L" GetTrans = "ручная, 5-скоростная (разд.коробка part-time)" case "M" GetTrans = "ручная, 4-скоростная (разд.коробка part-time)" case "N" GetTrans = "ручная, 5-скоростная (разд.коробка part-time)" case "P" GetTrans = "ручная, 5-скоростная (разд.коробка full-time)" case "R" GetTrans = "автоматическая с напольным расположением рычага (разд.коробка part-time)" case "S" GetTrans = "ручная, 4-скоростная с напольным расположением рычага (2WD)" case "T" GetTrans = "автоматическая с напольным расположением рычага (разд.коробка full-time)" case "U" GetTrans = "автоматическая (заднеприводный)" case "V" GetTrans = "ручная, 5-скоростная с напольным расположением рычага" case "W" GetTrans = "ручная, 5-скоростная (заднеприводный)" case "X" GetTrans = "ручная, 4-скоростная (разд.коробка part-time)" case "Y" GetTrans = "ручная, 4-скоростная с напольным расположением рычага" case "Z" GetTrans = "автоматическая (раздаточная коробка NP231)" case else GetTrans = "тип трансмиссии неизвестен" End select If not Old(vin_code) Then GetTrans = "После 1988 года тип трансмиссии в VIN-коде отсутствует" End function '************************************** седьмой символ - тип кузова *********************************************** Function GetBody (vin_code) cur_year = GetYear(Mid(vin_code, 10, 1)) select case Mid(vin_code, 7, 1) case "6" GetBody = "Comanche, 2-дверный пикап" case "7" if cur_year < 2007 then GetBody = "2-дверный" else GetBody = "4-дверный" end if case "8" GetBody = "4-дверный" case "4" if cur_year < 2007 then GetBody = "открытый, удлиненный" else GetBody = "открытый" end if case "9" if cur_year < 2007 then GetBody = "открытый" else GetBody = "открытый, удлиненный" end if case else GetBody = "неизвестный тип кузова, символ должен быть один из: 4, 6, 7, 8, 9" end select If Old(vin_code) Then GetBody = "До 1989 года тип кузова в VIN-коде отсутствовал" End function '********************************* девятый символ - двигатель************************** Function GetEngine (vin_code) ec = Mid(vin_code, 8, 1) model = Mid(vin_code, 5, 1) if Old(vin_code) Then ec = Mid(vin_code, 4, 1) model = Mid(vin_code, 6, 2) End if cur_year = GetYear(Mid(vin_code, 10, 1)) Select case ec case "1" if cur_year < 2007 then GetEngine = "2,4 литра, 4-цилиндровый, многоточечный впрыск" else GetEngine = "3,8 литра, V-образный, 6-цилиндровый, многоточечный впрыск" end if case "3" GetEngine = "6,1 литра, 8-цилиндровый" case "4" GetEngine = "3,1 литра, 5-цилиндровый, турбодизель" case "K" GetEngine = "3,7 литра, V-образный, 6-цилиндровый" case "C" GetEngine = "4,2 литра, рядный, 6-цилиндровый, карбюраторный" case "D" GetEngine = "2,5 литра, рядный, 4-цилиндровый" case "E" GetEngine = "2,5 литра, рядный, 4-цилиндровый, центральный впрыск" case "J" GetEngine = "4,7 литра, V-образный, 8-цилиндровый, HO" case "G" GetEngine = "2,5 литра, рядный, 4-цилиндровый, центральный впрыск" case "L" GetEngine = "4,0 литра, рядный, 6-цилиндровый, распределенный впрыск" case "S" GetEngine = "4,0 литра, рядный, 6-цилиндровый, HO" case "T" GetEngine = "4,2 литра, рядный, 6-цилиндровый" case "V" GetEngine = "4,0 литра, рядный, 6-цилиндровый, многоточечный впрыск" case "Y" if cur_year < 2007 then GetEngine = "5,2 литра, V-образный, 8-цилиндровый, многоточечный впрыск" else GetEngine = "2,0 литра, 4-цилиндровый, дизель" end if case "W" if cur_year < 2000 then GetEngine = "2,8 литра, V-образный, 6-цилиндровый, карбюраторный" else GetEngine = "2,4 литра, 4-цилиндровый, врыск топлива" end if case "Z" GetEngine = "5,9 литра, V-образный, 8-цилиндровый, многоточечный впрыск" case "B" if cur_year > 1983 then GetEngine = "дизель, 2,1 литра, рядный, 4-цилиндровый, компании Рено" else GetEngine = "2,5 литра, рядный, 4-цилиндровый, компании GM" case "2" if cur_year < 2005 then GetEngine = "2,7 литра, 5-цилиндровый, турбодизель, Мерседес" else GetEngine = "5,7 литра, 8-цилиндровый" end if case "A" if cur_year < 2002 then GetEngine = "4,2 литра, рядный, 6-цилиндровый" else GetEngine = "2,7 литра, 5-цилиндровый, турбодизель, Мерседес" end if case "5" GetEngine = "2,8 литра, рядный, 4-цилиндровый, турбодизель, компания VM Motori" case "7" if cur_year < 2000 then GetEngine = "5,9 литра, V-образный, 8-цилиндровый" else GetEngine = "2,5 литра, 4-цилиндровый, 16-клапанный,турбодизель" end if case "P" if cur_year < 1986 then GetEngine = "дизель, 2,1 литра, рядный, 4-цилиндровый, компания Рено" elseif cur_year < 1991 then GetEngine = "2,5 литра, рядный, 4-цилиндровый, центральный впрыск" else GetEngine = "2,5 литра, рядный, 4-цилиндровый, многоточечный впрыск" end if case "H" if cur_year < 1986 then GetEngine = "5,0 литра, V-образный, 8-цилиндровый" elseif cur_year < 1991 then GetEngine = "2,5 литра, рядный, 4-цилиндровый, центральный впрыск" else GetEngine = "2,5 литра, рядный, 4-цилиндровый, многоточечный впрыск" end if case "F" if cur_year > 1986 then GetEngine = "2,5 литра, рядный, 4-цилиндровый, (1BBL) - карбюраторный" else GetEngine = "дизель, 2,5 литра, Isuzu" case "M" if cur_year = 1989 or cur_year = 1990 then GetEngine = "4,2 литра, рядный, 6-цилиндровый, карбюраторный" elseif cur_year = 1987 or cur_year = 1988 then GetEngine = "4,0 литра, рядный, 6-цилиндровый, EFI" else GetEngine = "2,5 литра, рядный, 4-цилиндровый, турбодизель, компания VM Motori" end if 'если CJ-7 case "U" if model = "87" Then GetEngine = "4,0 литра, рядный, 6-цилиндровый, карбюраторный" else GetEngine = "2,5 литра, рядный, 4-цилиндровый, карбюраторный" case "N" if cur_year < 1999 Then GetEngine = "5,9 литра, V-образный, 8-цилиндровый" else GetEngine = "4,7 литра, V-образный, 8-цилиндровый" case else GetEngine = "неизвестный тип двигателя" end select End function '************************* одиннадцатый символ - завод ******************************* Function GetPlant (plant) Select Case plant Case "A" GetPlant ="Auburn Hills" Case "B" GetPlant ="Brampton Plant (Bramalea, Ontario)" Case "C" GetPlant ="Detroit (Jefferson North)" Case "D" GetPlant ="Belvidere Assembly" Case "J" GetPlant ="Brampton Plant (Bramalea, Ontario)" Case "L" GetPlant ="Toledo №1" Case "P" GetPlant ="Toledo №2" Case "E" GetPlant ="Beijing Jeep Corp., Ltd" Case "T" GetPlant ="Toledo, Ohio" Case "W" GetPlant ="Toledo №3, Ohio, USA" Case "Y" GetPlant ="Steyr, Austria" Case else GetPlant = "завод не понятен, символ должен быть один из: A,B,C,J,L,P,E,T,W" End Select End function '********************************************************************************************************************** Function ChartoDigit (symbol) Select Case symbol Case "A" ChartoDigit = 1 Case "B" ChartoDigit = 2 Case "C" ChartoDigit = 3 Case "D" ChartoDigit = 4 Case "E" ChartoDigit = 5 Case "F" ChartoDigit = 6 Case "G" ChartoDigit = 7 Case "H" ChartoDigit = 8 Case "J" ChartoDigit = 1 Case "K" ChartoDigit = 2 Case "L" ChartoDigit = 3 Case "M" ChartoDigit = 4 Case "N" ChartoDigit = 5 Case "P" ChartoDigit = 7 Case "R" ChartoDigit = 9 Case "S" ChartoDigit = 2 Case "T" ChartoDigit = 3 Case "U" ChartoDigit = 4 Case "V" ChartoDigit = 5 Case "W" ChartoDigit = 6 Case "X" ChartoDigit = 7 Case "Y" ChartoDigit = 8 Case "Z" ChartoDigit = 9 Case "0" ChartoDigit = 0 Case "1" ChartoDigit = 1 Case "2" ChartoDigit = 2 Case "3" ChartoDigit = 3 Case "4" ChartoDigit = 4 Case "5" ChartoDigit = 5 Case "6" ChartoDigit = 6 Case "7" ChartoDigit = 7 Case "8" ChartoDigit = 8 Case "9" ChartoDigit = 9 Case else ChartoDigit = 0 End select End function '********************************* десятый символ ************************** Function GetYear (yearcode) Select Case yearcode Case "9" GetYear = "2009" Case "8" GetYear = "2008" Case "7" GetYear = "2007" Case "6" GetYear = "2006" Case "5" GetYear = "2005" Case "4" GetYear = "2004" Case "3" GetYear = "2003" Case "2" GetYear = "2002" Case "1" GetYear = "2001" Case "Y" GetYear = "2000" Case "X" GetYear = "1999" Case "W" GetYear ="1998" Case "V" GetYear ="1997" Case "T" GetYear ="1996" Case "S" GetYear ="1995" Case "R" GetYear ="1994" Case "P" GetYear ="1993" Case "N" GetYear ="1992" Case "M" GetYear ="1991" Case "L" GetYear ="1990" Case "K" GetYear ="1989" Case "J" GetYear ="1988" Case "H" GetYear ="1987" Case "G" GetYear ="1986" Case "F" GetYear ="1985" Case "E" GetYear ="1984" Case "D" GetYear ="1983" Case "C" GetYear ="1982" Case "B" GetYear ="1981" Case "A" GetYear ="1980" Case else GetYear = "год выпуска не понятен" End Select End function Engine_pos = 8 Model_pos = "5" pos = 5 nn = 1 If Old(code) Then Engine_pos = 4 Model_pos = "6-7" pos = 6 nn = 2 End if %> <% '************************************************* 9 символ *************************************************** 'Проверяем контрольную цифру symbol_1 = ChartoDigit(Mid(code, 1, 1)) value_1 = symbol_1 * 8 symbol_2 = ChartoDigit(Mid(code, 2, 1)) value_2 = symbol_2 * 7 symbol_3 = ChartoDigit(Mid(code, 3, 1)) value_3 = symbol_3 * 6 symbol_4 = ChartoDigit(Mid(code, 4, 1)) value_4 = symbol_4 * 5 symbol_5 = ChartoDigit(Mid(code, 5, 1)) value_5 = symbol_5 * 4 symbol_6 = ChartoDigit(Mid(code, 6, 1)) value_6 = symbol_6 * 3 symbol_7 = ChartoDigit(Mid(code, 7, 1)) value_7 = symbol_7 * 2 symbol_8 = ChartoDigit(Mid(code, 8, 1)) value_8 = symbol_8 * 10 symbol_9 = ChartoDigit(Mid(code, 9, 1)) symbol_10 = ChartoDigit(Mid(code, 10, 1)) value_10 = symbol_10 * 9 symbol_11 = ChartoDigit(Mid(code, 11, 1)) value_11 = symbol_11 * 8 symbol_12 = ChartoDigit(Mid(code, 12, 1)) value_12 = symbol_12 * 7 symbol_13 = ChartoDigit(Mid(code, 13, 1)) value_13 = symbol_13 * 6 symbol_14 = ChartoDigit(Mid(code, 14, 1)) value_14 = symbol_14 * 5 symbol_15 = ChartoDigit(Mid(code, 15, 1)) value_15 = symbol_15 * 4 symbol_16 = ChartoDigit(Mid(code, 16, 1)) value_16 = symbol_16 * 3 symbol_17 = ChartoDigit(Mid(code, 17, 1)) value_17 = symbol_17 * 2 summ_total = value_1+value_2+value_3+value_4+value_5+value_6+value_7+value_8+value_10+value_11+value_12+value_13+value_14+value_15+value_16+value_17 control_result = summ_total - Int(summ_total / 11)*11 Select case control_result Case 10 control_digit = "X" Case else control_digit = control_result End select Select case control_result Case symbol_9 CheckControl = "прошла проверку" Case 10 if Mid(code, 9, 1) = "X" Then CheckControl = "прошла проверку" else CheckControl = " не прошла проверку, символ должен быть X" Case else CheckControl = " не прошла проверку, символ должен быть " & control_digit End select %>

 

<%If not New_3_simbol(code) then%> <%else%> <%end if%> <%If not Old(code) then%> <%End If%> <%If not Old(code) then%> <%else%> <%end if%> <%If not Old(code) then%> <%end if%>


 поз.

 Значение

Наименование

Значение

1

<%= Mid(code, 1, 1) %>

Страна :

<%= GetCountry(Mid(code, 1, 1)) %> 

2

<%= Mid(code, 2, 1) %>

Компания-производитель:

<%= GetMake(Mid(code, 2, 1)) %> 

3

<%= Mid(code, 3, 1) %>

Тип автомобиля:

<%= GetType(code) %> 

3

<%= Mid(code, 3, 1) %>

Система безопасности:

<%= GetType(code) %> 

4

<%= Mid(code, 4, 1) %>

GVWR (Gross Vehicle Weight Rating )

Максимальный разрешенный вес автомобиля вместе с пассажирами, полным баком и т.д.

<% = GetWeight(Mid(code, 4, 1)) %>  

<%=Model_pos%>

<%= Mid(code, pos, nn) %>

Модель:

<%= GetTruck(code) %> 

6

<%= Mid(code, 6, 1) %>

Модификация:

<% = GetSeries(code) %>  

5

<%= Mid(code, 5, 1) %>

КПП, раздаточная коробка

<% = GetTrans(code) %>

7

<%= Mid(code, 7, 1) %>

Тип кузова

<% = GetBody(code) %>

<%=Engine_pos%>

<%= Mid(code, Engine_pos, 1) %>

Двигатель

<% = GetEngine(code) %> 

9

<%= Mid(code, 9, 1) %>

Контрольная цифра:

<%= CheckControl%> 

10

<%= Mid(code, 10, 1) %>

Год выпуска:

<%= GetYear(Mid(code, 10, 1)) %> 

11

<%= Mid(code, 11, 1) %>

Завод:

<%= GetPlant(Mid(code, 11, 1)) %> 

12-17

<%= Mid(code, 12, 6) %>

Серийный номер

<%= Mid(code, 12, 6) %> 

Расчет контрольной цифры

Символ

<%= ch_1 %>

<%= ch_2 %>

<%= ch_3 %>

<%= ch_4 %>

<%= ch_5 %>

<%= ch_6 %>

<%= ch_7 %>

<%= ch_8 %>

<%= ch_9 %>

<%= ch_10 %>

<%= ch_11 %>

<%= ch_12 %>

<%= ch_13 %>

<%= ch_14 %>

<%= ch_15 %>

<%= ch_16 %>

<%= ch_17 %>

Цифровое значение

<%= symbol_1%>

<%= symbol_2%>

<%= symbol_3%>

<%= symbol_4%>

<%= symbol_5%>

<%= symbol_6%>

<%= symbol_7%>

<%= symbol_8%>

*

<%= symbol_10%>

<%= symbol_11%>

<%= symbol_12%>

<%= symbol_13%>

<%= symbol_14%>

<%= symbol_15%>

<%= symbol_16%>

<%= symbol_17%>

Весовой фактор

8

7

6

5

4

3

2

10

*

9

8

7

6

5

4

3

2

Конечное значение

<%= value_1%>

<%= value_2%>

<%= value_3%>

<%= value_4%>

<%= value_5%>

<%= value_6%>

<%= value_7%>

<%= value_8%>

*

<%= value_10%>

<%= value_11%>

<%= value_12%>

<%= value_13%>

<%= value_14%>

<%= value_15%>

<%= value_16%>

<%= value_17%>

Сумма всех 16 значений: <%= summ_total%>

<%= summ_total%> деленное на 11, дает целый остаток <%= control_result%>

Другими словами, <%= summ_total%> =( <%= Int(summ_total / 11)%> x 11) + <%= control_result%>

Таким образом, на 9-й позиции VIN-кода должен стоять символ <%= control_digit%>

 

Вернуться

 

Программа делает проверку на правильность кода по контрольной цифре. Контрольная цифра стоит на 9 позиции VIN-кода и является результатом математических преобразований с остальными символами VIN-кода. Это является своего рода защитой от перебития злоумышленниками VIN-кода, так как в этом случае нужно пересчитывать и перебивать и контрольную цифру тоже.
Если эта проверка кончилась неудачей, причины может быть три:

1. Вы неправильно считали код с автомобиля, проверьте еще раз (в нем не должно быть символов I, O и Q).

2. Символ "С" ввели с "русской" клавиатуры, а не с "английской".

3. Код некорректен (выводы делайте сами).

4. У Вас автомобиль китайской сборки (они не сильно утруждают себя соблюдением стандартов).

 

 

Замечания, предложения, коррективы приветствуются и ожидаются по этому адресу

  <% End If %> <% End If %>