高手请进，顶者有分. asp 请求 c# dll 问题

chinalinx 2007-08-28 04:57:23

dll 类代码

/// 缩略图
public static byte[] GetThumbnail(byte[] img, int width, int height, string mode)
{
System.IO.MemoryStream ms = new System.IO.MemoryStream(img);
Image originalImage = System.Drawing.Image.FromStream(ms);

int towidth = width;
int toheight = height;

int x = 0;
int y = 0;
int ow = originalImage.Width;
int oh = originalImage.Height;
Image bitmap;
if (ow > towidth || oh > toheight)
{
switch (mode)
{
case "HW"://指定高宽缩放（可能变形）
break;
case "W"://指定宽，高按比例
toheight = originalImage.Height * width / originalImage.Width;
break;
case "H"://指定高，宽按比例
towidth = originalImage.Width * height / originalImage.Height;
break;
case "Cut"://指定高宽裁减（不变形）
if ((double)originalImage.Width / (double)originalImage.Height > (double)towidth / (double)toheight)
{
oh = originalImage.Height;
ow = originalImage.Height * towidth / toheight;
y = 0;
x = (originalImage.Width - ow) / 2;
}
else
{
ow = originalImage.Width;
oh = originalImage.Width * height / towidth;
x = 0;
y = (originalImage.Height - oh) / 2;
}
break;
default:
break;
}

//新建一个bmp图片
bitmap = new System.Drawing.Bitmap(towidth, toheight);

//新建一个画板
Graphics g = System.Drawing.Graphics.FromImage(bitmap);

//设置高质量插值法
g.InterpolationMode = System.Drawing.Drawing2D.InterpolationMode.High;

//设置高质量,低速度呈现平滑程度
g.SmoothingMode = System.Drawing.Drawing2D.SmoothingMode.HighQuality;

//清空画布并以透明背景色填充
g.Clear(Color.Transparent);

//在指定位置并且按指定大小绘制原图片的指定部分
g.DrawImage(originalImage, new Rectangle(0, 0, towidth, toheight),
new Rectangle(x, y, ow, oh),
GraphicsUnit.Pixel);
}
else
bitmap = originalImage;

// Image aa = System.Drawing.Image.FromFile("c:\\aa.bmp");

Bitmap bb = new Bitmap(bitmap);
System.IO.MemoryStream stream1 = new System.IO.MemoryStream();
bb.Save(stream1, System.Drawing.Imaging.ImageFormat.Bmp);
Byte[] nn = stream1.ToArray();

return nn;
}

a.asp
------------------------------------------------
sqlstr = "Select P_Image From Product where Product_Id=1"
Set prs = Cdb.Getrs(sqlstr,1)
m_pic = prs.Fields("P_Image").value
Set rs = server.CreateObject("ClassLibrary.CL")

Response.ContentType = "image/gif"
Response.BinaryWrite (rs.GetThumbnail(m_pic,20,20,"HW"))
其它注册都正常.
运行a.asp时
对象不支持此属性或方法: 'rs.GetThumbnail'
我知道是类型不对应而造成的，请求各位大虾们应如何修改.谢谢.

...全文