<form method="post" name="form1">
	<br />
	<div align="center">
		请输入合法字符："ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + - * / %$ ."<br />
<br />
<br />
<INPUT value="<%=request(" name=chars chars?)%>" size="25" maxlength="15"&gt;<br />
<input value="提交" type="submit" name="Submit" /><br />
	</div>
<br />
</form>
<br />
<%<br />
Dim Chars, CodeHeight, CodeWidth<br />
Chars = Request("chars")<br />
'指定条形码的高和宽<br />
CodeHeight = 52<br />
CodeWidth = 2<br />
'将String1转化为特殊字符串<br />
Public Function BarCode(String1)<br />
    Dim TempStr<br />
    TempStr = String1<br />
    TempStr = replace(TempStr,"0","_|_|__||_||_|")<br />
    TempStr = replace(TempStr,"1","_||_|__|_|_||")<br />
    TempStr = replace(TempStr,"2","_|_||__|_|_||")<br />
    TempStr = replace(TempStr,"3","_||_||__|_|_|")<br />
    TempStr = replace(TempStr,"4","_|_|__||_|_||")<br />
    TempStr = replace(TempStr,"5","_||_|__||_|_|")<br />
    TempStr = replace(TempStr,"7","_|_|__|_||_||")<br />
    TempStr = replace(TempStr,"6","_|_||__||_|_|")<br />
    TempStr = replace(TempStr,"8","_||_|__|_||_|")<br />
    TempStr = replace(TempStr,"9","_|_||__|_||_|")<br />
    TempStr = replace(TempStr,"a","_||_|_|__|_||")<br />
    TempStr = replace(TempStr,"b","_|_||_|__|_||")<br />
    TempStr = replace(TempStr,"c","_||_||_|__|_|")<br />
    TempStr = replace(TempStr,"d","_|_|_||__|_||")<br />
    TempStr = replace(TempStr,"e","_||_|_||__|_|")<br />
    TempStr = replace(TempStr,"f","_|_||_||__|_|")<br />
    TempStr = replace(TempStr,"g","_|_|_|__||_||")<br />
    TempStr = replace(TempStr,"h","_||_|_|__||_|")<br />
    TempStr = replace(TempStr,"i","_|_||_|__||_|")<br />
    TempStr = replace(TempStr,"j","_|_|_||__||_|")<br />
    TempStr = replace(TempStr,"k","_||_|_|_|__||")<br />
    TempStr = replace(TempStr,"l","_|_||_|_|__||")<br />
    TempStr = replace(TempStr,"m","_||_||_|_|__|")<br />
    TempStr = replace(TempStr,"n","_|_|_||_|__||")<br />
    TempStr = replace(TempStr,"o","_||_|_||_|__|")<br />
    TempStr = replace(TempStr,"p","_|_||_||_|__|")<br />
    TempStr = replace(TempStr,"r","_||_|_|_||__|")<br />
    TempStr = replace(TempStr,"q","_|_|_|_||__||")<br />
    TempStr = replace(TempStr,"s","_|_||_|_||__|")<br />
    TempStr = replace(TempStr,"t","_|_|_||_||__|")<br />
    TempStr = replace(TempStr,"u","_||__|_|_|_||")<br />
    TempStr = replace(TempStr,"v","_|__||_|_|_||")<br />
    TempStr = replace(TempStr,"w","_||__||_|_|_|")<br />
    TempStr = replace(TempStr,"x","_|__|_||_|_||")<br />
    TempStr = replace(TempStr,"y","_||__|_||_|_|")<br />
    TempStr = replace(TempStr,"z","_|__||_||_|_|")<br />
    TempStr = replace(TempStr,"-","_|__|_|_||_||")<br />
    TempStr = replace(TempStr,"*","_|__|_||_||_|")<br />
    TempStr = replace(TempStr,"/","_|__|__|_|__|")<br />
    TempStr = replace(TempStr,"%","_|_|__|__|__|")<br />
    TempStr = replace(TempStr,"+","_|__|_|__|__|")<br />
    TempStr = replace(TempStr,".","_||__|_|_||_|") <br />
    BarCode = TempStr<br />
End Function<br />
'将BarCode1显示为条形码<br />
Public Function ShowCode(BarCode1)<br />
    Dim Chars<br />
    Chars = BarCode1<br />
    Chars = replace(chars,"_","<span style="height:&quot;width:&quot;background:#FFFFFF;"></span>")<br />
    Chars = replace(chars,"|","<span style="height:&quot;width:&quot;background:#000000;"></span>")<br />
    ShowCode = Chars<br />
End Function<br />
'使用正则表达式验证String1是否匹配Pattern<br />
Public Function Validation(Pattern, String1)<br />
    Dim RegExp1, Matches<br />
    '建立正则表达式<br />
    Set RegExp1 = New RegExp<br />
    '设置模式<br />
    RegExp1.Pattern = Pattern<br />
    '设置是否区分字符大小写<br />
    RegExp1.IgnoreCase = True<br />
    '设置全局可用性<br />
    RegExp1.Global = True <br />
    Matches = RegExp1.Test(String1)<br />
    Validation = Matches<br />
End Function<br />
'验证用户输入数据的合法性<br />
If Chars <> "" Then<br />
    If Validation("^[abcdefghijklmnopqrstuvwxyz1234567890\+\-\*\/\%\$\.]*$",Chars) Then<br />
        '用户输入数据的合法，显示条形码<br />
        TempChars = Chars<br />
        Chars = LCase(Chars)<br />
%><br />
<div align="center">
	<br />
	<center>
		<br />
&nbsp;
		<table class="ke-zeroborder" border="0" cellspacing="0" cellpadding="0" height="79">
			<br />
&nbsp;&nbsp;&nbsp;
			<tbody>
				<tr>
					<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
					<td height="61" align="middle">
						<%=ShowCode(BarCode(Chars))%>
					</td>
<br />
&nbsp;&nbsp;&nbsp;
				</tr>
<br />
&nbsp;&nbsp;&nbsp;
				<tr>
					<br />
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
					<td height="18" align="middle">
						<%=(TempChars)%>
					</td>
<br />
&nbsp;&nbsp;&nbsp;
				</tr>
<br />
&nbsp;
			</tbody>
		</table>
<br />
&nbsp;
	</center>
<br />
</div>
<br />
<%<br />
    Else<br />
        '用户输入数据的非法，提示错误<br />
        Response.Write("<br />
<center style="color:red;">
	含有非法字符
</center>
")<br />
    End If<br />
End If<br />
%><br />