答案一

Function   ReadEntireFile(filespec)  
     Const   ForReading   =   1  
     Dim   fso,   theFile,   retstring  
     Set   fso   =   CreateObject("Scripting.FileSystemObject")  
     Set   theFile   =   fso.OpenTextFile(filespec,   ForReading,   False)  
     Do   While   theFile.AtEndOfLine   <>   True  
        retstring   =   theFile.Read(1)  
     Loop  
     theFile.Close  
     ReadEntireFile   =   retstring  
  End   Function

答案二

哈哈，我不喜欢VB，只用Javascript，况且只在客户端用，即可。