<script language="VB" runat="server">
Sub Page_Load(sender As Object, e As EventArgs)
If Request.Form("fileName")<>"" Then
Dim image,aNewImage As System.Drawing.Image
dim width,height,newwidth,newheight as integer
Dim callb As System.Drawing.Image.GetThumbnailImageAbort'生成缩略图
image=System.Drawing.Image.FromFile(Server.MapPath("../bbs/attachment/"+Request.Form("fileName")))'width=image.Width
'height=image.height
'if width>height then
'newwidth=110
'newheight=image.height/image.Width*newwidth
'else
'newheight=110
'newwidth=image.Width/image.height*newheight
'end ifwidth=100
height=100
aNewImage=image.GetThumbnailImage(newwidth,newheight,callb,new System.IntPtr())
aNewImage.Save(Server.MapPath("images/"+Request.Form("fileName")))
image.Dispose()Response.Write("缩略图生成成功!")
End IfEnd Sub</script>麻烦帮我修改为C#的,谢谢

解决方案 »

  1.   

    private void Page_Load(object sender, System.EventArgs e)
    {
    System.Drawing.Image image;
    System.Drawing.Image aNewImage;
    int width;
    int height;
    int newwidth;
    int newheight;  
      
    //'生成缩略图
    image =System.Drawing.Image.FromFile(Server.MapPath("../bbs/attachment/"+Request.Form["fileName"]));
     
    //width=100; /
    //height=100;  
    newwidth=100; 
    newheight=100;
    aNewImage=image.GetThumbnailImage(newwidth,newheight,null,new System.IntPtr());
    aNewImage.Save(Server.MapPath("images/"+Request.Form["fileName"]));
     
    image.Dispose(); Response.Write("缩略图生成成功!");
     
     
    }-----难免有错,错了莫怪.
      

  2.   

    直接拿代码考到那些vb转c#的什么网站上去,然后让它转换一下,自己再测试一下修改一下不就好了.