IDC资讯中心 <html> function haiwaocde(zfstr) haiwaocde = zf Function CheckExp(patrn,str) code = request(“c”) if code = “” then
<head>
<meta http-equiv=”Content-Type” content=”text/html; charset=gb2312″>
<META NAME=”Author” CONTENT=”haiwa”>
<title>Asp生成条形码</title>
</head>
<body>
<%
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,”.”,”_||__|_|_||_|”)
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
Set regEx=New RegExp
regEx.Pattern=patrn
regEx.IgnoreCase=true
regEx.Global=True
CheckExp = regEx.test(str)
End Function
code = “*51windows.net*”
else
if Checkexp(“^[abcdefghijklmnopqrstuvwxyz1234567890\+\-\*\/\%\$\.]*$”,code) then
code = “*”&code&”*”
else
code = “*51windows.net*”
errstr = “<br><center style=color:red;>含有非法字符 </center>”
end if
end if
ocode = code
code = lcase(code)
%>
<center><form name=”form1″ method=”post”>合法字符：ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + – * / % $ .<br><br><input name=”c” type=”text” value=”<%=request(“c”)%>” size=”25″ maxlength=”15″> <input type=”submit” name=”Submit” value=”提交”></form><center>
<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>
用asp生成zt条型码_asp技巧
版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com 特别注意：本站所有转载文章言论不代表本站观点！ 本站所提供的图片等素材，版权归原作者所有，如需使用，请与原作者联系。未经允许不得转载：IDC资讯中心 » 用asp生成zt条型码_asp技巧
