dim input(30)

' 定義一個數(shù)組,大小可隨時更改.這里為了顯示方便.

file_path=Server.Mappath("index.html")

Set fs=Server.CreateObject("Scripting.FileSystemObject")

Set file_open=fs.OpenTextFile(file_path)

n=0

Do While Not file_open.AtEndOfStream

n=n+1

fileline=file_open.readline

input(i)=fileline

' 將文件內(nèi)容讀入input數(shù)組.

Loop

file_open.close

Set fs=Nothing

另外，對于二進(jìn)制數(shù)據(jù)，我們也可以用Read()來讀取，如：

file_open.Read(200)

就是讀取file_open中的200個數(shù)據(jù)。