Gerar código de barras para boletos bancários em ASP

Script para geração de código de barras 2 of 5, que é o padrão utilizado na geração de boletos bancários.

Tanto na versão em PHP e ASP, foram testados com leitor de codigo de barras.

<%
valor = request("valor")
if valor = "" then valor = "34191183400000292011090000107160253500375000"


function fbarcode(valor)
Dim f, f1, f2, i
Dim texto
Const fino = 1
Const largo = 3
Const altura = 50
Dim BarCodes(99)

if isempty(BarCodes(0)) then
  BarCodes(0) = "00110"
  BarCodes(1) = "10001"
  BarCodes(2) = "01001"
  BarCodes(3) = "11000"
  BarCodes(4) = "00101"
  BarCodes(5) = "10100"
  BarCodes(6) = "01100"
  BarCodes(7) = "00011"
  BarCodes(8) = "10010"
  BarCodes(9) = "01010"
  for f1 = 9 to 0 step -1
    for f2 = 9 to 0 Step -1
      f = f1 * 10 + f2
      texto = ""
      for i = 1 To 5
        texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1)
      next
      BarCodes(f) = texto
    next
  next
end if

'Desenho da barra


' Guarda inicial
%>
 height=<%=altura%> border=0> height=<%=altura%> border=0> height=<%=altura%> border=0> height=<%=altura%> border=0> 0 then
  texto = "0" & texto
end if


' Draw dos dados
do while len(texto) > 0
  i = cint( left( texto, 2) )
  texto = right( texto, len( texto ) - 2)
  f = BarCodes(i)
  for i = 1 to 10 step 2
    if mid(f, i, 1) = "0" then
      f1 = fino
    else
      f1 = largo
    end if
    %>
    src=p.gif width=<%=f1%> height=<%=altura%> border=0>
    src=b.gif width=<%=f2%> height=<%=altura%> border=0>
src=p.gif width=<%=largo%> height=<%=altura%> border=0> height=<%=altura%> border=0> height=<%=altura%> border=0>

<%
end function
%>
Script Gera Código 
  de Barras 2 of 5 - Padrão utilizados para boletos bancarios.

  

  Este script foi testado com o leitor de código de barras e esta OK. 

  

  

<%=fbarcode(valor)  %>

  Digite o valor do código 
  de barras: