最后一次。但愿有人能帮我解决一下吧。我是新手帮帮我。急用。

[mayaboy]

谁能帮我整个代码改好，能正常使用啊。每次告诉我一个地方。但还会出另外的地方还会出问题。我是新手，帮帮我。急用啊。
<%
Set AFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set ATextStream = AFileSystemObject.OpenTextFile("C:\aaa.txt")
%>
<select>
<% do While Not ATextStream.EOF %>
<option value="<%=i%>"><%=ATextStream.ReadLine%></option>
<% i=i+1
Loop %>
</select>

错误类型：
Microsoft VBScript 运行时错误 (0x800A01B6)
对象不支持此属性或方法: 'EOF'
/site/cg.asp, 第 6 行

[xuen30]

朋友，这样你看行不行
<%
Set AFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set ATextStream = AFileSystemObject.OpenTextFile("C:\aaa.txt")
%>

<% do While Not ATextStream.atendofstream
response.write aTextStream.readline & "<br>"
Loop
textfile.close
%>

[freespace520]

up

[云帆]

关注！二楼的朋友，楼主好像是想用下拉框显示的。

[chenguang79]

如果是楼主出现问题，二楼兄弟的写法就可以了，因为在用文本控件时，想知道到不到最后，要用atendofstream

[wlz000]

AFileSystemObject 没有 EOF 方法

[wanghaisha]

<%
Set AFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set ATextStream = AFileSystemObject.OpenTextFile("C:\aa.txt")
%>
<select>
<% do While Not ATextStream.atendofstream %>
<option value="<%=i%>"><%=ATextStream.ReadLine%></option>
<% i=i+1
Loop %>
</select>

[wanghaisha]

一定ok