<أتش تي أم أل>
<الرأس>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="Author" CONTENT="haiwa">
<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
وظيفة النهاية
كود_ح = 52
كود_W = 2
وظيفة السحب كود (كود)
ج = كود
c = استبدال(c,"_"،<span style='height:"&code_H&";width:"&code_w&";background:#FFFFFF'></span>")
c = استبدال(c,"|"،<span style='height:"&code_H&";width:"&code_w&";background:#000000'></span>")
رمز السحب = ج
وظيفة النهاية
وظيفة CheckExp(pattern,str)
اضبط regEx=RegExp الجديد
regEx.Pattern=pattern
regEx.IgnoreCase=true
regEx.Global=صحيح
CheckExp = regEx.test(str)
رمز
وظيفة النهاية
= طلب ("c")إذا كان الرمز = "" إذن
الكود = "*51windows.net*"
آخر
إذا Checkexp("^[abcdefghijklmnopqrstuvwxyz1234567890+-*/%$.]*$"،code) ثم
الكود = "*"&الكود&"*"
آخر
الكود = "*51windows.net*"
errstr = "<br><center style='color:red;'>اللون الأحمر </center>"
نهاية إذا
نهاية إذا
كود = كود
الكود = 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 محاذاة = "المركز">
<المركز>
<حدود الجدول = "0" خلية الحشو = "0" تباعد الخلايا = "0" الارتفاع = "79">
<تر>
<td height="61" align="center"><%=dragcode(haiwaocde(code))%></td>
</tr>
<تر>
<td height="18" align="center" style="text-align:justify;text-justify:Distribute-all-lines;"><%=(ocode)%></td>
</tr>
</الجدول>
</مركز>
</div>
<%=errstr%>
</الجسم>
</html>