设为首页收藏本站
开启辅助访问 切换到窄版

仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
仓酷云»社区 › 程序开发 Program › ASP网页编程 › ASP教程之对文件的操纵--创建挪动删除文件夹 ...
返回列表 发新帖
查看: 627|回复: 9
打印 上一主题 下一主题

[学习教程] ASP教程之对文件的操纵--创建挪动删除文件夹

[复制链接]
若天明 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:57:11 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。
上面两个文件：
<!--#includevirtual="/intels/chunfeng/graphicdetect.asp"-->
<html>
<head>
<TITLE>图象尺寸</TITLE>
</head>
<bodybgcolor="#FFFFFF">
<%
graphic="images/intels.gif"
HW=ReadImg(graphic)
Response.Writegraphic&"Dimensions:"&HW(0)&"x"&HW(1)
&"<br>"
response.write"<imgsrc=""/"&graphic&""""
response.writeheight="""&HW(0)&"""
response.writewidth="""&HW(0)&"">"
%>
</body>
</html>
－－－－－－－－－－－－－－－－－－－－－－－－
graphicdetect.asp
<%
DimHW
FunctionAscAt(s,n)
AscAt=Asc(Mid(s,n,1))
EndFunction
FunctionHexAt(s,n)
HexAt=Hex(AscAt(s,n))
EndFunction
FunctionisJPG(fichero)
IfinStr(uCase(fichero),".JPG")0Then
isJPG=true
Else
isJPG=false
EndIf
EndFunction
FunctionisPNG(fichero)
IfinStr(uCase(fichero),".PNG")0Then
isPNG=true
Else
isPNG=false
EndIf
EndFunction
FunctionisGIF(fichero)
IfinStr(uCase(fichero),".GIF")0Then
isGIF=true
Else
isGIF=false
EndIf
EndFunction
FunctionisBMP(fichero)
IfinStr(uCase(fichero),".BMP")0Then
isBMP=true
Else
isBMP=false
EndIf
EndFunction
FunctionisWMF(fichero)
IfinStr(uCase(fichero),".WMF")0Then
isWMF=true
Else
isWMF=false
EndIf
EndFunction
FunctionisWebImg(f)
IfisGIF(f)OrisJPG(f)OrisPNG(f)OrisBMP(f)OrisWMF(f)
Then
isWebImg=true
Else
isWebImg=true
EndIf
EndFunction
FunctionReadImg(fichero)
IfisGIF(fichero)Then
ReadImg=ReadGIF(fichero)
Else
IfisJPG(fichero)Then
ReadImg=ReadJPG(fichero)
Else
IfisPNG(fichero)Then
ReadImg=ReadPNG(fichero)
Else
IfisBMP(fichero)Then
ReadImg=ReadPNG(fichero)
Else
IfisWMF(fichero)Then
ReadImg=ReadWMF(fichero)
Else
ReadImg=Array(0,0)
EndIf
EndIf
EndIf
EndIf
EndIf
EndFunction
FunctionReadJPG(fichero)
Dimfso,ts,s,HW,nbytes
HW=Array("","")
Setfso=CreateObject("Scripting.FileSystemObject")
Setts=fso.OpenTextFile(Server.MapPath("/"&fichero),1)
s=Right(ts.Read(167),4)
HW(0)=HexToDec(HexAt(s,3)&HexAt(s,4))
HW(1)=HexToDec(HexAt(s,1)&HexAt(s,2))
ts.Close
ReadJPG=HW
EndFunction
FunctionReadPNG(fichero)
Dimfso,ts,s,HW,nbytes
HW=Array("","")
Setfso=CreateObject("Scripting.FileSystemObject")
Setts=fso.OpenTextFile(Server.MapPath("/"&fichero),1)
s=Right(ts.Read(24),8)
HW(0)=HexToDec(HexAt(s,3)&HexAt(s,4))
HW(1)=HexToDec(HexAt(s,7)&HexAt(s,8))
ts.Close
ReadPNG=HW
EndFunction
FunctionReadGIF(fichero)
Dimfso,ts,s,HW,nbytes
HW=Array("","")
Setfso=CreateObject("Scripting.FileSystemObject")
Setts=fso.OpenTextFile(Server.MapPath("/"&fichero),1)
s=Right(ts.Read(10),4)
HW(0)=HexToDec(HexAt(s,2)&HexAt(s,1))
HW(1)=HexToDec(HexAt(s,4)&HexAt(s,3))
ts.Close
ReadGIF=HW
EndFunction

FunctionReadWMF(fichero)
Dimfso,ts,s,HW,nbytes
HW=Array("","")
Setfso=CreateObject("Scripting.FileSystemObject")
Setts=fso.OpenTextFile(Server.MapPath("/"&fichero),1)
s=Right(ts.Read(14),4)
HW(0)=HexToDec(HexAt(s,2)&HexAt(s,1))
HW(1)=HexToDec(HexAt(s,4)&HexAt(s,3))
ts.Close
ReadWMF=HW
EndFunction
FunctionReadBMP(fichero)
Dimfso,ts,s,HW,nbytes
HW=Array("","")
Setfso=CreateObject("Scripting.FileSystemObject")
Setts=fso.OpenTextFile(Server.MapPath("/"&fichero),1)
s=Right(ts.Read(24),8)
HW(0)=HexToDec(HexAt(s,4)&HexAt(s,3))
HW(1)=HexToDec(HexAt(s,8)&HexAt(s,7))
ts.Close
ReadBMP=HW
EndFunction
FunctionisDigit(c)
IfinStr("0123456789",c)0Then
isDigit=true
Else
isDigit=false
EndIf
EndFunction
FunctionisHex(c)
IfinStr("0123456789ABCDEFabcdef",c)0Then
isHex=true
Else
ishex=false
EndIf
EndFunction
FunctionHexToDec(cadhex)
Dimn,i,ch,decimal
decimal=0
n=Len(cadhex)
Fori=1Ton
ch=Mid(cadhex,i,1)
IfisHex(ch)Then
decimal=decimal*16
IfisDigit(c)Then
decimal=decimal+ch
Else
decimal=decimal+Asc(uCase(ch))-Asc("A")
EndIf
Else
HexToDec=-1
EndIf
Next
HexToDec=decimal
EndFunction
%>

对用户来说可预见费用、节约费用，可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用，用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的，对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。
graphic, include, images, 文件夹

相关帖子
回复

使用道具 举报

山那边是海 该用户已被删除
沙发
发表于 2015-1-20 06:30:25 | 只看该作者
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。
回复 支持 反对

使用道具 举报

金色的骷髅 该用户已被删除
板凳
发表于 2015-1-20 23:48:33 来自手机 | 只看该作者
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?
回复 支持 反对

使用道具 举报

柔情似水 该用户已被删除
地板
发表于 2015-1-30 07:37:34 | 只看该作者
封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。
回复 支持 反对

使用道具 举报

再见西城 该用户已被删除
5#
发表于 2015-2-6 08:39:41 | 只看该作者
Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write
回复 支持 反对

使用道具 举报

透明 该用户已被删除
6#
发表于 2015-2-15 20:32:36 | 只看该作者
Session:这个存储跟客户端会话过程的数据，默认20分钟失效
回复 支持 反对

使用道具 举报

飘飘悠悠 该用户已被删除
7#
发表于 2015-3-4 13:26:16 | 只看该作者
在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。
回复 支持 反对

使用道具 举报

变相怪杰 该用户已被删除
8#
发表于 2015-3-11 19:42:19 | 只看该作者
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。
回复 支持 反对

使用道具 举报

谁可相欹 该用户已被删除
9#
发表于 2015-3-19 10:25:05 | 只看该作者
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。
回复 支持 反对

使用道具 举报

深爱那片海 该用户已被删除
10#
发表于 2015-3-27 19:10:59 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-1-3 16:14

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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