|
|||||
|
write to a file using the filesystemobject write to a file using the filesystemobject <% Option Explicit ‘ Set up Constants Const ForWriting = 2 Const Create = True Dim MyFile Dim objFSO ‘ FileSystemObject Dim objTS ‘ TextStreamObject MyFile = Server.MapPath("test.txt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile(MyFile Bookmark It read from a file using the filesystemobject read from a file using the filesystemobject <% Option Explicit Const ForReading = 1 Dim objFSO Dim objTS Dim strLine Dim strFileName strFileName = Server.MapPath("test.txt") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objTS = objFSO.OpenTextFile(strFileName Bookmark It size corrector size corrector <% \’Please leave this comment – www.the-baboon.nl thanks for using function bsize(str) if str < 0 then outstr = \N/A\ end if tstr = str / 1000000000000000 if tstr >= 1 and outstr = \\ then outstr = round(str / 1125899906842624) outext = \PB\ end if tstr = str / 1000000000000 [...] |
  |
||||
|
Copyright © 2012 Programmingsite : source code - All Rights Reserved |
|||||
