知识大全用ASP.NET创建网络相册保存美好时光

Posted 2022-07-17 文件

篇首语：你可以忘掉失败，但不能忘掉教训；你可以忘掉昨天，但不能忘记历史。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全用ASP.NET创建网络相册保存美好时光相关的知识，希望对你有一定的参考价值。

用ASP.NET创建网络相册保存美好时光 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在我们的日常生活中数码照像设备已经很普遍了我们会经常拍摄一些相片以供留念而随着数码照片的增多往往需要很好地管理这些照片以便更好地查阅留念现在网上有不少的电子相册都能很好的实现这些功能那我们能否自己动手创建自己的相册呢？当然可以在这篇文章中我们将利用来创建一个简单的在线相册以收藏我们的照片

　　首先来看下这个相册有哪些功能在这个相册中我们必须先把预先摄影好的照片放到一个目录下去之后可以供在网上使用上一张下一张的链接一张张地查看

　　下面先介绍如何获得文件夹中的图片我们可以使用System IO命名空间中的DirectoryInfo类来实现将文件夹所在的路径做为参数传递到该类的构造函数中并声明一个DirectoryInfo类的实例 DirectoryInfo类中有一个GetFiles()的方法会返回FileInfo的对象数组而每一个FileInfo的实例将包含指定路径下文件的具体信息下面的代码片段说明了该过程

　　Sub Page_Load(sender as Object e as EventArgs)　 Get list of images　Dim dirInfo as New DirectoryInfo(Server MapPath( ))　Dim images() as FileInfo = FilterForImages(dirInfo GetFiles())　

　　End Sub

　　其中用Server mappath获得当前目录的路径而dirinfo getfiles()将会返回该目录下的所有文件而由于我们的是相册只需要看到比如JPG BMP GIF等图象文件所以我们可以通过程序实现只装载这些类型的文件这通过一个自定义的过程FilterForImages来实现该过程将只返回指定文件夹中图象类型的文件代码如下

　　Function FilterForImages(images() as FileInfo) as FileInfo()　Dim newImages as New ArrayList(images Length)

　　Dim i as Integer　For i = to images Length 　　If Path GetExtension(images(i) Name) = jpg OrElse _　　　Path GetExtension(images(i) Name) = jpeg OrElse _ 　　　Path GetExtension(images(i) Name) = png OrElse _ 　　　Path GetExtension(images(i) Name) = gif then　　　　newImages Add(images(i))　　End If　Next

　　Return CType(newImages ToArray(GetType(FileInfo)) FileInfo())End Function

该过程对于传递进来的FileInfo参数数组进行遍历对文件夹中的文件的后缀名进行叛断如果属于图象文件则添加到newimages数组中去并以arraylist形式返回　　接下来我们看下如何显示每一张图片并以上一张下一张来显示为了知道当前浏览的是第几张图片可以通过使用传递参数的方法来实现先往窗体中添加一个image控件和文本框程序代码如下

　　Sub Page_Load(sender as Object e as EventArgs)　

　　 Dim imgIndex as Integer = 　If Not Request QueryString( N ) is Nothing AndAlso _　　IsNumeric(Request QueryString( N )) then　　　imgIndex = CInt(Request QueryString( N ))　End If　　currentImgTitle Text = You are Viewing: & _　　Path GetFileNameWithoutExtension(images(imgIndex) Name) & _　　 ( & imgIndex + & of & images Length & ) 　　　currentImg ImageUrl = Path GetFileName(images(imgIndex) Name)　　　 End Sub

　　HTML部分代码

　　<asp:Label runat= server id= currentImgTitle /><br /> <asp:Image runat= server id= currentImg />

cha138/Article/program/net/201311/12239

知识大全 用ASP.NET创建网络相册保存美好时光

知识大全用ASP.NET创建网络相册保存美好时光