中国邮政营业厅下载:求教FSO读取文本文件的问题

两个文件,一个是写入,这个没问题:
<%
FilePath=server.mappath("ip.txt")
set fso=server.createobject("Scripting.filesystemobject")
set fs=fso.createtextfile(FilePath,true,true)
fs.write userip
set fs=nothing
set fso=nothing
%>

------------------------------------------
另外一个读取让我崩溃了:
<%
FilePath =server.mappath("ip.txt")
set fso=server.createobject("Scripting.filesystemobject")
set fs=fso.OpenTextFile(FilePath,1,1)
jumpip = fs.ReadAll
set fso = nothing
set fs = nothing
%>

怎么做都是提示opentextfile那一行出错,要不就是在Response.Write(jumpip)的时候输出一个奇怪的?号....

求大侠们帮帮忙,我弄两个小时了...
--------------------------------------------------------------------------------------------------
<%
Dim fso, f1, ts, userip, FilePath
FilePath=server.mappath("ip.txt")
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile(FilePath, True)
f1.Write userip
f1.Close
set f1=nothing
set fso=nothing
%>

<%
Dim fso, f1, ts, jumpip, FilePath
FilePath=server.mappath("ip.txt")
Const ForReading = 1
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.OpenTextFile(FilePath, ForReading)
jumpip = ts.ReadLine
set ts=nothing
set fso=nothing
%>

以上代码测试正常,
原来是忘记dim了........