仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 548|回复: 8
打印 上一主题 下一主题

[学习教程] ASP编程:一个ASP版的图片扫瞄办理器

[复制链接]
金色的骷髅 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 23:36:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。这是我第一次翻译文章,不敷的地方,还请包涵。
印度,如今之以是成为软件出口年夜国,有良多中央都优于我们。个中一个主要的上风就是印度的官方言语是英语,这就为以英语作为编程言语的印度程序员带来得天独厚的优胜前提。关于我们处置IT业的人来讲,也应当增强自已英语练习。

导言
假如你有个已运转两个月以上工夫的网站,你大概会注重到你网站上已储蓄积累了良多的图片文件。只管我们都已全力为这些图片文件很好的定名,但当我们往扫瞄这些图片的文件名时,我们老是会很难想起一些图片文件名有何特别的寄义或用途。
这时候,我们一般会反复地用扫瞄器翻开那些图片,看看是甚么图片?这时候,这段ASP代码就能够做为图片扫瞄器(和清算器)来扫瞄这些图片并实行清算操纵。

编码:
现实上,这个程序就是包括某目次下的一切图片的一个列表页面,用FileSystemObject工具来枚举出这些图片文件(gif和jpeg文件).
在页面里加一个链接toggledisplay,来把持是不是显现图片。当你有良多文件而不想都加载它们,你能够只让页面的一个图片显现一个链接,相反,假如你不断定一些文件定名是寄义,这个功效将能很好的匡助你举行清算操纵。
上面是很简便的代码
<%@Language=VBScript%>
<%OptionExplicit%>
<%
ConstImageFilePath="images"
ConstDeleteButtonLabel="DeleteSelectedImages"

DimobjFSO
DimobjFolder
DimobjFile

DimstrFileName
DimstrFileExtension

DimblnShowImages

IfRequest.QueryString("ShowImages")=""Then
blnShowImages=False
Else
blnShowImages=CBool(Request.QueryString("ShowImages"))
EndIf

IfRequest.Form("btnDelete")=DeleteButtonLabelThen
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")

ForEachstrFileNameInRequest.Form("delete")
objFSO.DeleteFile(Server.MapPath(ImageFilePath&"/"&_
strFileName))
Next

SetobjFSO=Nothing
EndIf
%>
<html>
<head>
<title>ASP101ImageBrowser&Killer!</title>
</head>
<body>

<formaction="<%=Request.ServerVariables("URL")%>"method="post">

<tableborder="1">
<tr>
<th>ImageName</th>
<th>Image<ahref="<%=Request.ServerVariables("URL")%>?
ShowImages=<%=NotblnShowImages%>">(ToggleDisplay)</a></th>
<th>DeleteThisImage</th>
</tr>
<%
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
SetobjFolder=objFSO.GetFolder(Server.MapPath(ImageFilePath))

ForEachobjFileInobjFolder.Files
strFileExtension=LCase(Mid(objFile.Name,_
InStrRev(objFile.Name,".",-1,1)+1))

IfstrFileExtension="gif"OrstrFileExtension="jpg"Or_
strFileExtension="jpeg"Then
Originalimagefileidentificationoption:
IfobjFile.Type="GIFImage"Or_
objFile.Type="JPEGImage"Then
%>
<tr>
<td>
<ahref="<%=ImageFilePath&"/"&objFile.Name%>">
<%=objFile.Name%></a>
</td>
<%
IfblnShowImagesThen
%>
<td>
<imgsrc="<%=ImageFilePath&"/"&objFile.Name%>"/>
</td>
<%
Else
%>
<td>
<ahref="<%=ImageFilePath&"/"&objFile.Name%>">
ViewImage</a>
</td>
<%
EndIf
%>
<tdalign="center">
<inputtype="checkbox"name="delete"
value="<%=objFile.Name%>"/>
</td>
<%
EndIf
Next

SetobjFolder=Nothing
SetobjFSO=Nothing
%>
<tr>
<tdcolspan="3"align="right">
<inputtype="submit"name="btnDelete"
value="<%=DeleteButtonLabel%>">
</td>
</tr>
</table>

</form>

</body>
</html>

实行删除操纵时,必定要注重,假如在程序里不加删除确认提醒,程序将不克不及取消删除操纵。

结论
人们老是不会拿asp来建年夜型的可晋级的网站。(译者注:这句不翻译不是很得当,依据我的事情履历,ASP完整能够建立年夜型的网站体系。在ASP方面中,自己曾参予建立过年夜型企业外部网,挪动行业使用等。)但偶然候你能够用这个简化你的事情,即便这代码从没在WEB上宣布。

猎取代码
你能够下载包括这个代码的会商的ZIP文件http://www.asp101.com/articles/john/imageviewer/imgview.zip。为了把持文件的巨细,我没有包括一个图片例子。我再一次提示你,用这个代码做损坏并删除良多相干图片是很简单的。要注重,没有删除确认时,要确认用图片复原本操纵。

代码更新
我已收到良多有关这个代码的EMAIL。看了今后,我仍是发明有良多成绩。</p>Access是一种桌面数据库,只适合数据量少的应用,在处理少量数据和单机访问的数据库时是很好的,效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限,如果数据达到100M左右,很容易造成服务器iis假死,或者消耗掉服务器的内存导致服务器崩溃。
只想知道 该用户已被删除
沙发
发表于 2015-1-20 10:27:25 | 只看该作者
从事这个行业,那么你可以学ASP语言,简单快速上手,熟练dreamweav排版,写asp代码,熟练photoshop处理图片,打好基础就行了
山那边是海 该用户已被删除
板凳
发表于 2015-1-26 22:30:16 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
愤怒的大鸟 该用户已被删除
地板
发表于 2015-2-4 21:02:05 | 只看该作者
ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。
飘飘悠悠 该用户已被删除
5#
发表于 2015-2-10 10:25:08 | 只看该作者
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:
第二个灵魂 该用户已被删除
6#
发表于 2015-3-1 08:51:22 | 只看该作者
掌握asp的特性而且一定要知道为什么。
再见西城 该用户已被删除
7#
发表于 2015-3-10 13:00:37 | 只看该作者
弱类型造成潜在的出错可能:尽管弱数据类型的编程语言使用起来回方便一些,但相对于它所造成的出错几率是远远得不偿失的。
海妖 该用户已被删除
8#
发表于 2015-3-17 07:21:50 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
透明 该用户已被删除
9#
发表于 2015-3-24 01:50:23 | 只看该作者
Session:这个存储跟客户端会话过程的数据,默认20分钟失效
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-24 00:35

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表