<html>
<%
StrCode = "12345678"
Function GetBarImage(Code)
Select Case Code
Case "*"
GetBarImage = transformBar("010010100")
Case "0"
GetBarImage = transformBar("000110100")
Case "1"
GetBarImage = transformBar("100100001")
Case "2"
GetBarImage = transformBar("001100001")
Case "3"
GetBarImage = transformBar("101100000")
Case "4"
GetBarImage = transformBar("000110001")
Case "5"
GetBarImage = transformBar("100110000")
Case "6"
GetBarImage = transformBar("001110000")
Case "7"
GetBarImage = transformBar("000100101")
Case "8"
GetBarImage = transformBar("100100100")
Case "9"
GetBarImage = transformBar("001100100")
End Select
End Function
Function TransformBar(str)
tempStr = ""
For I = 1 To Len(str)
bar = Mid(str,I,1)
If (I Mod 2) = 1 Then ''Black Bar
tempStr = tempStr & "<IMG Src=b" & bar & ".jpg>"
Else ''White Bar
tempStr = tempStr & "<IMG Src=w" & bar & ".jpg>"
End If
Next
transformBar = tempStr
End Function
Function GetImageStr(StrCode)
Gap = "<IMG Src=w0.jpg>"
allStr = "*" & StrCode & "*"
imageStr = ""
For I = 1 To Len(allStr)
If imageStr = "" Then
imageStr = GetBarImage(Mid(allStr,I,1)) & Gap
Else
imageStr = imageStr & GetBarImage(Mid(allStr,I,1)) & Gap
End If
Next
GetImageStr = imageStr
End Function
%>
<head>
</head>
<body>
<table border=0 width="50%">
<tr>
<td align="center">
<%= GetImageStr(StrCode) %>
</td>
</tr>
<tr>
<td align="center">
<%= StrCode %>
</td>
</tr>
</body>
</html>
