<html>
<หัว>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="ผู้เขียน" CONTENT="ไฮวะ">
<title>Asp 生成条形码</title>
</หัว>
<ร่างกาย>
<%
ฟังก์ชั่น haiwaocde(zfstr)
zf = zfstr
zf = แทนที่(zf,"0","_|_|__||_||_|")
zf = แทนที่(zf,"1","_||_|__|_|_||")
zf = แทนที่(zf,"2","_|_||__|_|_||")
zf = แทนที่(zf,"3","_||_||__|_|_|")
zf = แทนที่(zf,"4","_|_|__||_|_||")
zf = แทนที่(zf,"5","_||_|__||_|_|")
zf = แทนที่(zf,"7","_|_|__|_||_||")
zf = แทนที่(zf,"6","_|_||__||_|_|")
zf = แทนที่(zf,"8","_||_|__|_||_|")
zf = แทนที่(zf,"9","_|_||__|_||_|")
zf = แทนที่(zf,"a","_||_|_|__|_||")
zf = แทนที่(zf,"b","_|_||_|__|_||")
zf = แทนที่(zf,"c","_||_||_|__|_|")
zf = แทนที่(zf,"d","_|_|_||__|_||")
zf = แทนที่(zf,"e","_||_|_||__|_|")
zf = แทนที่(zf,"f","_|_||_||__|_|")
zf = แทนที่(zf,"g","_|_|_|__||_||")
zf = แทนที่(zf,"h","_||_|_|__||_|")
zf = แทนที่(zf,"i","_|_||_|__||_|")
zf = แทนที่(zf,"j","_|_|_||__||_|")
zf = แทนที่(zf,"k","_||_|_|_|__||")
zf = แทนที่(zf,"l","_|_||_|_|__||")
zf = แทนที่(zf,"m","_||_||_|_|__|")
zf = แทนที่(zf,"n","_|_|_||_|__||")
zf = แทนที่(zf,"o","_||_|_||_|__|")
zf = แทนที่(zf,"p","_|_||_||_|__|")
zf = แทนที่(zf,"r","_||_|_|_||__|")
zf = แทนที่(zf,"q","_|_|_|_||__||")
zf = แทนที่(zf,"s","_|_||_|_||__|")
zf = แทนที่(zf,"t","_|_|_||_||__|")
zf = แทนที่(zf,"u","_||__|_|_|_||")
zf = แทนที่(zf,"v","_|__||_|_|_||")
zf = แทนที่(zf,"w","_||__||_|_|_|")
zf = แทนที่(zf,"x","_|__|_||_|_||")
zf = แทนที่(zf,"y","_||__|_||_|_|")
zf = แทนที่(zf,"z","_|__||_||_|_|")
zf = แทนที่(zf,"-","_|__|_|_||_||")
zf = แทนที่(zf,"*","_|__|_||_||_|")
zf = แทนที่(zf,"/","_|__|__|_|__|")
zf = แทนที่(zf,"%","_|_|__|__|__|")
zf = แทนที่(zf,"+","_|__|_|__|__|")
zf = แทนที่(zf,".","_||__|_|_||_|")
haiwaocde = zf
ฟังก์ชั่นสิ้นสุด
รหัส_H = 52
รหัส_W = 2
ฟังก์ชั่น Dragcode (ccode)
ค = โค้ด
c = แทนที่(c,"_","<span style='height:"&code_H&";width:"&code_w&";พื้นหลัง:#FFFFFF'></span>")
c = แทนที่(c,"|","<span style='height:"&code_H&";width:"&code_w&";พื้นหลัง:#000000'></span>")
Dragcode = ค
ฟังก์ชันสิ้นสุด
Function CheckExp(patrn,str)
ตั้งค่า regEx=RegExp ใหม่
regEx.Pattern=รูปแบบ
regEx.IgnoreCase=true
regEx.Global=จริง
CheckExp = regEx.test(str)
End Function
code = request("c")
ถ้า code = "" แล้ว
รหัส = "*51windows.net*"
อื่น
ถ้า Checkexp("^[abcdefghijklmnopqrstuvwxyz1234567890+-*/%$.]*$",code) แล้ว
รหัส = "*"&รหัส&"*"
อื่น
รหัส = "*51windows.net*"
errstr = "<br><center style='color:red;'>含有非法字符 </center>"
สิ้นสุดถ้า
สิ้นสุดถ้า
ocode = รหัส
รหัส = lcase (รหัส)
-
<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">
<ศูนย์>
<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>
</ตาราง>
</ศูนย์>
</div>
<%=ข้อผิดพลาด%>
</ร่างกาย>
</html>