摘要:
<%Dim arrMobile(1) arrMobile(1) = "613926666677" Call ean13(FomratEanCode(arrMobile(1)),2,100) '生成条码Function EAN13(code,w,h) Dim Guide,Dict,Lencode,Rencode,cStart,cMid,cEnd,Barcode,Lmethod Dim i Guide = array("AAAAAA","AABABB","AABBAB","ABAABB"
阅读全文