ASP代码生成条形码

Asp生成条形码

<!--

* {font:menu}

--&gt

'条形码生成程序

'海娃@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,"_","")

c = replace(c,"|","")

dragcode = c

end function

function dragtext(ccode)

c = ccode

dragtext = ""

for i=1 to len(c)

dragtext = dragtext&""&mid(c,i,1)&""

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 = "

含有非法字符 "

end if

end if

ocode = code

code = lcase(code)

%>

合法字符：ABCDEFGHIJKLMNOPQRSTUVWXYZ 1234567890 + - * / % $ .

" size="25" maxlength="15">

[@more@]

c# 生成条形码标识类

using System;
using System.IO;
using System.Drawing;
using System.Web.UI;

namespace WebUI.WebControl
{
///
/// Class1 的摘要说明。
///
public class CreateImage
{
public CreateImage()
{
//
// TODO: 在此处添加构造函数逻辑
//
}

//生成图片
public void CreateCodeLogo(string code)
{

long len = code.Length;
string lastString = "";
char[] list = new char[len+1];

list = code.ToCharArray();

for( int i = 0; i < list.Length; i++)
{
lastString += this.ConvertToBinaryString(list[i].ToString());
//numList[i] = this.ConvertToBinaryString(list[i].ToString());
}

char[] numList = new char[lastString.Length + 1];
numList = lastString.ToCharArray();

Bitmap image = new Bitmap(200,140);
Graphics g = Graphics.FromImage(image);

//string thefullname = "nowtime.gif";
g.Clear(Color.White);
//g.DrawString(lastString,new System.Drawing.Font("Courier New", 12),new SolidBrush(Color.Red),10,110);

Pen penBlack = new Pen(Color.FromArgb(255, 0, 0, 0),2.5F);
Pen penWhite = new Pen(Color.White,2.5F);

int j = 0;

for (float k = 10; j < numList.Length; k += 2.5F,j++)
{
if ( numList[j].ToString() == "1")
{
g.DrawLine(penBlack, k, 10, k, 110);
}
else
{
g.DrawLine(penWhite, k, 10, k, 110);
}

if ( j % 4 == 0)
{
g.DrawString(list[j/4].ToString(),new System.Drawing.Font("Courier New", 12),new SolidBrush(Color.Red),k,112);
//k += 5;
}
}

image.Save(@"c:codeLogo.gif",System.Drawing.Imaging.ImageFormat.Gif);

}

//将字符串数值转换为二进制字符串数值
public string ConvertToBinaryString(string buf)
{
int[] temp= new int[20];
string binary;
int val=0,i=0,j;

//先将字符转化为十进制数
try
{
val = Convert.ToInt32(buf);
}
catch
{
val = 0;
}

if(val==0)
{
return("0000");
}

i=0;
while(val!=0)
{
temp[i++] = val % 2;
val /= 2;
}

binary = "";

for ( j=0; j<= i-1; j++)
{
binary += (char)(temp[i-j-1]+48);
}

if (binary.Length < 4) //如果小于4位左边补零
{
int len = 4 - binary.Length;
string str = "";

while(len > 0)
{
str += "0";
len --;
}

binary = str + binary;
}

return(binary);
}

private string CurrentPath(string physicalPath)
{
int ilastSlash = physicalPath.LastIndexOf(@"");
int length = physicalPath.Length - ilastSlash;
return physicalPath.Remove(ilastSlash,length)+@"";
}
}
}

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/10086843/viewspace-925105/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/10086843/viewspace-925105/