深圳网站建设技术博客

numcode(10)="|_|___||___"
numcode(11)="|___|_||___"
numcode(12)="|___|___||_"
numcode(13)="|_||___|___"
numcode(14)="|___||_|___"
numcode(15)="|___||___|_"
numcode(16)="||_|___|___"
numcode(17)="||___|_|___"
numcode(18)="||___|___|_"
numcode(19)="|_||_|||___"
numcode(20)="|_||___|||_"
numcode(21)="|___||_|||_"
numcode(22)="|_|||_||___"
numcode(23)="|_|||___||_"
numcode(24)="|___|||_||_"
numcode(25)="|||_|||_||_"
numcode(26)="||_|___|||_"
numcode(27)="||___|_|||_"
numcode(28)="||_|||_|___"
numcode(29)="||_|||___|_"
numcode(30)="||_|||_|||_"
numcode(31)="|||_|_||___"
numcode(32)="|||_|___||_"
numcode(33)="|||___|_||_"
numcode(34)="|||_||_|___"
numcode(35)="|||_||___|_"

Dim numid(35)
numid(0)=16
numid(1)=17
numid(2)=18
numid(3)=19
numid(4)=20
numid(5)=21
numid(6)=22
numid(7)=23
numid(8)=24
numid(9)=25
numid(10)=33
numid(11)=34
numid(12)=35
numid(13)=36
numid(14)=37
numid(15)=38
numid(16)=39
numid(17)=40
numid(18)=41
numid(19)=42
numid(20)=43
numid(21)=44
numid(22)=45
numid(23)=46
numid(24)=47
numid(25)=48
numid(26)=49
numid(27)=50
numid(28)=51
numid(29)=52
numid(30)=53
numid(31)=54
numid(32)=55
numid(33)=56
numid(34)=57
numid(35)=58
Function gethaxstr(odrid)
dim s
s=odrid

Dim t,i
For i=1 To Len(s)

 ' response.Write "<br >t:"&t&" "
 ' response.Write "<br >i:"&i&" "
 ' response.Write "<br >Mid:"&Mid(s,i,1)
 ' response.Write "<br >numid:"&numid(0)
 'response.Write "<br >LetterToNumber(Mid(s,i,1)):"&LetterToNumber(Mid(s,i,1))
 'response.Write "<br >"
  t=t+(i*numid(LetterToNumber(Mid(s,i,1))))
Next

t=t+103
t=t Mod 103

gethaxstr=t
End Function
Function hascode(odrid)
dim str
str=odrid
str=lcase(str)
str=Replace(str,"0",numcode(0))
str=Replace(str,"1",numcode(1))
str=Replace(str,"2",numcode(2))
str=Replace(str,"3",numcode(3))
str=Replace(str,"4",numcode(4))
str=Replace(str,"5",numcode(5))
str=Replace(str,"6",numcode(6))
str=Replace(str,"7",numcode(7))
str=Replace(str,"8",numcode(8))
str=Replace(str,"9",numcode(9))
str=Replace(str,"a",numcode(10))
str=Replace(str,"b",numcode(11))
str=Replace(str,"c",numcode(12))
str=Replace(str,"d",numcode(13))
str=Replace(str,"e",numcode(14))
str=Replace(str,"f",numcode(15))
str=Replace(str,"g",numcode(16))
str=Replace(str,"h",numcode(17))
str=Replace(str,"i",numcode(18))
str=Replace(str,"j",numcode(19))
str=Replace(str,"k",numcode(20))
str=Replace(str,"l",numcode(21))
str=Replace(str,"m",numcode(22))
str=Replace(str,"n",numcode(23))
str=Replace(str,"o",numcode(24))
str=Replace(str,"p",numcode(25))
str=Replace(str,"q",numcode(26))
str=Replace(str,"r",numcode(27))
str=Replace(str,"s",numcode(28))
str=Replace(str,"t",numcode(29))
str=Replace(str,"u",numcode(30))
str=Replace(str,"v",numcode(31))
str=Replace(str,"w",numcode(32))
str=Replace(str,"x",numcode(33))
str=Replace(str,"y",numcode(34))
str=Replace(str,"z",numcode(35))
str="||_|____|__" & str & barcode(gethaxstr(odrid)) &"||___|||_|_||"
hascode=str
End Function

Function setcolor(odrstr,w)
dim code_H,code_W,c
code_H=50
code_W=w
c = odrstr
c = replace(c,"_","<SPAN STYLE='BACKGROUND-COLOR:#FFFFFF;WIDTH:"&code_w&";HEIGHT:"&code_H&";'></SPAN>")
c = replace(c,"|","<SPAN STYLE='BACKGROUND-COLOR:#000000;WIDTH:"&code_w&";HEIGHT:"&code_H&";'></SPAN>")
setcolor = c
End Function

 '将字母的位置换成数字
function LetterToNumber(Letter)
Letter=lcase(Letter)
dim azStr,azStr2,iii,azStr1,i
azStr="0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
azStr= split(azStr,",")

For i=0 To UBound(azStr)
   'azStr2=Mid(azStr,iii,1)
   'response.Write "<br >azStr("&i&"):"&azStr(i)
   azStr1=azStr(i)
   if azStr(i)  =  Letter then
     azStr2=replace(azStr(i),Letter,i)
   end if
Next
'response.Write azStr2
LetterToNumber=azStr2

End Function

'调用
'response.Write setcolor(hascode("DH5200071112097"),1)
'response.Write setcolor(hascode("DH5200071112097"),2)
'response.Write setcolor(hascode("DH5200071112097"),3)
%>