|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码扫瞄器这是我第一次翻译文章,不敷的地方,还请包涵。
印度,如今之以是成为软件出口年夜国,有良多中央都优于我们。个中一个主要的上风就是印度的官方言语是英语,这就为以英语作为编程言语的印度程序员带来得天独厚的优胜前提。关于我们处置IT业的人来讲,也应当增强自已英语练习。起首,感激CSDN供应如许的平台。闲话未几说,注释以下:
导言
假如你有个已运转两个月以上工夫的网站,你大概会注重到你网站上已储蓄积累了良多的图片文件。只管我们都已全力为这些图片文件很好的定名,但当我们往扫瞄这些图片的文件名时,我们老是会很难想起一些图片文件名有何特别的寄义或用途。
这时候,我们一般会反复地用扫瞄器翻开那些图片,看看是甚么图片?这时候,这段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。为了把持文件的巨细,我没有包括一个图片例子。我再一次提示你,用这个代码做损坏并删除良多相干图片是很简单的。要注重,没有删除确认时,要确认用图片复原本操纵。
代码更新
</p>asp可以使用微软的activeX使得网页功能无比强大,不过安全性也较差,而且是基于的windows服务器,所以性能稳定性也一般 |
|