如何一行行地读取文件？
更新时间：2006年11月16日 00:00:00 作者：
dim input(30)
' 定义一个数组,大小可随时更改.这里为了显示方便.
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
' 将文件内容读入input数组.
Loop
file_open.close
Set fs=Nothing
另外，对于二进制数据，我们也可以用Read()来读取，如：
file_open.Read(200)
就是读取file_open中的200个数据。
相关文章
如何做一个随机密码产生器？...2006-11-11
如何获知页面上的图象的实际尺寸？...2006-11-11
如何把URL和邮件地址转换为超级链接？...2006-11-11
oblog_4.6_SQL 语句...2007-09-09
如何实现强制登录？...2006-11-11
如何把一长串数字分位显示？...2006-11-11
如何实现点击数的计算？...2006-11-11
如何阻止别人非法链接你网站的图片？...2006-11-11
如何在读取Excel文件时创建列表的下拉菜单？...2006-11-11
如何在线更改密码？...2006-11-11
最新评论