 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
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\\\' Elseif len(Value) > 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 Doesn\\\'t Exist" End If Set fso = Nothing End Function response.write ShowFileSize("test.txt") %> 返回类别: 教程 上一教程: ASP中数据库安全问题之我见 下一教程: ASP访问ACCESS出错提示简要解释 您可以阅读与"一些源程序 - 获得文件大小和字符串处理"相关的教程: · 改进 ASP 应用程序中的字符串处理性能 · ASP中一个字符串处理类加强版 · ASP中一个字符串处理类 · 改进 ASP 的字符串处理性能 · 截取固定长度字符串显示在页面，多余部分显示为省略号(区分汉字和字符) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
