28,409
社区成员




<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<form name="form1" method="post">
<div ALIGN="CENTER">请输入合法字符:"ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + - * / %$ ."<br><br>
<input name="chars" type="text" value="<%=request("chars")%>" size="25" maxlength="15">
<input type="submit" name="Submit" value="提交">
</div>
</form>
<%
Dim Chars, CodeHeight, CodeWidth
Chars = Request("chars")
CodeHeight = 52
CodeWidth = 2
Public Function BarCode(String1)
Dim TempStr
TempStr = String1
TempStr = replace(TempStr,"0","_|_|__||_||_|")
TempStr = replace(TempStr,"1","_||_|__|_|_||")
TempStr = replace(TempStr,"2","_|_||__|_|_||")
TempStr = replace(TempStr,"3","_||_||__|_|_|")
TempStr = replace(TempStr,"4","_|_|__||_|_||")
TempStr = replace(TempStr,"5","_||_|__||_|_|")
TempStr = replace(TempStr,"7","_|_|__|_||_||")
TempStr = replace(TempStr,"6","_|_||__||_|_|")
TempStr = replace(TempStr,"8","_||_|__|_||_|")
TempStr = replace(TempStr,"9","_|_||__|_||_|")
TempStr = replace(TempStr,"a","_||_|_|__|_||")
TempStr = replace(TempStr,"b","_|_||_|__|_||")
TempStr = replace(TempStr,"c","_||_||_|__|_|")
TempStr = replace(TempStr,"d","_|_|_||__|_||")
TempStr = replace(TempStr,"e","_||_|_||__|_|")
TempStr = replace(TempStr,"f","_|_||_||__|_|")
TempStr = replace(TempStr,"g","_|_|_|__||_||")
TempStr = replace(TempStr,"h","_||_|_|__||_|")
TempStr = replace(TempStr,"i","_|_||_|__||_|")
TempStr = replace(TempStr,"j","_|_|_||__||_|")
TempStr = replace(TempStr,"k","_||_|_|_|__||")
TempStr = replace(TempStr,"l","_|_||_|_|__||")
TempStr = replace(TempStr,"m","_||_||_|_|__|")
TempStr = replace(TempStr,"n","_|_|_||_|__||")
TempStr = replace(TempStr,"o","_||_|_||_|__|")
TempStr = replace(TempStr,"p","_|_||_||_|__|")
TempStr = replace(TempStr,"r","_||_|_|_||__|")
TempStr = replace(TempStr,"q","_|_|_|_||__||")
TempStr = replace(TempStr,"s","_|_||_|_||__|")
TempStr = replace(TempStr,"t","_|_|_||_||__|")
TempStr = replace(TempStr,"u","_||__|_|_|_||")
TempStr = replace(TempStr,"v","_|__||_|_|_||")
TempStr = replace(TempStr,"w","_||__||_|_|_|")
TempStr = replace(TempStr,"x","_|__|_||_|_||")
TempStr = replace(TempStr,"y","_||__|_||_|_|")
TempStr = replace(TempStr,"z","_|__||_||_|_|")
TempStr = replace(TempStr,"-","_|__|_|_||_||")
TempStr = replace(TempStr,"*","_|__|_||_||_|")
TempStr = replace(TempStr,"/","_|__|__|_|__|")
TempStr = replace(TempStr,"%","_|_|__|__|__|")
TempStr = replace(TempStr,"+","_|__|_|__|__|")
TempStr = replace(TempStr,".","_||__|_|_||_|")
BarCode = TempStr
End Function
Public Function ShowCode(BarCode1)
Dim Chars
Chars = BarCode1
Chars = replace(chars,"_","<span style='height:"&CodeHeight&";width:"&CodeWidth&";background:#FFFFFF'></span>")
Chars = replace(chars,"|","<span style='height:"&CodeHeight&";width:"&CodeWidth&";background:#000000'></span>")
ShowCode = Chars
End Function
Public Function Validation(Pattern, String1)
Dim RegExp1, Matches
Set RegExp1 = New RegExp
RegExp1.Pattern = Pattern
RegExp1.IgnoreCase = True
RegExp1.Global = True
Matches = RegExp1.Test(String1)
Validation = Matches
End Function
If Chars <> "" Then
If Validation("^[abcdefghijklmnopqrstuvwxyz1234567890\+\-\*\/\%\$\.]*$",Chars) Then
'用户输入数据的合法,显示条形码
TempChars = Chars
Chars = LCase(Chars)
%>
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" height="79">
<tr>
<td height="61" align="center"><%=ShowCode(BarCode(Chars))%></td>
</tr>
<tr>
<td height="18" align="center"><%=(TempChars)%></td>
</tr>
</table>
</center>
</div>
<%
Else
'用户输入数据的非法,提示错误
Response.Write("<br><center style='color:red;'>含有非法字符 </center>")
End If
End If
%>
</body>
</html>