asp如何读取当前目录下的文本

<%
agent=request.servervariables("http_user_agent")
if instr(agent,"IE")>0 then
set myfileobject=server.createobject("scripting.filesystemobject")
txtfile = "1.txt"
set mytextfile=myfileobject.opentextfile(txtfile)
s = mytextfile.readall()
response.write(s)
else
set myfileobject=server.createobject("scripting.filesystemobject")
txtfile = "2.txt"
set mytextfile=myfileobject.opentextfile(txtfile)
s = mytextfile.readall()
response.write(s)
end if
%>
看看这样行不行？

怎么和我遇见的问题一样啊！麻烦你找到答案了告诉我！

一言难尽啊

这 可是一 工程

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Dim fso, f, Msg,path,ReadTextFileTest
path=server.MapPath(".")&"\1.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(path, ForReading)
ReadTe