一些源程序 - 获得文件大小和字符串处理

　　Formats passed string based on length. Perfect for emails and text files.
---------------------------------------------------------------------------------------
<%
Company: Sabra Inc
Author: Dave Hoffenberg
Date: 10/5/00
Function: Formats passed string based on length.Perfect for emails and text files.
Freeware

Function Padding(Value, Length)
If the length of the value is less than the variable length
If Len(Value) < Length Then
charcount = Length - len(Value)

for i = 1 to (charcount - 1)

padding = padding

next

mystring = Value padding
If the length of the value is greater than the variable length
Length Then
mystring = Left(Value,Length)

Else
set mystring = Value

End If

Padding = mystring

End Function


Set fso = CreateObject(Scripting.FileSystemObject)
Set MyFile = fso.CreateTextFile(Server.MapPath(test.txt), True)

MyFile.WriteLine Padding(this is a test, 25) end of line.

Set fso = Nothing
Set MyFile = Nothing

response.write done
%>

Retrieves file size(K) of any file passed to it.
---------------------------------------------------------------------------

<%
Company: Sabra Inc
Author: Dave Hoffenberg
Function: Retrieves file size(K) of any file name passed to it.
Freeware

Function ShowFileSize(filespec)
file = Server.MapPath(filespec)
Set fso = CreateObject(Scripting.FileSystemObject)
If fso.FileExists(file) Then
Set f = fso.GetFile(file)
intSizeB = f.Size
intSizeK = Int((intSizeB/1024) + .5)
If intSizeK = 0 Then intSizeK = 1
ShowFileSize = intSizeK k
Else
ShowFileSize = File Doesnt Exist
End If
Set fso = Nothing
End Function

response.write ShowFileSize(test.txt)
%>