当前页面位置: » 丰搜网 » 文档中心 » 详细内容
用asp生成zt条型码
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<meta name="author" content="haiwa">
<title>aspéú³éìõðîâë</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 = "<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>
