首頁 > 開發者 > ASP

用Asp產生條碼

來源：互聯網
上載者：User
創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Keywords" content="51windows.Net">
<META NAME="Author" CONTENT="haiwa">
<title>Asp產生條碼</title>
<style>
<!--
*         {font:menu}
-->
</style>
</head>

<body>
<%
'條碼產生程式
'海娃@2004-4-4
'http://www.51windows.Net
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 dragtext(ccode)
 c = ccode
 dragtext = ""
 for i=1 to len(c)
 dragtext = dragtext&"<span style='width:26;text-align:center'>"&mid(c,i,1)&"</span>"
 next
 dragtext = dragtext
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>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

聯繫我們

該頁面正文內容均來源於網絡整理，並不代表阿里雲官方的觀點，該頁面所提到的產品和服務也與阿里云無關，如果該頁面內容對您造成了困擾，歡迎寫郵件給我們，收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容，歡迎發送郵件至： info-contact@alibabacloud.com 進行舉報並提供相關證據，工作人員會在 5 個工作天內聯絡您，一經查實，本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More