在ASP.NET里轻松实现缩略图
http://lucky_elove.www1.dotnetplayground.com/
以前，在页面上实现缩略图必须借助第三方组件。现在，有了.NET，就可以很轻松地实现缩略图。下面就是实现缩略图的例子。
查看例子
代码如下：Thumbnail.aspx
<![CDATA[<meta content="Microsoft Visual Studio.NET 7.0" name="GENERATOR"><meta content="Visual Basic 7.0" name="CODE_LANGUAGE"><meta content="JavaScript" name="vs_defaultClientScript"><meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema"><label id="Label1" runat="server"></label> ]]>
后代码：Thumbnail.aspx.vb
<![CDATA[Imports SystemImports System.WebImports System.DrawingImports System.IOImports System.Drawing.ImagingPublic Class Thumbnail Inherits System.Web.UI.Page Protected WithEvents Label1 As System.Web.UI.WebControls.Label Protected WithEvents Button1 As System.Web.UI.WebControls.Button#Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. <system.diagnostics.debuggerstepthrough> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub#End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Label1.Text = "<br />
<h4 id="title-0">在ASP.NET里轻松实现缩略图</h4>
<p>" Button1.Text = "上载并显示缩略图" End Sub Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click Dim MyFileColl As HttpFileCollection = HttpContext.Current.Request.Files Dim MyPostedFile As HttpPostedFile = MyFileColl.Item(0) If LCase(MyPostedFile.ContentType.ToString()).IndexOf("image") </p>
<p></system.diagnostics.debuggerstepthrough>]]>