金色的骷髅 发表于 2015-1-16 22:30:25

ASP.NET网页设计实例开辟:ASP.NET创立收集相册

你所列的那些其实差不多都可以称为应用服务器(servlet应该说是一种语言更合适)java是开放的,相同的工具就会有很多公司在做,加上java已经发展了很多年了,因此这些工具就很多了。他们很多都是类似的。在如今的数码时期,我们会常常拍摄一些相片以供纪念,而跟着数码照片的增加,常常必要很好地办理这些照片,以便更好地查阅纪念。如今网上有很多的电子相册,都能很好的完成这些功效,那我们可否本人下手创立本人的相册呢?固然能够,在这篇文章中,我们将使用ASP.net,来创立一个复杂的在线相册,以保藏我们的照片。
起首来看下,这个相册有哪些功效。在这个相册中,我们必需先把事后拍照好的照片放到一个目次下往,以后,能够供在网上利用“上一张,下一张”的链接一张张地检察。
上面先先容怎样取得文件夹中的图片。我们可使用System.IO定名空间中的DirectoryInfo类来完成。将文件夹地点的路径做为参数传送到该类的机关函数中,并声明一个DirectoryInfo类的实例。DirectoryInfo类中有一个GetFiles()的办法,会前往FileInfo的工具数组,而每个FileInfo的实例将包括指定路径下文件的详细信息。上面的代码片断申明了该历程:
以下为援用的内容:
SubPage_Load(senderasObject,easEventArgs)
 Getlistofimages
 DimdirInfoasNewDirectoryInfo(Server.MapPath(""))
 Dimimages()asFileInfo=FilterForImages(dirInfo.GetFiles())
 ...
EndSub

个中,用Server.mappath取得以后目次的路径,而dirinfo.getfiles()将会前往该目次下的一切文件。而因为我们的是相册,只必要看到好比JPG,BMP,GIF等图像文件,以是我们能够经由过程程序完成,只装载这些范例的文件,这经由过程一个自界说的历程FilterForImages来完成,该历程将只前往指定文件夹中图像范例的文件。代码以下:
以下为援用的内容:
FunctionFilterForImages(images()asFileInfo)asFileInfo()
 DimnewImagesasNewArrayList(images.Length)
 DimiasInteger
 Fori=0toimages.Length-1
  IfPath.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))
  EndIf
 Next
ReturnCType(newImages.ToArray(GetType(FileInfo)),FileInfo())
EndFunction

该历程关于传送出去的FileInfo参数数组举行遍历,对文件夹中的文件的后缀名举行叛断,假如属于图像文件,则增加到newimages数组中往,并以arraylist情势前往。
接上去,我们看下怎样显现每张图片,并以“上一张,下一张”来显现。为了晓得以后扫瞄的是第几张图片,能够经由过程利用传送参数的办法来完成。先往窗体中增加一个image控件和文本框,程序代码以下:
SubPage_Load(senderasObject,easEventArgs)
 ...
DimimgIndexasInteger=0
IfNotRequest.QueryString("N")isNothingAndAlso_
  IsNumeric(Request.QueryString("N"))then
   imgIndex=CInt(Request.QueryString("N"))
EndIf
 
currentImgTitle.Text="YouareViewing:"&_
  Path.GetFileNameWithoutExtension(images(imgIndex).Name)&_
  "("&imgIndex+1&"of"&images.Length&")"
   currentImg.ImageUrl=Path.GetFileName(images(imgIndex).Name)
   ...
EndSub
HTML部分代码
<ASP:Labelrunat="server"id="currentImgTitle"/><br/>
<asp:Imagerunat="server"id="currentImg"/>
在下面的代码中,利用变量imgindex来暗示以后扫瞄的是第几张图片,刚入手下手时分N=0,则取得images数组中的第一个变量,也即第一张图片,以后每次读取该变量值,则能够晓得以后扫瞄的是第几张图片。
而为了完成“下一张,上一张”的功效,往窗体增添两个HyPerlink链接控件,并增加以下代码
以下为援用的内容:
SubPage_Load(senderasObject,easEventArgs)
...
IfimgIndex>0then
 lnkPrev.NavigateUrl="Default.aspx?N="&imgIndex-1
EndIf
IfimgIndex<images.Length-1then
 lnkNext.NavigateUrl="Default.aspx?N="&imgIndex+1
EndIf
...
EndSub

HTML部分代码
以下为援用的内容:
<asp:HyperLinkrunat="server"id="lnkPrev"Text="<Previous"/>|
<asp:HyperLinkrunat="server"id="lnkNext"Text="Next>"/>

下面代码对照简单了解,当点下一张,上一张的链接时,参数N的值加1,大概减1。
最初,为了完成对照直不雅的效果,我们安排一个datalist控件,个中显现图像文件夹下的一切文件,每当扫瞄一张新的图片时,则将以后正在扫瞄的图片的称号以链接的情势加亮显现,代码以下:
以下为援用的内容:
SubPage_Load(senderasObject,easEventArgs)
 ...
 dlIndex.DataSource=images
 dlIndex.DataBind()
EndSub
SubdlIndex_ItemDataBound(senderasObject,easDataListItemEventArgs)
 Ife.Item.ItemType=ListItemType.ItemOrElse_
  e.Item.ItemType=ListItemType.AlternatingItemthen
  GettheHyperlink
   DimhlasHyperLink=CType(e.Item.FindControl("lnkPic"),HyperLink)
  SettheTextandNavigationproperties
  hl.Text=Path.GetFileNameWithoutExtension(_
   DataBinder.Eval(e.Item.DataItem,"Name").ToString())&_
   "("&_
    Int(DataBinder.Eval(e.Item.DataItem,"Length")/1000)&_
   "KB)"
  hl.NavigateUrl="Default.aspx?N="&e.Item.ItemIndex
 EndIf
EndSub

HTML部分代码
以下为援用的内容:
<asp:DataListrunat="server"id="dlIndex"OnItemDataBound="dlIndex_ItemDataBound"
RepeatColumns="3">
<ItemTemplate>
<li><asp:HyperLinkrunat="server"id="lnkPic"/></li>
</ItemTemplate>
</asp:DataList>

在下面的代码中,在DATALIST的onitemdatabound事务中,起首判别以后触发的项目是不是是列表项listitemtype大概是瓜代项AlternatingItem,假如是的话,则静态天生链接hl,设置hl的值为以后正在扫瞄图像的文件名,而且说明了文件的巨细,设置其链接的地点为以后扫瞄图像的地点,如许,用户能够间接点要扫瞄的图片了,纷歧要经由过程上一张,下一张的链接来完成。
最初给出运转的一个例子和全体代码:
以下为援用的内容:
<%@ImportNamespace="System.IO"%>
<scriptrunat="server"language="VB">
SubPage_Load(senderasObject,easEventArgs)
 DimdirInfoasNewDirectoryInfo(Server.MapPath(""))
 Dimimages()asFileInfo=FilterForImages(dirInfo.GetFiles())
 DimimgIndexasInteger=0
 IfNotRequest.QueryString("N")isNothingAndAlsoIsNumeric(Request.QueryString("N"))then
  imgIndex=CInt(Request.QueryString("N"))
 EndIf
 currentImgTitle.Text="YouareViewing:"&_
  Path.GetFileNameWithoutExtension(images(imgIndex).Name)&_
  "("&imgIndex+1&"of"&images.Length&")"
  currentImg.ImageUrl=Path.GetFileName(images(imgIndex).Name)
  IfimgIndex>0then
   lnkPrev.NavigateUrl="Default.aspx?N="&imgIndex-1
  EndIf
  IfimgIndex<images.Length-1then
   lnkNext.NavigateUrl="Default.aspx?N="&imgIndex+1
  EndIf
  dlIndex.DataSource=images
  dlIndex.DataBind()
EndSub
FunctionFilterForImages(images()asFileInfo)asFileInfo()
 DimnewImagesasNewArrayList(images.Length)
 DimiasInteger
 Fori=0toimages.Length-1
  IfPath.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))
  EndIf
 Next
 ReturnCType(newImages.ToArray(GetType(FileInfo)),FileInfo())
EndFunction
SubdlIndex_ItemDataBound(senderasObject,easDataListItemEventArgs)
 Ife.Item.ItemType=ListItemType.ItemOrElsee.Item.ItemType=  ListItemType.AlternatingItemthen
  DimhlasHyperLink=CType(e.Item.FindControl("lnkPic"),HyperLink)
  hl.Text=Path.GetFileNameWithoutExtension(DataBinder.Eval(e.Item.DataItem,"Name").ToString())&_
  "("&Int(DataBinder.Eval(e.Item.DataItem,"Length")/1000)&"KB)"
  hl.NavigateUrl="Default.aspx?N="&e.Item.ItemIndex
 EndIf
EndSub
</script>
<HTML>
<HEAD>
 <STYLETYPE="text/css">
  body{font-family:Verdana;font-size:medium;}
  .ImageTitle{font-weight:bold;font-size:large;}
  .index{font-size:small;}
  .NavLink{background-color:yellow;font-weight:bold;}
 </STYLE>
</HEAD>
<BODY>
<center>
<asp:Labelrunat="server"id="currentImgTitle"CssClass="ImageTitle"/><br/>
<asp:Imagerunat="server"id="currentImg"/>
<asp:HyperLinkrunat="server"CssClass="NavLink"id="lnkPrev"Text="<Previous"/>|
<asp:HyperLinkrunat="server"CssClass="NavLink"id="lnkNext"Text="Next>"/>
<asp:DataListrunat="server"id="dlIndex"OnItemDataBound="dlIndex_ItemDataBound"
RepeatColumns="3"CssClass="index">
<ItemTemplate>
<li><asp:HyperLinkrunat="server"id="lnkPic"/></li>
</ItemTemplate>
</asp:DataList>
</center>
</BODY>
</HTML>


实不相瞒,Java是我见过的执行效率最低的程序设计语言,前不久在CSDN论坛上有个评测,计算9999的阶乘,同样的循环算法,Java的耗时是.NET的5倍。

admin 发表于 2015-1-17 11:54:08

CGI程序在运行的时候,首先是客户向服务器上的CGI程序发送一个请求,服务器接收到客户的请求后,就会打开一个新的Process(进程)来执行CGI程序,处理客户的请求。CGI程序最后将执行的结果(HTML页面代码)传回给客户。

深爱那片海 发表于 2015-1-20 17:57:10

ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp)。

老尸 发表于 2015-1-29 13:49:34

这也就是最近几年来随着各种新的后台技术的诞生,CGI应用在Internet上越来越少的原因。CGI方式不适合大访问量的应用。

若天明 发表于 2015-2-6 01:38:31

Asp.net脚本的出现,为ASP空间带来了更高的稳定性,同时也为程序员建站提供更高环境!

仓酷云 发表于 2015-2-14 20:33:38

Asp.net:首先来说,Asp.net和Asp没什么关系,看着像是升级版本什么的,其实没什么联系。Asp是脚本编程,用的是ASP语言,而ASP.net用的是C#语言,完全不同的东西。

谁可相欹 发表于 2015-3-4 10:22:10

ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码。

若相依 发表于 2015-3-11 18:16:33

同时也感谢博客园给我们这个平台,也感谢博客园的编辑们做成专题引来这么多高人指点。

不帅 发表于 2015-3-19 06:46:08

是指转换后的Servlet程序代码的行数。这给调试代码带来一定困难。所以,在排除错误时,可以采取分段排除的方法(在可能出错的代码前后输出一些字符串,用字符串是否被输出来确定代码段从哪里开始出错)。

爱飞 发表于 2015-3-27 11:08:43

是指转换后的Servlet程序代码的行数。这给调试代码带来一定困难。所以,在排除错误时,可以采取分段排除的方法(在可能出错的代码前后输出一些字符串,用字符串是否被输出来确定代码段从哪里开始出错)。
页: [1]
查看完整版本: ASP.NET网页设计实例开辟:ASP.NET创立收集相册