用ASP生成ZT条型码

【 tulaoshi.com - Web开发 】

　　html
　　head
　　meta http-equiv="Content-Type" content="text/html; charset=gb2312"
　　META NAME="Author" CONTENT="haiwa"
　　titleAsp生成条形码/title
　　/head
　　body
　　%

　　function haiwaocde(zfstr)
　　zf = zfstr
　　zf = replace(zf,"0","_|_|__||_||_|")
　　zf = replace(zf,"1","_||_|__|_|_||")
　　zf = replace(zf,"2","_|_||__|_|_||")
　　zf = replace(zf,"3","_||_||__|_|_|")
　　zf = replace(zf,"4","_|_|__||_|_||")
　　zf = replace(zf,"5","_||_|__||_|_|")
　　zf = replace(zf,"7","_|_|__|_||_||")
　　zf = replace(zf,"6","_|_||__||_|_|")
　　zf = replace(zf,"8","_||_|__|_||_|")
　　zf = replace(zf,"9","_|_||__|_||_|")
　　zf = replace(zf,"a","_||_|_|__|_||")
　　zf = replace(zf,"b","_|_||_|__|_||")
　　zf = replace(zf,"c","_||_||_|__|_|")
　　zf = replace(zf,"d","_|_|_||__|_||")
　　zf = replace(zf,"e","_||_|_||__|_|")
　　zf = replace(zf,"f","_|_||_||__|_|")
　　zf = replace(zf,"g","_|_|_|__||_||")
　　zf = replace(zf,"h","_||_|_|__||_|")
　　zf = replace(zf,"i","_|_||_|__||_|")
　　zf = replace(zf,"j","_|_|_||__||_|")
　　zf = replace(zf,"k","_||_|_|_|__||")
　　zf = replace(zf,"l","_|_||_|_|__||")
　　zf = replace(zf,"m","_||_||_|_|__|")
　　zf = replace(zf,"n","_|_|_||_|__||")
　　zf = replace(zf,"o","_||_|_||_|__|")
　　zf = replace(zf,"p","_|_||_||_|__|")
　　zf = replace(zf,"r","_||_|_|_||__|")
　　zf = replace(zf,"q","_|_|_|_||__||")
　　zf = replace(zf,"s","_|_||_|_||__|")
　　zf = replace(zf,"t","_|_|_||_||__|")
　　zf = replace(zf,"u","_||__|_|_|_||")
　　zf = replace(zf,"v","_|__||_|_|_||")
　　zf = replace(zf,"w","_||__||_|_|_|")
　　zf = replace(zf,"x","_|__|_||_|_||")
　　zf = replace(zf,"y","_||__|_||_|_|")
　　zf = replace(zf,"z","_|__||_||_|_|")
　　zf = replace(zf,"-","_|__|_|_||_||")
　　zf = replace(zf,"*","_|__|_||_||_|")
　　zf = replace(zf,"/","_|__|__|_|__|")
　　zf = replace(zf,"%","_|_|__|__|__|")
　　zf = replace(zf,"+","_|__|_|__|__|")
　　zf = replace(zf,".","_||__|_|_||_|")

　　haiwaocde = zf
　　end function
　　code_H = 52
　　code_W = 2
　　function dragcode(ccode)
　　c = ccode
　　c = replace(c,"_","span style='height:"&code_H&";width:"&code_w&";background:#FFFFFF'/span")
　　c = replace(c,"|","span style='height:"&code_H&";width:"&code_w&";background:#000000'/span")
　　dragcode = c
　　end function

　　Function CheckExp(patrn,str)
　　Set regEx=New RegExp
　　regEx.Pattern=patrn
　　regEx.IgnoreCase=true
　　regEx.Global=True
　　CheckExp = regEx.test(str)
　　End Function

　　code = request("c")

　　if code = "" then
　　code = "*51windows.net*"
　　else
　　if Checkexp("^[abcdefghijklmnopqrstuvwxyz1234567890+-*/%$.]*$",code) then
　　code = "*"&code&"*"
　　else
　　code = "*51windows.net*"
　　errstr = "brcenter style='color:red;'含有非法字符 /center"
　　end if
　　end if
　　ocode = code
　　code = lcase(code)
　　%
　　centerform name="form1" method="post"合法字符：ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + - * / % $ .brbrinput name="c" type="text" value="%=request("c")%" size="25" maxlength="15" input type="submit" name="Submit" value="提交"/formcenter
　　div align="center"
　　center
　　table border="0" cellpadding="0" cellspacing="0" height="79"
　　tr
　　td height="61" align="center"%=dragcode(haiwaocde(code))%/td
　　/tr
　　tr
　　td height="18" align="center" style="text-align:justify;text-justify:Distribute-all-lines;"%=(ocode)%/td
　　/tr
　　/table
　　/center
　　/div
　　%=errstr%
　　/body
　　/html