% Function GetPar(Byval p, Byval d) if Request.Form(p) <> "" then Session(p) = Request.Form(p) else Session(p) = d end if If Session(p) <> "" Then GetPar = p & "=" & Session(p) & "&" Else GetPar = "" End if End Function Function OpCombo(Byval par, Byval valor) if Session(par) = valor then OpCombo = "selected" else OpCombo = "" end if End Function Function OpRadio(Byval par, Byval valor) if Session(par) = valor then OpRadio = "checked" else OpRadio = "" end if End Function Dim par par = "G=002&" par = par & GetPar("R", "300") par = par & GetPar("T", "int2of5") par = par & GetPar("L", "arial.ttf") par = par & GetPar("B", "") par = par & GetPar("E", "") par = par & GetPar("A", "600") par = par & GetPar("M", "") par = par & GetPar("D", "") par = par & GetPar("U", "") par = par & GetPar("P", "") par = par & GetPar("K", "") par = par & GetPar("H", "") par = par & GetPar("N", "") par = par & GetPar("S", "") par = par & GetPar("I", "") par = par & GetPar("C", "123456") if Right(par,1) = "&" then par = Left(par,len(par)-1) end if %>
|
|
![]() |
|||||||||||||||||||||||||||||
<% if par <> "" then %> <% end if %> Above, the barcode generated according to the following characteristics. In order to generate the barcode again fill in the fields according to your preferences and click on the "Generate barcode" button. To see the source code (ASP) of this page, click here |
|||||||||||||||||||||||||||||||