ASP教程之一些源程序 - 取得文件巨细和字符串处置...
专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。Formatspassedstringbasedonlength.Perfectforemailsandtextfiles.---------------------------------------------------------------------------------------
<%
Company:SabraInc
Author:DaveHoffenberg
Date:10/5/00
Function:Formatspassedstringbasedonlength.Perfectforemailsandtextfiles.
Freeware
FunctionPadding(Value,Length)
Ifthelengthofthevalueislessthanthevariablelength
IfLen(Value)<LengthThen
charcount=Length-len(Value)
fori=1to(charcount-1)
padding=padding&""
next
mystring=Value&padding
Ifthelengthofthevalueisgreaterthanthevariablelength
Elseiflen(Value)>LengthThen
mystring=Left(Value,Length)
Else
setmystring=Value
EndIf
Padding=mystring
EndFunction
Setfso=CreateObject("Scripting.FileSystemObject")
SetMyFile=fso.CreateTextFile(Server.MapPath("test.txt"),True)
MyFile.WriteLinePadding("thisisatest",25)&"endofline."
Setfso=Nothing
SetMyFile=Nothing
response.write"done"
%>
Retrievesfilesize(K)ofanyfilepassedtoit.
---------------------------------------------------------------------------
<%
Company:SabraInc
Author:DaveHoffenberg
Function:Retrievesfilesize(K)ofanyfilenamepassedtoit.
Freeware
FunctionShowFileSize(filespec)
file=Server.MapPath(filespec)
Setfso=CreateObject("Scripting.FileSystemObject")
Iffso.FileExists(file)Then
Setf=fso.GetFile(file)
intSizeB=f.Size
intSizeK=Int((intSizeB/1024)+.5)
IfintSizeK=0ThenintSizeK=1
ShowFileSize=intSizeK&"k"
Else
ShowFileSize="FileDoesntExist"
EndIf
Setfso=Nothing
EndFunction
response.writeShowFileSize("test.txt")
%>
无法实现跨操作系统的应用。当然这也是微软的理由之一，只有这样才能发挥ASP最佳的能力。可是我却认为正是Windows限制了ASP，ASP的概念本就是为一个能让系统运行于一个大的多样化环境而设计的； 他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。 掌握asp的特性而且一定要知道为什么。 下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...
页:
[1]