最大的網(wǎng)站源碼資源下載站，

　　在我們的日常生活中數(shù)碼照像設(shè)備已經(jīng)很普遍了，我們會(huì)經(jīng)常拍攝一些相片以供留念，而隨著數(shù)碼照片的增多，往往需要很好地管理這些照片，以便更好地查閱留念。現(xiàn)在網(wǎng)上有不少的電子相冊(cè)，都能很好的實(shí)現(xiàn)這些功能，那我們能否自己動(dòng)手創(chuàng)建自己的相冊(cè)呢？當(dāng)然可以，在這篇文章中，我們將利用asp.net，來創(chuàng)建一個(gè)簡(jiǎn)單的在線相冊(cè)，以收藏我們的照片。

　　首先來看下，這個(gè)相冊(cè)有哪些功能。在這個(gè)相冊(cè)中，我們必須先把預(yù)先攝影好的照片放到一個(gè)目錄下去，之后，可以供在網(wǎng)上使用“上一張，下一張”的鏈接一張張地查看。

　　下面先介紹如何獲得文件夾中的圖片。我們可以使用system.io命名空間中的directoryinfo類來實(shí)現(xiàn)。將文件夾所在的路徑做為參數(shù)傳遞到該類的構(gòu)造函數(shù)中，并聲明一個(gè)directoryinfo類的實(shí)例。directoryinfo類中有一個(gè)getfiles()的方法，會(huì)返回fileinfo的對(duì)象數(shù)組，而每一個(gè)fileinfo的實(shí)例將包含指定路徑下文件的具體信息。下面的代碼片段說明了該過程：

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獲得當(dāng)前目錄的路徑，而dirinfo.getfiles()將會(huì)返回該目錄下的所有文件。而由于我們的是相冊(cè)，只需要看到比如jpg，bmp，gif等圖象文件，所以我們可以通過程序?qū)崿F(xiàn)，只裝載這些類型的文件，這通過一個(gè)自定義的過程filterforimages來實(shí)現(xiàn)，該過程將只返回指定文件夾中圖象類型的文件。代碼如下：

function filterforimages(images() as fileinfo) as fileinfo()
　dim newimages as new arraylist(images.length)

　dim i as integer
　for i = 0 to images.length - 1
　　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

　　該過程對(duì)于傳遞進(jìn)來的fileinfo參數(shù)數(shù)組進(jìn)行遍歷，對(duì)文件夾中的文件的后綴名進(jìn)行叛斷，如果屬于圖象文件，則添加到newimages數(shù)組中去，并以arraylist形式返回。
　　接下來，我們看下如何顯示每一張圖片，并以“上一張，下一張”來顯示。為了知道當(dāng)前瀏覽的是第幾張圖片，可以通過使用傳遞參數(shù)的方法來實(shí)現(xiàn)。先往窗體中添加一個(gè)image控件和文本框，程序代碼如下：

sub page_load(sender as object, e as eventargs)
　...

　' dim imgindex as integer = 0
　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 + 1 & " 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" />

　　在上面的代碼中，使用變量imgindex來表示當(dāng)前瀏覽的是第幾張圖片，剛開始時(shí)候n=0，則獲得images數(shù)組中的第一個(gè)變量，也即第一張圖片，之后每次讀取該變量值，則可以知道當(dāng)前瀏覽的是第幾張圖片。