摘要: <%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" 阅读全文
posted @ 2013-01-30 10:23 黑冰.org 阅读(386) 评论(0) 推荐(0) 编辑
摘要: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"> <head><meta content="text/html; charset=gb2312" http-equiv="Content-T 阅读全文
posted @ 2013-01-30 10:22 黑冰.org 阅读(1647) 评论(0) 推荐(0) 编辑